7USER " sitf: 



PACKET 33? 

INPUT 13 CARnS FROM CRA 

TIMf 1559 

DATE 77280 FRIDAY* 10/07/77 



**♦ BURROUGHS B5700 DCMcP MARK XVl.Cl^B AND I^TRINSICS MARK XVI. 0.132 ♦♦* 
*N0 MESSAGES TODAY 



l5j59lftA 
I5l59i4'!» 
l5J59lft4 
I5|59l45 
I5»59l46 
15J59;47 
15159148 
I5»59l49 
15I59J49 
16100124 
16I00J24 
16I00J55 

i6?oo:55 

16;OOI56 
16«00j56 
l6J00:57 
16I00J56 
l6«0n;56 



7IJSER" S 
7EXECIJTE 
?r)ATA rA 



?END 



ITE 
PA 
RD 
4|P 
CDA 
PRD 
DKA 
OKA 
OKA 
CDA 



tch/merge 

ATCH/MfRGE* 1 BOJ 1559 05/12/77 

IN card«patch/mergf» 1 
0336 OUT on LiNEjPaTCM/MeRGE* 1 
OUT SeR MASTERF SlTE»PATCH/MERGEe 

IN SER Patch augoLjPauh/meRge* i 

OUT SER PATCHDE S 1 TE « PaTCH/MeRGE«» 
RFL CARDiPaTCH/MeRgE» 1 



1 



DKA REL PaTCHDE S I TE I PaTCH/MfRGEs 1 

DKA REL Patch algoljpatch/merge* 1 

Ppn0336 RfL on line 1471 JPATCH/MERGE" 
DKA REL MaSTeRF SH E t PaTCH/MeRGE» 1 
PATCH/MERGE* 1 EOJ 1600 

for PATCH/MERPE* 1» process* 54 SECS, lOe 
PKT#0335 REMOVED 



36 SECSi OLAYs 



LABEL OOnoOOOOOLiNF: 00 1 772807EXf CUT F PaTCh/ME«6F: 

BURROUfiwS P-5700 PATCH/MERr.E PROGRAM MARK XVI. 0,104 



PATCH /MERGE 



FRIDAY, l0/07/77» 3|59 PM. 



Jti^i^ttim^t*^** 



INPUT 



**'^t***ifTtf**^******m**********^f**********************t***^t***,^****mm****i^*** 



SPCARD MERGE ZIP LiSTi 
«, 22 PATCHES FoR ALGOL 



C 
C 



0000000/CARD 



CARL INPUT IS CARD 
PATCHES/ALGOL IS NOT ON DISK 
PATCH /ALGOL WILL BE MERGED 



«*COMPILE ALGOL/NUDISK aLGOL LIBRARY 

**Ai.60L STACK js lOOO 

t*AL60L FiLr TaPE s SYMrOL/ALGOL DlSK SeRIAL 

**fiLf liNf » Line print op back up 
»*daTa caro 

$- o**** VMIS LISTING SHOWS PATCHFS IMPLEMENTED AT UcSC 
*SfT tape LtST StNgLE FORMAT PRT XRfT 



♦ Hi*** 



C 

c 
c 
c 
c 
c 
c 



tfPATCH NUMBER lOl pOR ALGOL CONTAtNS ? CARDS 

IF T 8 INFOcGTi, GT?] THEN HEGIN O2677O1O 

Tj» 0; Go To Complete endj 02677020 

siThis patch elemInates a Compiler loop caused wHE^l a formal parameter 
$1 In a procedure declaration 's not indicated in iHE specification 
$1 list« 



P lOi PATCH /ALGOL 



p 


Ipl 


p 


lOl 


p 


101 


p 


101 


p 


101 


p 


10] 



$#PATCH NUMBER 102 FOR aLGOL CONTAINS 1 CARD 

IF. BUP »* BUP:«BUP"^TaKECBUP ♦ n.PUFPT THEN 
SI THIS PATCH ELEMINATES A COMPILER LOOP CAUSED WHEN THE FORMAL 
St PARAMETER IN A PROCEDURE DECLARATION IS FOLLOWED BY A COMMA. 



H066000 



P 
P 

P 



102 

102 
102 
102 



P 102 



SIPaTcH number 103 FOR aLOOL CONTAINS 2 CARDS 
FOUND! 



P 103 
02315000 P 103 



u«, IF OPINX +l>0PARSI7f. THEN FLA6(60?) ELSE % TOO MANY USER OPTIONS 02316000 P 103 

m Si this Patch corrects aM invalid index condition caused when too many p 103 

$1 USER OPTIONS HAVE BEfN SPECIFIED. P 103 

$i**1li,t:****4 ************************************************************* P 103 



S#PATCH NUMBER l04 FOR ALGOL CONTAINS 4 CARDS P 1O4 

FLAG flpO); 07025000 P 1O4 

FCRt» (LCR«=MKABS(C8UFFr9]))-'9J 07025010 P IO4 

IF LISTER Then printcaro; 07025020 p 104 

FCRIw (LCRJ»MKABScTBUFFr9n)-9 END? 07025030 P IO4 

SITHIS PATCH CORRECTS A PROBLEM WHERE A PATCH CARD IS LOST WHEN BEGIN P 104 

SIEND PAIRS ARE NOT MATcHEH AND PATCH CARD SEQUENCE NUMBERS ARE GREATER P 1O4 

SITHAn THE SEQUENCE NUMBER OF ThE Hf;K,D . »»C ARD IN THE SqURCE FIlE. P IO4 

$\ ******************************************************** ************** p ^Qn 



SfPATCH NUMBER t05 FOR /SLGOL CONTAINS 13 CARDS P IO5 

BEGIN 

LABEL EnDRFaDTAPE* EOFT; 

READ (Tape. io» tbuff[*])[eoft]i 

MAXLCRI»LCR:»MKABS(TBUFrr9])) 

GO TO ENDRFADTAPEJ 

EOFT I 

0EF|NEARRAYr25]t«''N0JENn."« "E"rH«3l5]; 

DEFlNEARRAYr34] l«"9999»' R •'9999»»( 1 j 25 t 23 ] I 

TLCRU MKABSC0friNEARRAY[3fl])» 
PUTSEONO (nFFlNEARHAYr33]»TLCR-8); 
TURNONSTOPl.iGHTfwJ!", TLcR-P?? 
ENDREADTAPrs 

end; 

tithls patch corrects an eof no label encountered i»hen the source 

«l "end!" card is patched over and the patch deck contains carp sequence 

t»NUMBERS GKEATfR ThAN THE SEQUENCE NUK'BER OF ThE •♦END," CARD IN THE 

tiSOURCF FTLE, 

tl*********************^************************************* *********** 



02198755 


P 


105 


02198760 




105 


02201750 




105 


02202000 




105 


02202010 




105 


02202020 




105 


02202030 




105 


02202040 




IO5 


02202050 




105 


O22O2O6O 




105 


02202070 




105 


02202080 




105 


02202090 




105 






105 






105 






105 






105 






105 



S« PATCH NUMBER IO6 pOR ALnOL CONTAINS iH CARDS. 

COdEFILeBIT • 29#, 
USpROPlNX » 30#f 
COoEFILE * 0PTI0NW0R0,tC0DEFlLEBlTM3#' 

LENQTH6,LENGTH/.LENGTh8,LENGTH9.WHATISITI 

uengthBi 

IF ""scodef" then 

BEr.lN SWlTCHTTfCODEFlLFBIT)) gO ArAINJ ENDI 
go WHATtSiT; 

INTEGER PROCEDURE MOVEANDBLOCKf FROM, Si ZE»NAME? I 

VAlUE SI7E.NAME; REAi, StZE,NAME; ARRAY FROMfO.OU 



OOCOOOOi 


P 


106 


01001172 




106 


01001173 




106 


0100H63 




106 


02365000 




106 


02574000 




106 


02574100 




106 


02574200 




106 


02574300 




106 


02927100 




IO6 


02927110 




IO6 



BEGIN 0?9?71?0 P t06 

InTE6ERmSEGS»I»j»k; 02927130 P 106 

ARRAY ACoil'Ul 02927140 P 106 

SWITCH roRMAT FmT i« 02927150 P 106 

{/f'*f'ILE PARAMETER BLOCK IS CODE FILE SeGmENT'V 15 ' / ) » 02927160 P 106 

(/••♦segment dictionary is code file SEGMtNT^'lS*/)' 02927170 P 106 

(/."PROGRAM-LINE DICTIONARY IS CODE FILf SEGMeNT"M 5» / ) » 02927180 P 106 

(/i"PROGRAM REFERFNCF TABLE IS CODE FILE SEGMENT" » I5» /) » 02927190 P 106 

(/♦"SEGMENT-LINE DICTIONARY is CODE FILE SEGMENT"* I5» /) » 02927200 P 106 

C/i^POWER OF TEN aWRAY IS CODE FILE SEGMENT" . I 5» /) i 02927210 P 106 

(/."SEGMENT ZERO", I*./). 0292722^ P 106 

(/."SEGMENT NUMber'%I5»" iS cODE FILf SeGMENT'M 5« / ) ; 02927230 P 106 

STREAM PROCEDURE OCTaLWORDSC N» W, S» D ) { VaLUe N»W{ 029272«0 P 106 

BEGIN 02927250 P 106 

Oltsn, DSjsLlT" "» 02927260 P 106 

SiIbLOC N; Sll»Sl+6; 02927270 P 106 

AfOSl-a KeSET; 3CIF SH then nS>«=i)ET eUSF DSJ^RESET; skip SB)); 02927272 P 106 

0n»ni-4; DStw3 fill; 02927280 P 106 

D?l«0> Dl»sDr+5; nS8a4 lit" "J 02927290 P l06 

St««»S» 02927300 P l06 

H(-2('l(0Sts^ RESET} 02927310 P i06 

3(IF SB THEm DS:3SET ElSE f)Ss»RtSET| SKIP SB); 02927320 P 106 

5' „ „ 02927330 P 106 

OSJ'LIT" ")j 02927340 P 106 

OSt-2 LIT" ")i 02927350 P 106 

END OF OcTaLWORDSi 02927360 P 106 

****♦»♦*♦** START **♦♦**♦*** 02927370 P 106 

NSFGS«*(Sl?C+29) DIV 30; 02927380 P 106 

IF DA Dl\/ CHUNK < T » w( DA + NSEGS) nIV CHUNK tHeN 02927390 P 106 

OA'«CHUNKxTJ 02927400 P 106 

M0vEaND8L0cK|«0AJ 02927410 P 106 

IF COOEFTLe then 02927420 P 106 

IF name^o Then 02927430 p 1O6 

WRTTECl-lNF.FMTrNAHEl.DA) 02927440 P 106 

ELSE 02927450 P 106 

WRfTECUlNr,FMTr7l#ABSeNAMf ),DA)* 02927460 P 106 

IF SIZE^O THEN 02927470 P 106 

Begin 02927'480 P 106 

FOR J»»0 STEP 30 wHILf J < SIZE nO 02927490 P 106 

BEGIN 02927500 P 106 

IF (KI«C128-(J MOD 128))) < 30 TheN 02927510 P l06 

BEGIN 02927520 P 1O6 

MOVEfK.FROMf J DIV i?8.j MOD 128] » CODE (0) ) J 02927530 P 1O6 

,M0VEf30-K.FR0MC(J f> I V 1 ?8 3 + 1 »0] . CoDE( K ) ) ; 02?27540 P IO6 

^NH 02927550 P 106 

'-'-SE 02927560 P 106 

MOVE(3o»FromCJ OIV 128»J MOD 1 2fl ] 1 CoOE( ) ) ; 02927570 P 106 

IF J+3o > SIZE THEN % ZERO OUT UNUSED SECTION 02927580 P 106 

BEGIN 02927590 P 106 

•^J'OJ 02927600 P 106 

MOVE(l»K»cOnE(SlZE"-J))l 02927610 P 106 

IF CSIZE"J) < 29 THeN % MORE ThaN ONE WORD 02927612 P 106 

M0VE(29-SIZF + J»C0DECSIZE"J)*C0nECSIZE"v)+n)l 02927620 P 106 

ENOJ 02927630 P 106 

IF CODEFIL.E THF^ 02927640 P 106 

BEGIN 02927650 P 106 

FOR KjaO STfP 5 WHILE K<25 aNo (J*K)<SIZE DO 02927660 P 106 



BrGTN 

BLAMKET(14.A5I 

OcTALWORnS(J+K#lF (J*K+5)<5lZE ThEN 5 ELSE 

ST^E-J-K»cODrfK)'A)l 
WRITECLlNE.15»Af*J)J 
END? 
WRITECLINE)) 
END? 
WRiTEfCODErOA]) J [)A»»DA + i; 
EmH} 
EnDI 

END of moveanDBlock; 

'♦aCODEF'So* * 56*57 

S VOlDT 09352001 

lDaRRAYt«]l«MOvEANDBtOc'<<FDOC'Gn»0)i 
InARRAY[0]l»M0vFANnBl-0cK(srGDlCT»SGAVL»l)8 

CUDIrT»SGAVL»2)[l8l33»l5]J 
InARRAYt2U«M0vEANnRL0cK(PRT»rRTIMAX,3)> 
GTlJ"OA> f)A»«0; MOVF( 30» 1 HARRA YtO] ,PRT[ 0» ] ) | 
ST2««M0vEAND8t0CKCPRT»30.6)l DAl'GTlj 
IF COPEFlUE ThfN WRITECLiNf)! 
PROcrnURE SrGMFNT(SlZE#NO,NOO)J 
VaI-UE SiZE'MO.NOOi 
RpAL SlZE»NO»N0O» 

bfgin 

INTfGeR dummy; % THTS IS HERE SO THaT OUR CODE SEGMENT 

% IS NOT TOO BIG 
P0PRTCPnINX,t37{53#PDINX,t1?i6]J :- 
SI7E & N0C28I36MO1 & 

M()\/FANDBLOCK(EnOC,ABS(SlZE)»"ABS(NO))Cl3»33«l5J & 
RFAU(SAVEPRT0G)r3«ft7tl]l 
PDtNXIsPDInX+1 I STZE»«ABSfSlZE)> 
IF SI7E>SEGSIZEMAX ThF N SEGSl ZEMAX : aSl ZE J 

akkUmjsAkkum*size; 

IF SAVrppToG THEN aUX^-EMREq i^AUX^F MREo + lftx C S I ZE ♦ t 36 I 6 3 + 1) J 
IF LISTER OR SEGSTOG THEN 
BEGIN 

'F NOHEADING THEN OATIME; 
IF SINGLTOG THEN WRI TeCL I NE# PR I NTS I ZE»NO » Si ZE » NOO ) 

ELSE WRlTE(LINE»PRlNTSlZE»NO»SlZf»NC0)» 
ENDI 
LDlCT[N0,t36l 33»NO,t41 :73] |* 
IF BUILDUINE THEN 

M0VrANDBL0CK(ENlL»ENaPTR*l,4) & S I ZE 1 18 I 331 153 
ELSE -II 
END OF SEGMENT; 
S VOIOT 13696001 
SI BY KFK 
SI DATE 1/22/76 
SI MSa CENTRAL - DETROIT 

SI This patch adds a new oollarsiqn option "cooEFitE"! 

St whfn This option is set an octal listing of anything 

si wRtTten to The code file is produced, this tS a Rewrite of 

SI thf "Tables- patch t^at listed segment zeRo. the prt and otheR 

si iTfMS, -TABLES" iS mO LONGER VALID AS A COMPILER OOLLARSiqN 
Sl CARD OPTfON, ThiS PaTCH iS A COMPILER DEBUGGING AlD. 

it^f****'^*** ******** ****^#4t* ******************** 1^1* ************i^*i¥****** 



02927670 


P 


106 


02927680 


P 


106 


02927690 


P 


106 


02927700 


P 


106 


02927710 


P 


106 


02927720 


P 


106 


0292772? 


P 


106 


02927730 


P 


J06 


029277(10 


P 


106 


02927750 


P 


106 


02927760 


P 


106 


02927770 


P 


106 


09027058 


P 


106 


09319000 


P 


106 


09396000 


P 


106 


09399000 


P 


106 


09399150 


P 


106 


09402000 


P 


106 


09407000 


P 


106 


09407010 


P 


106 


09407020 


P 


106 


13634000 


P 


106 


13635000 


P 


106 


13636000 


P 


106 


13637000 


P 


106 


13637100 


P 


106 


13637200 


P 


106 


13638000 


P 


106 


13639000 


P 


106 


13640000 


P 


106 


13641000 


P 


106 


13642000 


P 


106 


13643000 


P 


106 


13644000 


P 


lOft 


13645000 


P 


106 


13646000 


P 


106 


13647000 


P 


106 


13648000 


P 


106 


13649000 


P 


106 


13650000 


P 


106 


13651000 


P 


106 


13652000 


P 


106 


13653000 


P 


106 


13654000 


P 


106 


13655000 


P 


106 


13656000 


P 


106 


13657000 


P 


106 


9999 990Q 


P 


106 


99999901 


P 


106 


99999902 


P 


106 


99999903 


P 


106 


99999904 


P 


106 


99999905 


P 


106 


999999P6 


P 


106 


99999907 


P 


106 


99999908 


P 


106 


99999909 


P 


106 



SfPATCH NUMBER 107 FOR aUGOL CONTAINS 1^2 CARDS, OOOOOOOl P 107 

612 INcLUDFCARDI tOOMaNY nested INCLUDES! 00412000 P 107 

613 iNcUUOFCARDI MISSING FIL-E NaMe ON INCUUDE CARDi 00413000 P 107 

614 iNctUDrCARDi fNdING SEQUENCE NUMBER MiSSlNG. 00414000 P 107 

615 iNcLUDrCAROI rOPy MiSSlNr, ON iNCLUDr CARD. 00415000 P 107 

616 iNclUDrCARf)' MORf ThAN ONf FiLE NaMf ON INCLUDE CA^D 00416000 P l07 

617 iNcLUDFCAROl + cOPY CAN NOT BE USED UNLESS S IS IN COLUMN ONf 00417000 P l07 
DEFINf 01561500 P 107 

iNSrRTMftX a 20#, % rHANr.F This if you Nfeo MORf LfVELS Of includes 01561510 P 107 

INSfRTcOP a TNSFRTlNF0tlNSERT0FPTH»ft3#, X » 1 IF COPY TO NfWTAPE 01561520 P 107 

INSfRTMtd «= lNSERTlNFOtlNSERTDFPTHfO]#, % MnO OF THE LiBRaRY FILE 01561530 P 107 

iNSrRTFTD « TNSrRTTNFOnNSERTDFPTH#n*t % FtD Of THE LiBRaRY FILe 01561540 P 107 

iNSrRTfNX 8= ?NSFRTtNFOnNSERT0FPTH»2J*# % POlNTpR TO THF RFCORd 0l56l550 P 107 

INSfRTSfQ b iNSERTTNF0nNSERTDEPTH»3]#J % LAST SEQUENCE TO BE I NCLUDQ1561 560 P l07 

lNTEGr« SAVfCAHd, tNSeRTDFPThJ 01561570 P 107 

ARRAY INSERTiNFOrOl rNSERTMAX.OU]! 0i56l580 P l07 

File LIBRARyFiL disk RAND0Mf2»l0#30)> 01561590 P l07 

DEFINE lF « LIBRARYFIL*; 0i56l600 P l07 

SAVE ARRAY tBUFF[ f 9] ) % iNPUT BUFFER 01541610 P l07 

REAU STrEAm procedure CmPO(A.B); 01561620 P 107 

BEGIN 01561630 P 107 

Sll»A| Dll*Bj 01561640 P 107 

IF 8 SC > DC THEN 01561650 P 107 

BEGIN 01561660 P 107 

SIi»SI-fl» DItsDi-'iJ TALLY»«2I 01561670 P 107 

IF 8 SC « DC THEN TALLYj»lj 01561680 P 107 

ENOl 01561690 P 107 

CMPOI«TALLYt 01561700 P 107 

End CMPDl 01561710 P 107 

IF INSERTDEPTH > AND INSERTCOPsl OR I NSfRTDEPTH*0 ThEN 02193800 P 107 

Label copylib* copyfofi 02210600 p 107 

LIBCLAST. LIBTlAST* cOpYLlBS O22UO0O P 107 

Go COMPaR; 02224010 P 107 

COPYLlBi 02224020 P 107 

REAr>tLFtINSERTINX,«iNSERTINX + n»lO»L8UFFt*])[COPYEOF3| 02224030 P 107 

Read sefkclfc insertinx+id; 02224032 p 107 

lF(cMPDnNSFRTSF0fLRUFFt9]) s 0) TheN GO cOPYEOf; 02224040 P 107 

Lc«!«'MKABS(LBUFrC93); 02224050 P 107 

GO TO EXIT? 02224060 P l07 

COPYEOF* 02224070 P l07 

ClOSEcLFiRELEASE?! 02224080 P l07 

lF(f InSERTDEpTH:»INSERTDEPTh-1) « 0) THEN 02224090 P IO7 

BEGIN LASTUSED»«SAVECARDJ MEDIUm I »MED IUm i t ?/i J 1 2^ » 02224100 P IO7 

Go USETHESWITCHj 02224102 P 107 

ENOi 02224104 P 107 

FILL LF WITH INSERTMln* INSERTFIOI 02224110 P 107 

GO cOPYLlBl 02224120 P 107 

PROCEDURE INcLudFCARDJ 02238100 P 107 

BFGiN 02238110 P 107 

RfAL VI 02230112 P 107 

LaBfL efxit.a6AiN»gfTfm,fof»exit,oontscani 02238120 P 107 

RfAL stream procedure SCNNfArB)J VALUE B) 02238130 P 107 

BESfN 02238140 P IO7 

SilaAl DT»»LOc SCNNI DSt«8 LiT*'0 "j 02236150 P l07 



™ DI»*0I"7» SI»»St*3I nsi«B chR* 

stRfam prOcfouRf MvF(A,a»c»n)i valuf b.c» 

BECiN 

endi 
stream procedure mvewdfa,8)> value a» 
Begin Sfi«Ai diicBi ost«io wos; enoj 
Define skan » begin 

CoUNT|«RESUtT|«ACCUM[o3l»OJ 
SCANNERI 

Vi«SCNN(ACCUM[l],MlN(C0UNTi7))» 
END! J 

dffine frr(erri) » regin fl.agcfRR1)» go to fexitj emo#i 

If((INSeRTDFPTH«»IN5ERTDEPTh+1) > INseRtMaX) then ERR(612)| 
lNSFRTMfDI»lNSFRTFIn«*fNSFRT!Nxi»!NSERTcOPlBOI 
lNSFRTSFQ««''999 9»»g;»»9999"[ 1 «23]| 
AgAiNI 

SkAnI 

dontscani 

IF v**** •♦ Then go getemj 

IF V""/ " THEN GO AGAINI 

IF RESIJLT*3 THFN % SEO RaNgf 

BEGIN 

MVFCACCUMtn»c0uNTJ«MiN(c0uNT»e)»8-c0uNT» INSERT INX) J 

SKaN} 

IF V*"* •* THEN 
BEGIN 
SKAN} 

IF resuut ^ 3 Then errc6i*)i 

MVEf ACCUMtl l#COUNTlBMlNfC0UNT,B),8-COUNT»INSERTSEQ)l 

Eno Else go tq dontscani 

Go AGAInj 
END; X SEQ RANGf 
If v**** " THEN % hi HAVE COPY FORM 
BEGIN 
SKaN; 
IF V»'^COPY •* THEN 

IF EXAMINCLrR-9)«''$'' THEN 

INSERTC0P«*INSERTINF0tlNSERTDFPTH»l#a3 
ELSE ERR(617) 
ELSE ERRt616)» 
GO AGAIN; 
ENOJ 
IF INSERTMI0«0 THEN INSERTMidIbV 
ELSE IF INSERTFID«0 THEN INSERTFIDJ»V eLSe eRRC616)I 

GO aGatm; 

GETEMf 

IF NOT BOOLeaN(INSERTCOP) AND NEWTOG THEN 

IF fXAMtN(FCR) • "S" THEN % ONLY IF "S" IS iN COLUMN ONE 

IF BOOLEANciNSERTINFOrTNSERTDEPTH-li43) THEN % ONLY IF LAST HAD 

BEGfN MVEWD(FCR»LBliFFtO])> 

PUTSEQN0fLfJUFFr9].MKABSf inFOCLASTSfQRoW.lASTSEQUEnCE]))! 

WRITECNEWTApE.io.LPL'FF[*])r 

EnO; 
IF InSErTmID«0 then EpR(6l3)l 
IF INSErTF1D«0 then lNSERTFlD|»TlMH'l5i 
IF INSERTFIO^O THEN 



02238160 




107 


02238170 




107 


02238160 




107 


02238190 




107 


02238200 




107 


02238210 




1 07 


0223821? 


P 


107 


022382H 




l07 


02238220 


P 


l07 


02238230 


P 


107 


02238240 


P 


107 


02238250 




L07 


02238260 




107 


02238270 




107 


02238280 




107 


02238290 




107 


02238300 




[07 


02238330 




L07 


02238340 




l07 


02238342 




l07 


02238350 




107 


02238360 




l07 


02238370 




107 


02238380 




107 


02238385 




107 


02238390 




107 


02238400 




107 


02238410 




[07 


02238420 




[07 


02238430 




[07 


02238440 




07 


02238450 




07 


0223S46Q 




107 


02238470 




07 


02238480 




107 


02238490 




07 


02238500 




107 


02238510 




07 


02238512 




07 


02238514 




07 


02238520 




07 


02238522 




07 


02238530 




07 


02238540 




107 


02239550 




07 


02238552 




07 


02238555 




07 


02238560 




07 


02238570 




07 


0223857? 




07 


COPY0223857fl 




07 


02238580 




07 


0223858? 




07 


02233590 




07 


02238600 




07 


0223860? 




07 


02238610 




07 


02238620 




07 



BEOIN INSERTFlDt^INSFRTHlDl I NSERTM I D I «0> £"NDJ 02238630 P 107 

IF INSF.RTOEPTH > 1 THEN CLOsE(L.F » Rt LEASE ) J 022386«0 P 107 

FIUL LF WITH INSERTHIO'INSERTFID! 02238650 P 107 

RFAn(lF[OJ»lO»LBUFFr*])[FE)(IT]| % DO THE FOLLOWING SO THAT 02238652 P 107 

inseRtmid;»lf.mfid; % if The operator il-ed us 0223865* p 107 

InSe:RTFID«««LF,FIDI % we will have the PROPFR names. 02238656 P 107 

^f}i 02238658 P 107 

ir fNSFRTlNX > THfN 02238660 P 107 

BEGIN 02238670 P 107 

DO READ(LFCVI»V+l]#10.LBUFF[*))tEEXIT] 02238680 P 107 

UNTIL cMPD(lNSERTlNX,LBUFFr9]) < 1> 02238690 P 107 

V'^V-l; 02238700 P 107 

ENO: 02238702 P 107 

INSCRTINX|»V» 0223870(1 P 107 

IF tNSFRTDEPTH ■ 1 THEN 02238710 P l07 

BFGiN SAVECARD:«LAStUSFDJ LASTUSEDSa7; MEDIUM«=wL "& MED I UMf 2<t « 123 < 02238720 P l07 

rfL ryfTi 02238730 P l07 

rrvTT 02238760 P IO7 

* ' 02238770 P 107 

lF((lNSERTDEpTH|»lNSERTDEpTH-n > 0) THEN 02238780 P 107 

^^'''IN 02238790 P 107 

CLOSE(LF»RELEASE)J 0223880f> P 107 

FILL LF WITH I NsFRTH I D • I NSERTF 1 DJ 02238810 P 107 

^^.^ E'^'^' 02238820 P 107 

i .Hi«««««« 02238830 P 107 

QI'-IXOOOO"; 02238832 P 107 

ENDj 02238840 P 107 

If e =• '♦7INCLU'' THEN 02570000 P 107 

BEGIN INCLUDECaRD; 60 EXIT; END? 02571000 P 107 

'*7lNcLU"»0» % 54»55 09027056 P 107 

INSERTCOpt.U 09S74100 P 107 

Si BY KpK 9999990(y P 107 

SI DATE 3/14/75 99999901 P 107 

Si MSa CENrt^AL - DETROIT 9999990? P 107 

99999903P107 

SI THIS PATCH WILL ALLOW THE ALGOL COMPILER TO "INCLUDE" SOURCE 99999904 P 107 

SI CODE FROM DISK FILES AS IN FORTRAN. THIS iS DONE WITH THE USE OF 99999905 P 107 

*« THE NEW HOLLAR SIGN rARD OPTiON INCLUDE. 99999906 P 107 

»« THE SYNTAX FOR ThF S INCLUDE CAHq ISJ 99999907 P 1O7 

99999908 P 1O7 

*« S INCLUDE <COPY PART> <FILE PART> <t'EQUENCE pART> 999999Q9 P l07 

9999991 n P 1 07 

SI <CoPY pA(?T> n« <EmPTY> / + COPY 9999991] p 107 

S^ 999999i9P107 

SI <F|LE PArT> 11* <MULTI-FILE ID>/<FILE rD> / 99999913 P 107 

SI <MULTI-F1LE ID> 999999U P 107 

** 999999J5 P 107 

SI <MULTI-FIUE ID> ll« TALPHANUMERIC STRING OF 7 OR FEWER CHARACTERS] 99999916 P 107 

*' ^., . 99999917 P 107 

SI <F!LE I0> »I» <EMPTY> / <ALPHANUMERIC STRlNG> 99999918 P 107 

SI 99999919 P 107 

Si <SeOUENcF PART> II* <STARTING SFQUENCE NUMrFR> <ENDING SEQUENCE 99999920 P 107 

SI NUMBER> / <EMPTY> 99999921 P IO7 

** 99999922 P 107 

SI <STARTINr, SEQUENCE N|jMBER> i|« <UNSIGNED InTeGER> 99999923 P 107 

tl 99999924 P 107 

SI <ENDING SEQUENCE NUMrER> ll» <EMPTY> / - <UNSIGNED INTeGER> 99999925 P 107 
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SOME EXAMPLES ARE» 
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s 
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INCL 
tNCL 

tncl 

INCl 



IJDE A/B 
UDE A 1 
UOE+COP 
UDE A 1 
UDE A 

UDE + Copy it 



1213-99932 
2321-77651 
Y SPECIAL/FILE 
2223 



76333-124457 



INCLUDE 
DISK FI 
ENTIRE P 
AN AUXt 
PRESENT! 

THE STA 

<seouenc 
starting 

NUMBER T 
PRpSpNT, 
tNcLUSiV 

COPY f^^ 

THE New 
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FILES. 
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IMBEDDED 
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NEW FILE 
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THEM, AN 
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LE <FIL 
ROGRAM* 
LLARY 
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E PART> 
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FiLf, 
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WHILF 

iNde^en 
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AT INC 
D THUS 

;«■ 4l * 4l * 41 # 



CIS THE COMPILER Tq COMPILE THE SqURCE CODE ON THE 
E PART> over THE RANGE <SEOUE:nCE PART> AS PART OF THE 
IN THIS MANNER* THE USER CAN COMPILE ALL OR PART OF 
FILE(S) INTO HIS PROGRAM, IF THE <FlLE in> IS NOT 
ERCODE IS USED AS THE <FILE lD>i 



AND 

IS 
NCE 
ND OF 
FILE 

USED 
PTY» 
BUT N 

FILE 

AT 

oentl 



ENDING 

EMPTY* 

numreR 

thf f 

FROM 
: IF 
ANY 1 

ot The 

, whe 
thf s 

Y Of t 



SEQUENCE 
THE ENT 
IS PRES 

ILE IS USE 
The START 
A NEW 

MRfDDFD s 
INCLUDED 

N IT TTSr 

AMf TtMe a 

HE New fil 



unmbeR 
iRE riL 
ENT. The 

D. IF B 
iNG S>EQU 
FILE tS 

iNcludf 

FILES TH 
LF tS cO 
LLOwiNr. 

E. 



S AKE 
E IS 
FILE 
OTH S 
FNCE 
BET 

cARns 
fMSiiL 
MPILe 
THE I 



INCLUS 

USED, 

FROM T 

EOUENCE 

TO ENdi 

nr Mad 

WILL B 

ves. t 

D. WILL 
NcLUDED 



IVE. IF THE 

If ONLY THE 

HAT SEQUENCE 

NUMBERS ARE 

NG SEQUENCE. 

E» AND The 

F WRITTEN ON 

HIS PROVIDES 

INCLUDE The 

FILES TO BE 



E IS BEING Made and the COPY PART IS PRESENT, THE 
CLUDE CARDS WILL NOT BE WRITTEN OUT ON ThE NEW FILE, 
E INCLUDED RECORDS THEMSelVeS WILL BE COPIED ONTO THE 
COPY PART IS IGNORED IF A NeW FILE IS NOT BEING MADE. 
LUDED FILES CAN HAVE S INCLUDE CARDS IMBEDDED WITHIN 
RECURSION ON THE S INCLUDE CARDS CAN OCCUR, 



99999926 
99999927 

99999928 
99999929 
99999930 
99'99993i 
9999993? 
99999933 
99999934 
9999993i5 
99999936 
99999937 
9999993B 
99999939 
99999940 
99999941 
99999942 
99999943 
99999944 
99999945 
99999946 
99999947 
99999948 
99999949 
99999950 
99999951 
99999952 
99999953 
99999954 
99999955 
99999956 
99999957 
99999959 
99999959 
♦99999960 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
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P 
P 
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P 
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107 
107 
107 
107 
l07 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
l07 
107 
107 
107 



$#PATcH number 108 FOR aLqOL CONTAINS 17 CARDS 



108 



IF BUjLoLlNE. [45111 THEN 

BUlLDLTNE,r47| I J I hSfOXeOTOg I «FALSf » 
integfR SAVfINXJ 

IF BUlLDLfNE,C45»U THEN 
BEGIN 

IF XMOOE « THEN 
BEG|N 

OPTlONwORn>»BOOLEANCO); 

FOR SAVEINXl.l STEP 2 UNTiL OPaRSIZe DO 

OPTlONsCSAVElNX]»«Ol 
BUlLnLlNE.t47in»«SEQXEQT0G»=FALSE« 

If lastused < 5 Then lastusei)«=i; 

XMOde}«iJ 
ENDI 
SEQXEQT00»«XM0DE I* ? AND XMQOE »» 4'* 
8UlLDLlNE.[47ll3t«SEdXEQT0Gl 
ENDI 



02331050 
02331060 
02365200 
02525000 
02525001 
02525003 
02525004 
02525005 
02525006 
08525Q07 
02525006 
02525009 
02525010 
02525011 
0252501^ 
0252501 s 
O2r526O00 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



108 
108 
108 
IQB 
108 
108 
108 
108 
108 
108 
108 
108 
1P8 
108 
108 
lOfl 
108 



$ithis patch makes it Possible to set or reset coMf'iLER option p loa 

»i"Seqxe«" any number Of times before The first begin, p loa 

»« after That irs condition will Rfmain unchange. it still p loa 

$« MAY NOT BE POPPED (PoP WILL ACT AS A RESET), P 108 



tiPATrn NuMqeR 109 rOR Al^fiOL CONTAINS 19 CaROS, OOOOOOOQ P 109 

(GITChOLe)),fUNcMONfILf)j 07422000 P 109 

rMlTNuM(UCARDNUMBERCl|4|44J)} 07422100 P 109 

SWITMONFIIE); 07516000 P 109 

rMiTNUM(0ACARDNljM8ER[l|4t44J)) 07516100 P 109 

fMITV(GNaT( 07^16200 P 109 

PASSMONFILE(RRI); 07619000 P 109 

EMiTNlJMtO&CARDNUMBERf 1«4«44]); 076i9l00 P l09 

F!LElDENT)» l089l000 P l09 

EMiTNUMrFORMATTYPE&CARDNUMBERCl UU41)J 10891100 P 1 09 

EMiTVf GnATcprInTI ))J 10B91200 P 109 

EMlTNUM(l4CARDNUMBERCltA{443)J 15011000 P 109 

EMITNUMCS&CARDNUMBERn j4i443); 15271000 P 109 

f- EMITNCGNaTCPRINTI))? 15271100 P 109 

EMITNUMCCIF SPcLMON THEN 3 ELSE 2) 15326000 P 109 

&CARDNL]MbER[IUj44J)| 15327000 P 109 

FMITVCGNaTCPRINTD); 15328000 P 109 

FMITNuM(5&CaRdNUMbERC1J4i441)J 15359000 P 109 

EMitNuMc5ScaRdNuMBeR[1J4:443)] 15374000 P 109 

FMiTV(GNaT{PRiNTI))> 15374100 P 109 

S( BY KpK - MSc DETROIT 99990000 P 109 

tl DATE 06/06/75 99990100 P 109 

»» THtS is the aLgOL HALF Of THF PaTCH that WiLL CAUSf The 99990200 P 109 

Si SfOUtNcf NuMbfR of ThF TARd TMAftF TO BE PRtNteD A'LONG with 99990300 P 109 

Si Ihf monitor tNfORMaTtON for an tTEM being monitored, 99990400 P 109 

*« tN addiTtON, tNtrinstcs Patch ii6 must be uSfo wtTh this 99990500 p 109 

SI PATCm. 99990600 P l09 

$i *itt* **************************************** t********************m** P 109 



SfPATCH NUMBER 11° FOR ALGOL CONTArNS 2 CARDSl 

XM0DEt«i; IF lASTUSED < 5 AND lASTUSEO # 3 THEN LASTUSEDiaiJ 
IF LASTUSED # 1 THEn Gn To AGAInI 
SI DATE 9/2/75 
SI BY JtC - MSA CENTRAL 

Si THIS Patch corrects a probufm that wouUd occuR if a 
Si "s Tape" card here inciuded in the taPe or cast files 

SI INPUT to an ALGOL COHPllEt THE COMPILER WOuLd HaNG OR 

Si ABORTt NOW THE *♦$ TAPF" OPTION MAY ONLY BE SFT FROM 

Sf THE "CARD" INPUT FILf, 

$i ********************************************************* *************99999999 P 110 
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»»PATrH NuMqpR Ul fO« aI'QOL CONTAINS 24 CA^D, 



oooooooi p in 



254 



» voint 



SCA 
C'5ljNT in 

IF NOT S 

RFGlN 

IF COUNT 

CACCUM 

02781000 

T.I 

T.C 

MOV 

IF Poo 

IF S 



c 

MOV 

GO 

IF 
E 
I 



NNpRi rTRiNg* OcTALf C>R HEX cONS 

0) T !«= IF STReaMtOg THEN 63 pL 

TRfaMtOG aNo COuNtsS aNO BOOLEAN 

«■ ArcuMrni FUAG(?54)i go to 

< 8 OR (cOyNT B 8 ANp NOT BOO^E 

ci],ci8!i])) Then % fiag bit not 



TaNT has FLAG BIT SET. 
St P| 

CACCUMCn.tlBjlJ) THEN 
ScaNaGAINI ENDi 

AN 

sft, fulu word const. 



DATE 
8Y Jt 
THIS 
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AS LO 
IF Th 
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STATE 

HEX» 
A STr 
LEnT 
CONST 
CONST 
AN 8 
THAN 
CONST 



9/11/75 

C - MSA C 

Patch aUt 

constant 
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E CONSTAN 
ICITED. E 
N AODjTiO 
MEnT IN A 
OCTAL' RE 

Ing. In t 

SIX BIT S 
RUCTEO AN 
ANTS* THE 

character 
6 Then th 

ANT ARE U 
SOMp EXAM 



NCR I 
LASSi 
ECHAR 
LEAN( 
TrEAm 

T.CL 
LSE 

FLAG 
E 

J» A 
ECHAR 
TO CO 
STEPI 
LCLAS 
F ELC 

MOVE 
C# 

entRa 

ERS T 

S CAN 

CONS 

t has 

RROR 
N, Th 
STRE 

al or 

HE CA 
TrING 
D USE 
FULL 
S STR 
E RIG 
SED A 
PLESI 



■ COUNT t» (CxCOUNT-i)DtV 6 + II X # OF CHARS, 

a strngconi 

ACTERS(1»ACCUM[/U'0»ACCUM[1 
ACCUMtn. [18:113 THEn % FlA( 
TnG THEN 
ASS »« STrInG 



iG BIT SET. 



C?54l 

CcUMt43j % GET FULL WORD EQ 

acteps(c0unt.accum[4]»8-c0u 
mpletej 
/ string and elclass * str 

S * LITNO AND EI.CLASS # NqN 
LaSS ■ LITNO OR ULCLaSS » N 
CHARACTERS(COUNT;sIF ADOR < 
8-COUNT.ACCUMC13'3)J 



L. 

Hf ALGOL cOMPILeK 

CONTAIN 8» 12» 
TflNTS DO NOT HAVE 

TH?: FLAG BIT SET 
254 

E SYNTAX FOR THE 
Am PROCEDURE HAS 

INTEGER CONSTANT 
SF OF THE HEX OR 

OF THE Same leng 

D. IN THE CASE OF 

WORD EQUIVALENT 
InG WITH THE EXCC 
HT MOST N CHaRACT 
S THE LITERAL. 



SO THaT S 
R 16 CHARA 
THE FLAG 
THEN A NE 

"DS :a N L 
BEEN AtjER 
S MAY BE U 
OCTAL CONS 
TH AS THE 
THE REAL 
IS CONSTrU 

PTlON THAT 
ERS OF The 



UIVALENT OF STRING. 
NT.ACCUM[n»3)J 

ngcon and 
litno then 
onlitno then 
8 then addr else 8 



TRING. HEX OR 
CTERS RESPECTIVELY 
BIT SET, 
W ERROR MESSAGE 

IT <LlTERAL>" 

ED So THAT THE 

SED IN PLACE OF 

TAnTS* An EQUIVA- 

CONSTANT IS 

OR INTEGER 

CTED AND USED AS 

IF N IS LESS 

FULL WORD 



DS i« 2 LIT 3"3714"> 



DS J« 8 LIT 3''2122''| 



OS J* 8 LIT 7» 



DS Is 4 LIT 76 J 



PUT LEFT ARROW (OCTAL 37) AND 

QUESTION Mark coctal H) in 

DESTINATION STRING. 

PUT THF STRING "ABABABAP" INTO 
DESTINATION STRING. 

PUT THF STRING "00000007" INTO 
DESTINATION STRING. 

PUT The STRING "OOi?** INTO 
DESTINATION STRInC 



00185000 
02691000 
02697500 
02697600 
02703000 
02703050 
02776000 
02776100 
02776200 
02776300 
02776400 
02776500 
02776600 
02776700 
02776800 
02776900 
02777000 
02777050 
Q2777100 
16384000 
16384100 
16384700 
16384800 
16384900 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
999918Q0 
99991900 
99992000 
999? 2 100 

99992200 
99992300 
99992400 
99992500 
99992600 
99992700 
99992800 
99992900 
99993000 
99993100 
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P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
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P 
P 
P 
P 
P 
P 
P 
P 



«« OS t« 32 LIT ?.3a5{ PUACi: THE FULL WORD CONSTANT 99993200 P lU 

»« 2.3*5 INTO DESTINATION 99993300 P Hi 

it STRING 4 TIMES* 99993400 P 111 

$|*m»*<.*»*****»*«*******************************«t******«ni**^,#,„*^****^#^^99999999 p ju 



SfPATrH NUMreR 112 pOR aI'GOL CONTAINS 1 CARDt OOOOOOOl P 112 

ir UaSTUSed « 1 THEN ^EiniuM je "C "; 02013566 P 112 

SI DATE 9/23/75 99990000 P 112 

S« BY JTC " MSA CENTRAL. 99990100 P 112 

$1 THIS Patch corrects a minor problem in aLgol which 99990200 p 112 

»l CAUSfD the card IMAGrS TO BF MaRKED aS "OC INSTEAD 99990300 P 112 

SI OF "c" AFTER A SCAST CALL, 99990'JOO P U2 

tt ************************* ***********m4c*******i^*** ************ ****iti*0^t^99999999 P 112 



SfPATCH NUH8ER U3 FOR aLGOU CONTAINS h CARDS, OOOOOOOO P 113 

BOOLEAN PROCEDURE SW I TChGENC BEFORE, PD ) > 10954000 P 113 

VALUE BEFORE! BOOLEAN BEFORE^ REAL PD^ 10954100 P 113 

PUTcTAkE(LASTInFo)&(PDj«PRoGDESCBlDR(ADES»Tl»PD)) 10978500 P 113 

[l6«37llU'LASTlNFo)J X GET prT LOC AnD SAVE 10978600 P 113 

IF FoRMALF |> SW I TCHGEnC TBi » GT n 142P3000 P 113 

* VO^D 1422,6000 P 113 

Si DATE 9/24/75 99990000 P 113 

Si BY JtC ' MsA CEI^TRaL 99990100 P 113 

SI THIS Patth Makes Recursive switch LabeLs work Righti 99990200 p 113 

St pRfviOusly* fxtra prt locations weRf being Generated 99990300 p 113 

SI ANn NOT FIXED UP CAUSING SYSTEM HANfiS AND VARIOUS 99990400 P 113 

SI OTHER Nasties, 99990500 p 113 

$ I ************************* **if****i^*** A **m**nnit*iif^,t***it:*,t,^,i^^,^,*^*t,*^*,^^^^gifgg^ggg p jjj 



SI PATCH NUMBER 11'^ FOR ALGOL CONTaINS 13 CARdS. OOOOOOOl P 114 

EDITLINE(LIN»FCR»L,[36I10]» 02182750 P 114 

SGN0.L,C45t23»MEDlUM. OMITTING); 02192760 P 114 

STREAM PROCEDURE ED I TLl NE( LI NE» NCR* R» S' L» SYMBOL, OM I T ) ; 02183500 P 114 

VALUE NCR»R»S»L»SYMB0I.,0MIT» 02183750 P 114 

IF sc*** - Then dsi«i2 lit" " else 02186O00 p 114 

Begin , 02186250 P ii4 

Si»»L0C S; OSt.4 DECI OSIbLIT "I"? 02186300 P 114 

Sti»LOC RJ 051^4 pec; DSULIT 'Mttj 02186400 P 114 

Sll»LOC li DSlpi DEO DSleLIl •• "J 02186500 P 114 

„ ,, ^NDI 02186600 P 114 

OmIT(DI «« DI " 12; DS :« 1? LIT " lOMiT: "j DI l» LINE; 02186750 P 114 

OS |. a LIT - lOMlTi")! 02186760 P 114 

E0ITLINECLIN»FCR»'' " , 0» 0»MED I UM» 0) ; 05038000 P lU 

SI BY KpK - Msc DETROIT 99990000 P 114 

SI DATE 01/22/76 99990100 P 114 



SI THIS PATCH ADDS THE SFGMENT AND SYLLABLE NUMPFR TO 99990200 P lU 

SI THr OUTPUT PRODUCFD PN THE: LINE PRINTER FILE, 99990300 P lU 

it'^************m*ll^************************^,^*.J^^^,*1t^4,t,0^^^*^,^^,^^,^^,^^^^^^ 99990^00 P 114 



S#PATCH NUMBER 116 FOR aLGOL CONTAINS 515 CARDS 00000000 P 116 

S VOIOT 01001771 01001750 P 116 

* XReF STUFF 01007010 P 116 

»***************n'*******t*********ti,****7¥*******************:tim*<^***t***rt,^0 1007 015 P 116 

Jbpav 01007020 P 116 

'»'<"*' 01007025 P 116 

XREfAY2C0:?9], % ARRAY qE ONE kVQRD REFERENCE RECORDS, O1OO7O30 P 116 

% THE LAYOUT OF EACH WflRD IS 0l00703«5 P 116 

I , , 01007040 P 116 

% iCllSJ TYPE OF REFERENCE 01007045 P ll6 

X « FOR FORWARD DECL 01007050 P 116 

% * 1 FOR Label Occurence oioo705i p lu 

J! a 2 FOR NORMAL OECl- 01007055 P 116 

X « 4 FOR NORMAL REFERfNCE 01007060 P 116 

% « 5 FOR ASSIGNMENT 01007065 P 116 

% 01007070 P 116 

f NOTE! The lower ORdeR bit 01007075 P 116 

r Of this field is on 01007080 P 116 

J! JF YOU want stars O1OO7O85 P 116 

« AROUND This reference 0i007090 P 116 

« in The xRef 01007095 p u6 

K 01007100 P 116 

% .r6«l5] iHENTlFlEf* ID. NO. 01007105 P 116 

% this is a UNiWUe number that 01007110 P 116 

X IS ASSIGNED WHEN THE 01007115 P 116 

* IDENTIFIER IS ENcOuNTERe 01007120 P 116 

% FOR The FIRST TiMe. 01007125 P 116 

X 01007130 P 116 

% , [211273 SEQUENCE NUMBER 01007135 P 116 

X 0l007l40 P 116 

XREfAYuO:9], % RECORD BUFFER AREA FoR WRITING OUT THE Oi007l45 p ii6 

% namE Information records, one record 01007150 p 116 

% IS Written fqr each identifier in the symbol 01007155 p 116 

% table when the identifier is purged From the 01007I60 p lU 

% SYMBOL TARLE* I»E,» WHeN LEAVING THE BLOCK 01007165 P 116 

% IN WHICH THE IDENTIFIER IS DECl-ARED. 01007170 P 116 

X 01007175 P 116 

J! THE Layout Of each RrcoRo isi oioo7i8o p ii6 

X 01007185 P 116 

f WORDS 0-7 The identifier with blank 01007190 P 116 

X FfLL ON The Right 01007195 p ii6 

X .. 01007200 P 116 

X Word 8 010072O5 p 116 

X ,t21«l2] SEGMENT NUMBER IN WHICH Oi0072lO P 116 

X This identifier was DECLAREDOiP07215 P M6 

X 01007220 P 116 

% ,C33»153 IDENTIFIER IDt NO, 01007225 P 116 

X 01007230 P 116 

X WORD 9 fL-BaT WORd 01007235 P 116 



(1 



XlNF0r0«3l.0«i27jJ 



integfR 
xRefPt. 



XuUn; 



definf 

SFGNOr 

idnof 



t33»153# 



REriDNOF at6il5]# 
SeQNOf « f?lJ27]# 

XREFITCINDEX»SEQN 
BEGIN IF XREF T 

XMARKcREFTYPE) ■ 
BFGIN IF XREF T 

XREFDUMPf INDEX) « 
BeGtN tF OEFlNl 

XREFlNFOtlNOEn •= 
XlNFOtnNDEX).L 

FORWlRDREf ■ 0#' 

UetREF » U» 

DECLRFF ■ 2|» 

NORMAl*REF « <>#* 

ASS16NREF • 5#» 
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X 
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% 
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HEN c 
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X 
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,t21«121 SfGMeNT number IN WHICH 
THIS IDENTIFIER WAS DEClO 


IDENTIFIER ID. NO. 
IF THIS ID, NO, IS ZERO 
THEN XREF WAS NOT ON 
AT THE TIME THE IOENT 
WAS DECL.AREO AND ALL 

FUTURE References will 

BE DISCARDED. 



This array contains one entry for each entry 
IN The info table, if you have the index 

OF THE ElBAT WqRD FOR AN IDENTIFIER IN 
THF. info TABLt YqU CAN FIND THE XInFQ WORD 
FOR THE IDENTIFIER BY REFERRING TOt 

XlNFO[lNDEXtLlNKR. INDEX. LiNKc DIV 2] 

EACH ENTRY COMTAINSJ 



;t33«15] 



CONTAINS INDEX OF NEXT AVAILABLE SLOT IN 
XREFAY2, WHEN THIS BECOMES QReATeR 

Than 30 the current array is dumped to disk 

AnD XREFpT is reset TO ZERO, 

this Variable controls the assigning of 
ip» NO, to identifiers. It Is incremented 

FACH TIME A NEW IDENTIFIER IS ENCOUNTERED. 



FIFLdS in XINfO entries and WORD 6 Of 

IDENTIFIER Records. 



FIELDS Of Reference woros 



TYPE) « X define to ADD INFO TO REF TABLE 
ROSSREFITCINDEX.SEQNO.REFTYPE)! END#» 

DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 
REFAYPtXREFPT-n.TYPEREF «» REFTYPE END** 



DEFINE TO DUMP SYMBOL TAPLE INFO FOR IDENTiFIERO 

«n Then CRossREFouMPf inoexji end#. 

DEFINE To TRANSLATE INFO RoW AND COLUMN To 
(INDEX), lInKC DIV 2J|, % XInFq ROW AND COL 

DEFINES FOR DIFFERENT REFERENCE TYPES 



007240 
007245 
007250 
00725^ 
007260 
007265 
007270 
007275 
007280 
007285 
0Q7290 
007295 
007300 
007305 
007310 

007315 
007320 
007325 
007330 
007335 
007340 
007345 
007350 
007355 
007360 
007365 
007370 
007375 
007380 
007385 
007390 
007395 
007400 
007405 
007410 
007415 
007420 
007425 
007430 
007435 
007440 
007445 
007450 
007455 
007460 
007465 
0.07470 
007475 
007480 
00748 t 
007482 
007483 
DQ 7.495 
007486 
007490 
007495 
007500 



P 
P 
P 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 

U 
16 
16 

16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 



W Flt-r DSKl DISK SERIAL t ?0| 8 16 3 ( 2» 10» 30) | 01561085 P 116 

FILf DSK2 DISK SERIaU [ 20 1 450 ] C2# 30f 30 ) ; 01561087 P 116 

%ii^^fjif<$*ittt^i^**t******* ******************************* *********i^*****tf****^^ p [16 

X 02001610 P 116 

X MISr.El'l-ANEOUS CROSS REFERENCE PROCEDURES 02001615 P 116 

X 02001620 P 116 

S VOIoT 02001831 02001625 P 116 

%****^t*i^***:$****if*ii,****t**********************************************m*QZQ0l630 P 116 

X 02001635 P 116 

PROfiEnURE rROSSRFF!T(lNnEX»SEQNO»RrrTYPF)? 02001640 P 116 

VAl-UE IN0EX»SEQN0.ReFTYPE« 02001645 P 116 

REAL lNOEX»SEQNO.REFTYPEi 02001650 P 116 

BEGIN 02001655 P 116 

IE XREFINFOtlNDEXj.IDNOF # ThEN % SAVE O2OO166O P 116 

BE^GlN 0200l66iS P 116 

IF XREFpT > ?9 THEN % NO SlqTS LEFT 1m ARRAY. WRITE IT qUT. 02001670 P 116 

BF6IN 02001675 P 116 

WrITE(OSK2.3o»XrefaY?C*))i 02001680 P ll6 

XREFPt t" 0> 02001685 P 116 

ENDj 02001690 P 116 

XRefAY2[XRefPT] «= SEQNO R RFFTYPf TYPeRfF R xREF I NfO [ INf)FX ] 02001695 P 116 

RfFIdNOf-; 02001700 P 116 

XRefPt «« XRffPT + l; % FVEN though the aRRaY may be full now we 02001705 P 116 

% CANT wRfTF IT OUT BfCaUSf SOME ROuTjNfS 0200l7l0 P 116 

% WtLL look back at The entry we JUST PUT 02001715 P 116 

X tN and FtX iT UP, 02001720 P 116 

END* 02001725 P 116 

ENd Of cROSSREFTTI 02001730 P 116 

X 02001735 P 116 

PROCEDURE CROSSREFOUMPdNorXjJ 02001740 P 116 

VaI'UE INdfXi 02001745 P 116 

REAL iNdeXI 02001750 P 116 

BEGIN 02001755 P 116 

STRfAM PROCEOURE MOVExRFFINFO(S,D»N); 02001760 P 116 

VALUE NI 02001765 P 116 

BEGTN 02001770 P 116 

Si t« D8 DI »s DJ OS i« 8 LIT t w ) OS t» 7 WDSJ % BlAnK RECORD 02001775 P 116 

Si t« Si SI »■ SI + 3J DI i« Oj DS J' N ChR) X MOVE IDENTIFIER 02001790 P 116 

t'ND OF MOVEXrEFInFOJ 02001785 P 116 

X 02001790 P 116 

IF XrEfINFOCINdeXJ.IdNoF * THEN % DUMP It 02001795 P U6 

BEGIN 02001800 P 116 

M0VfXREFINF0(INF0[1NdfX,LINKR, INDEX, LlNKc+lJfXREFAYlt*3» 02001805 P 116 

TaKECINDEX+1)»C12|6])? 02001810 P 116 

XREFAY1C8] |» xReF I NfO[ ! NdeX 3 > 02001815 P 116 

XREFAYU'I «« TAKE(lNnFX); X fLbaT word 02001820 P 116 

WRlTE(DSKl,10,xREFAYlr*3)» 02001821 P 116 

XREFINfOctNOEX] !• 01 0200182? P 116 

END» 02001825 P 116 

END Of cROSSRefoUMPI 02001630 P 116 

tVOlOT 02682921 02882099 P 116 

IF GTl *\ aNd NOt MacROId THpN X NOT RpSERVED WORD 02682100 P 116 

XREFIT(T.LlNKfCARDNUMBER»NORMALREF)l X BUlLO XREF ENTRY 02.862200 P 116 

SVOID 07596500 P 116 

XM&RK{LbLrfF)I X THIS WILL SORT AHEAD Of DECUaRaTION 07598100 P 116 

X WHEN WE GET AROUND TO THE XREF, 07598200 P 116 

XMARK(ASSlGNREF)i X FILL STATEMENT 07687600 P 116 



XMARKf ASSiRNREF)^ * SeaRCh STATEMENT 07635500 

^> XMARk(ASSigNREF)» X FOR STATEMENT 08if8l00 

i XREFDUMPfPOINTER)! % DUmP XREF INFo 13?83500 

' S VqIOT 13301731 13301099 

IF XrEF then % MAKE DECLARATION REFErEmCE 13310050 

IF CaCCUMCOJ.cLaRS * DEFINEDIO OR NOT 13310075 

800UEAN(ArCUMtO]fFORMAL.)) THeN i NOT DEFINE PARAMETER 13310080 

S vOlnT 13310601 13310099 

nrGfN 13310100 

XRff1NfO[NfXTINfO] la 13310200 

IF SPECTOG then 13310300 

XREFlNrOtFl^BATtll] 13310350 

FLSe 13310400 

CCXLUN In XLUN + l) & SGNO SfGNOF)J 13310450 

IF SPeCTOg ThfN % JUST GO f?ACK AND FIX UP XReF ENTRY 13310500 

XMARK(DFcLRfF) 13310525 

EL-SF 13310550 

XREFlT(NrXTlNFO.cARnNUMpE«»IF PTOG AND NOT STReaMTOq 13310575 

THfN NORMaLRfF eI-Sf DfCIREF); 13310580 

fNd 13310600 

FUSE » DEFINE PaPaMeTeRS - DONT cf<OsS REF, 13310700 

XRFFlNFOtNEXTlNFOJ s« 13310750 

ELSE 13310600 

tf defining. m m ] Then % we are doing xrefing 13310900 

XREFlNFOtNEXTlNFOl "a Oi 13310950 

IF XREF And not SpECTqG then % ERaSE PREVIOUS XREF ENTRY, 13348100 

ACCUMt03 :* » DEFInEDID CLASS * ] FqrMAL; U259090 

SVOIOT 14259092 

XMaRKCDEcLREDi % PROCEDURE DECLaRED FORWARD, MaRK LaST 14310500 

% XREF ENTRY AS A DECLaRaTION, 14310501 

XReFOUMP(J)J % DUMP XREF INFO 14445100 

XREFIT(PROlNrO,0»FORWARDREF)} % WE NpED THIS SO WE CAN FIND 14469100 

% THE FORWARD DECLi DURING XREF 14469101 

REAU ReHfMBFRSeQnO} % REMeMreRS SEQUENCE NUMreR Of VaRIAPLE 15075550 

% ON Left hand sidf of assignment so we I507555i 

% can XREF IT CORRfCTLY. 1507555? 

ReMeMbeRSfQNO Ja. CARdNUMBeR* 15085100 

XMaRK(ASS1GNREF)j « ASSIGNMENT TO SIMPLE VARIABLE, 1509UOO 

JVOIDT 15092010 

BEGIN 15113100 

BEGIN 15115000 

ERR(20nJ * PARTIAL WORD NOT LEFT-MOST 15115100 

GO TO exit; 15115200 

END I 1511530D 

XREFlT(TALLfREMEMBERSEQNO,ASSlGNRFF)» 15116000 

GO TO Ll» 15116100 

END? 15116200 

XREFiTrTALL»REMEMBERSEQNO,ASSlGNRFF>^ % ASSIGNMENT T015301100 

% SUBSCRIPTED VARIABLE. 15301200 

IF STEPI « ASSIGNOP THEN 15342000 

IF Pi « FS THEN % PARTIAL WORD IS LEFT-MoST 15342100 

BEGIN 15342200 

XREFlT(TALL»REMEMBERsEoNOf ASSIQNREF)* iif PART I AL153421<)0 

% WORD ASSIGNMENT TO SUBSCR. VARf 15342400 

GO TO LASTI 15342500 

fND 15342600 

xmark(lbLRff)i % Mark labfl occurence for xref I6159100 
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P 116 



M XMaRK(ASSiGMRFF)J 16318500 

IF (XREF OR DEFINING. till]) AND XLUN > THEN 17001000 P 116 

DEFINE XREFINFOtlNnEX] « I NFO t ( ( I NDEX ) , CF DiV 2),t33l7]» 17002005 P 116 

((INDEX). CF OIV 2),LINKC]#» 17002006 P 116 

CF * t33ll5]#» 17002007 P 116 

FF « tl6ll5]#» 17002006 P 116 

NEWIDIINDEX] * (IF B00LE.AN( I NDEX ) THEN XREF I NFOt I NDEX ] .FF 17002009 P ll6 

FLSE XREFINFO[INDEX].CF)#» 17002010 P 116 

ARRAY TIMIMGS[0I2.0I3]J 17002012 P 116 

PROCEDURE SAVETIMES(I)» 17002015 P 116 

VALUE i; INTEGER U 17002020 P U6 

BEGIN 17002025 P 116 

INTEGER Jl 17002030 P 116 

FOR J »«= 1 STEP ] UmTIl ^ Do 1700203«i P 116 

TiMlNGSrIiJ] tm TImE(J)J 17002040 P 116 

ENDl 17002045 P 116 

PROCEDURE UpDATETlMESdU 17002050 P ll6 

VAtUE U INTEGER Ii 17002055 P lU 

REGIN 17002060 P 116 

INTEGER J> 17002065 P 116 

FOR J »« I STEP 1 UNTIL 3 DO 17002070 P ll6 

TIMINGStI»J] !»= TIME(J) " TIMINGStl'J^t 17002075 P 116 

ENdJ 17002080 P 116 

SAVETIMES{0)) % SAVE TIMES FOR STAf?T OF IDENTIFIER SORT. 17002525 P 116 

TOTALNO t» XLUNJ % REMEMBER NUMBER OF IDENTIFIERS. 17004500 P 116 

FOR ii* STEP 1 Until 819i do 17004700 p 116 

XREFINFOtI] IS 01 17004710 P 116 

BEGIN 17022000 P 116 

REWINn(nsKl); 17022100 P U6 

UPDATfTIMES(0)| X UPDATE TIMES FOR IDENTIFIER SORT. 17022200 P 116 

TIMINGStO»0] i« XLUN; % NUMrER OF IDENTIFIERS SORTED. 17022300 P 116 

END 17022400 P 116 

IF B00LFAN(At8]) ThEN 17025000 P 116 

XREFlNF0rAr8]].FF «= XLUN »3 XLUN + 1 17025100 P 116 

ELSE 17025200 P 116 

XREFlNF0rA[8ll,CF «w XLUN ts XLUN + iJ 17025300 P 116 

A[8],IDnOF «« XlUN) 17025400 P U6 

IF 63 SC < DC THEN 17033000 P 116 

TALLY t» I 17033100 9 tl6 

ELSE 17033200 P 116 

BEGIN 17033300 P 116 

SI !• Al 17033400 P 116 

DI !• B» 17033500 P 116 

IF 63 SO " DC THEN 17033600 P lU 

TALLY t« 2J 17033700 P 116 

end; 17033600 P 116 

OS l« 8 LIT 3''777777777''; % ID, NO, AND SeG,NO, FIELDS 17041100 P 116 

IF REAL(COMPir.cOMPSl(A»B)) « 2 TheN % IDS EQUAL 17042300 P 116 

COMPi is: AtflJ.IDNOF < B[8],1oNOF» 17042350 P 116 

S0RT(0UTPUT1»INPUT1.0»HV1»C0MP1.10» IF TOTALNO < 1000 THEN 17045000 P lift 

7000 ELSE 10000)1 17045100 P 116 

S VOIdT 17069001 17047001 P 116 

aRRAY I0TYPEC0t(lDMAX+3)x4-l]] 17047100 P 116 

STREAM PROCEDURE SfTUPHEAOI NQ( S»D»SEG» SEQNq. FWDTOG» LBLTOG. 17047200 P 116 

FWDSEQNO.TyPE'OWNTOG'PaRaMTOG. 17047300 P 116 

VALTOq); 17047350 P 116 

VALUF SEr..SE«N0,FWDT0G,LBLT0G»FWOSEQN0.OwNTOG,PA«AMT0G, 17047400 P 116 



valtogj 

BEGIN 

SI la Sj 

Dl !« Dj 

63 CIF SC * •• " THEN JuMp OUT ELsE OS i" CHR); 

nS I" 6 LIT " -" "l 

owntOs CDS i« * LIT "Own ")j 
SI «• typfi 



32 Of sc 



thfm Jump Out eL-se ns :• chR)j 



PaRaMTOr (OS «« 6 LtT « — • "I 
DS lis 4 LtT wNaMehi 

VALTOg fOl »» DI - m DS Ib 5 LIT "VALUE")! 

DS U iO LjT •» PARAMfTe^")* 
DS I^ 26 LIT •• " DECLARED iN SeqHENT "? 
SI •« LOc Seg» 
S !■ DU 

nS l« 4 DEC* DI I* nl " AJOS J' 3 FILLI % CONy aNq ZERO SUPPR 
nl «« DI + 8; X tO force store of UaST WORD 
si I" SJ 
Dl l» SI 

4CIF SC # •♦ •* THEN PS«= CHR ELSE SI j« Si + 1); 
nS Ib 4 LfT •• AT «; 

SI «» LOC seonoj 

DS Is 8 DECI 

fWDToG CDS l« 17 LIT •♦ -- fORWARD AT "| 

SI t* LOC fwoseqno; 
OS l» B DEC)} 
LBLTOG (DS I* 16 LTT " -- OCCURS AT "J 

SI f« UOc fwdseono; 

DS «" 8 DfCJJ 
fNd Of SETUPHEADlNrJ 

STREAM PROCEDURE AnDASEONOf SeQNO, N, STaRS,D) > 
VALUE SEQNO.N, stars; 

begin 
01 i» d; 

DI «« DI + 8> 

N (DI '« DI ♦ 10); 

STARSCDI ;» DI " 1} DS l« LiT "*")? 

SI 1= LOc SeQNOi 

DS I« 8 DFCI 



ns I* Lit 



w w 



{ 



STARS CDI l» DI - 1» DS l« LIT '•*")! 

STREAM PROCEDURE BLANKET(D); 
BEGIN 

DI «f P» 

OS l« 8 LIT t "I 

SI t» Of 

DS t" 16 WDS; 
fNd OF bLanketj 
PROCEDURE printxrefstatisticsi 

BEGIN 

SWITCH FORMAT STaTS I« 

(///» "cROSS RfFfReNcE STATISTICS", /, 

•♦ » /)* 

("PHASE ONE - 50RT",I6," IDENTIFIERS"), 



l7047aS0 


P 


116 
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116 
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116 


17048100 
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116 
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116 
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P 1 


116 
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P 


116 


17049420 


P ] 


116 


17049430 


P 1 


16 


17049440 


P ' 


116 
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116 
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116 


17049700 
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116 


17049800 


P ] 


116 


17049900 


P 


116 


17050000 


P 1 


116 


17050100 


P 1 


116 


17050200 


P 1 


116 


17050300 


P 3 


L16 


17050400 


P J 


116 


17050500 


P 1 


16 


17050600 


P 1 


116 


17050700 


P ] 


116 


17050800 


P 1 


il6 


17050900 


P 1 


116 


17051000 


P ] 


l,V6 


17051100 


P 3 


L16 


17051200 


P 1 


116 


17051300 


P ] 


116 


17051400 


P 3 


116 


17051500 


P 3 


[16 


17051600 


. P , 3 


116 


17051700 


P 1 


116 


17051800 


P 3 


116 


17051900 


P 3 


116 


17052000 


P 3 


116 


17052100 


P 3 


16 


17052200 


P 3 


LI 6 


17052300 


P 1 


116 


17052400 


P 3 


116 
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P 1 


11,6 


17052600 


P 3 


16 


17052700 


P 3 


16 


17 05 280 


P 1 


il6 


17052900 


P 1 


16 
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P 1 


16 


170S3100 


P 1 


116 
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P 1 


16 
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P 1 


16 
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L16 
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("Phasf 

("PHASf 
(X5f Itf'' 
(X5» I«," 

integer \p 
wRitf<i-inf 

pOR T :v 
BEGIN 
WHlTpf 
FOR J 
BEG I 
K 



TWO - SORT*** i7,»' ReEeRE 
ThRff " PRiNT cROsS RPF 
'"fSU," fUAPSfD TiMe f 
'••»J?I1,'' PROCESSOR TiMe 

• •••2I1,'* T/o tiMe"./); 

J»K{ 

»STATSrO])I 
STEP 1 UNTIL 2 OO 



LiNF#StATS[ I + n»T I MINGS 11,03 3) 

I. 1 STEP 1 UNTIL 3 DO 

N 

»« (TlMlNGSri.jJ + 30) 

1TE(LInE*STATS[J+3]»K d 



NCeS")» 

ERpNCF C^MT,** LINES)")* 

MiN|5fC)")» 

"), 



END; 
end; 
fNd printxrefs 
define ref 
boolean fi 

REAL LaSTA 
riFFINE I 
AtO] »« I 

Refcount I 

XRFFAYltei 
FILL IDTYP 

"UNKNOWN 

"STREAM 

"STREAM 

"DEFINE. 

"LIST, 

"FORMAT, 

"SWITCH 

"f^lLE. 

"SWITCH 

"SWITCH 

"PROCEDU 

"INTRlNs 

"STREAM 

"BOOLEAN 

"REAL ST 

"ALPHA S 

"INTEGER 

"BOOLEAN 

"REAL PR 

"ALPHA P 

"INTEGER 

"BOOLEAN 

"REAL, 

"ALPHA* 

"INTEGER 

"BOOLEAN 

"REAL AR 

"ALPHA A 

"INTEGER 

"LABEL, 

"FAULT, 

"SWITCH LIST. 



OIV 60* % RqUnO To NEAREST SECON 
IV 60»(K»"K HOD 60) DIV 10» 
K MOD 103; 



TATISTI 
COUNT « 
RSTTiMf 

DDRESS; 

» Last 

& NEwin 

« Refco 

im xRF 
El* 3 WI 

LABEL, 
VARIaRL 



format. 

FILE. 

LABEL, 

RE, 

ir, 

PROCFOU 

STREAM 

REAM PR 

TREAM P 
STREAM 

PROrED 
OCEDURE 
ROCEnUR 

PROcED 



CSl 

TIMINGS! J«0]# 
I % TRUE ON Fl 

AHDRESS*! 
n.REFlDNOF] R 
UNT + Ji 

FPT l8 Lastadd 

TH 



i % NUMBER OF REFERENCES SORlEDt 
RST CALL OF OUTPUT PROCEDURE, 



EFIDNOF) 
HESS J» OJ 



RE. 

PROCFDURE. 
OCEDURE, 
ROCEDURE, 

PROCEDURE. 
URF, 
• 

F, 
URE. 



ARRAY. 
RAY. 
RRAYl 

ARRAY. 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

19 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



(CLASS 
(CLASS 



1?6) 
127) 
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116 
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116 


17084010 


P 1 


116 


17084020 
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116 
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116 
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116. 
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P 1 


[16 


17064070 


P ] 


116 


17084080 


P 1 


116 


17084090 


P ! 


[16 


17084100 


P i 


116 


17Q84U0 


P ] 


[16 


17084120 


P 1 


[16 


17084130 


P ] 


[16 


17084140 


P 1 


il6 


17084150 


P 1 


16 


17084160 


P ] 


16 


17.084170 


P 1 


[16. 


17084180 


P ] 


[16 


17084182 


P 1 


16 


17064184 


P 3 


[16 


17084186 


P 3 


16 


17084188 


P 1 


16 


17084190 


P 1 


lU 


17084200 


P 1 


16 


17084210 


p i 


16 


17084220 


p 1 


L16 


17084230 


p 1 


16 


17084240 


p 1 


16 


1 7.0 8A 250 


p. 1 


16 


17084260 


p 1 


16 


17084270 


p 1 


16 


17084280 


p. 1 


16 


17084290 


p 1 


16 



LABEL F.0F2» SKIP; 17091100 P lU 

OWN ROOLEaN B2» FHDTOCi» LbLTOGj WaITINGFORFWDREFj l709lllf> P lU 

DFFINE MaTCH(a»B) « RFaLCBOOLEaN ( A 3 FQV BOOIEaM^B)) « 17091115 P lU 

REAL(N0T FALSE)II 17091116 P 116 

REAL 1| 17091120 P 116 

DEFINF LINECOUNT « T I Ml NGSt 2 »0 3 * ; % NUMBER OF LINES PRINTEOi 17091140 P lU 

OWN REAL FWDSEONO; 17091150 P 116 

IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS. 17091155 P 116 

REGIN 17091160 P 116 

FIRSTTIME »« FALSE) 1709116? P 116 

TIMEI J» TiMrcni 17091165 P 116 

DATIMEI 17091170 P 116 

UPDATETlMESCn; 1709U75 P 116 

SAVETIMES(2); % SAVE TIMeS FOR START OF XREF PRINT. 17091160 P 116 

FND; 17091200 P 116 

SVOIDT 17111001 17091201 P lib 

IF NOT 82 THEN 17091210 P 116 

IF B ThFN X END OF SORT - LIST OUT REST OF SEQ, NO, 17091300 P 116 

IF XReFPT * Then % we got some to LiST out 1709H00 P 116 

BEGIN 17091500 P 116 

WRlTEfLTME[DBL]M5»PAYr*l); 17091510 P 116 

LINECoUnT j« lINECoUmT + i> 17091520 P 116 

END 17091530 P lU 

ELSE % NOTHING TO LIsT OUT 17091600 P lU 

FLsE X NOT FNn OF SORT 17091700 P 116 

IF NOT MATCH(LASTAD0RESS»Ar03) aNd At ] .REF I DNOF * AND 17091600 P 116 

AtOl.RFFlDNOF > XREFaYI f 8] , I riNOF THEN 17091900 P 116 

IF AtOl.TYPEREF « FORWAKDREF THfN X 17092000 P 116 

WAITINGFORFWDREF l« TRUE 17092100 P- 116 

ELSE 17092200 P 116 

IF At03.TYPEREF « LBLREF THfN % 17092300 P 116 

BEGIN 17092A00 P 116 

LpLTOG :« TRUE! 17092500 P 116 

FWDSFONO »= A[0].SEaN0F; 17092600 P 116 

END 17092700 P 116 

ELSE 17092800 P 116 

IF AtOl.TYPEREF « OECLREF ThEN 17092900 P 116 

IF WAITINGFORFWDREF THEN % THIS MUST BE IT 17093000 P 116 

BFGIN 17093100 P 116 

WAITINGFORFWDREF »« FaLSE) 17093200 P 116 

FWDTOr, U TRUE' 17093300 P 116 

FWOSEQNO »» At03.SE0N0F» 17093400 P 116 

END 17093500 ? 116 

Ei.SE % ITS A NORMAL DECLARATION - NOT FORWARD 17093600 P 116 

BEGIN 17093700 P 116 

IF AtoltREFlDNOF > XREFAYj t 8 3 • IDNOF THEM 17093850 P 116 

DO 17093900 P 116 

READ(DSKl»lO.XREFAYlt*J) tEOF23 17093950 P 116 

UNTIL 17094000 P U6 

A[03.REFIdN0f < XREFAYHSJf IDNOFI 17094050 P 116 

IF AtOl. REFIdNOF < XREFAY1C8J.I0N0F THEN 17094100 P 116 

GO TO SKIP; 17094150 P 116 

IF XREFPT > THEN % THERE IS STUFF TO PRINT 17094200 P 116 

BEGIN 17094240 P 116 

IF SINGLT06 THEN 17094250 P 116 

WRITE(LINE'J5»PaYC*3) 17094300 P 116 

ELSE 17094350 P 116 



,^, WRlTECLINEtDBUJ.l5»PAYUJ); 1709^/100 P 116 

m LINECOUNT «= LINECOUNT + l; 1709/»410 P 116 

END 17094420 P 116 

FLSF 17094450 P 116 

IF NOT SINGIJOG ThEN 17094500 P 116 

WRITE(IINE)» 17094550 P 116 

XREFPT <> 0> 17094600 P 116 

BLANKeT(PAY[*]); 17094650 P 116 

SETUpHEA0ING(XREFAYir*]#PAY[*]*XREFAYl[8], 17094700 P 116 

SEGNOF»AtOl.SEQNoF»FWDTOG.LBLToG» 17094600 P 116 

FWDSEQNO'IDTYpEtClF (I ;« 17094900 P ll6 

XREFAYlt93»CLASS) > FAULTID THEN 17095000 P lU 

(idmax + I - fauLtId + n else 17095100 p 116 

IF I > IDMaX then ELSE I) x 4]» 17095200 P 116 

REALCl > BOOID AND XREFaY 1 [ 9 J , 1 9l 23 « 1)« 17095300 P 116 

REaKCI > BOOlD Or l ■ bOcLiD) aND BOOLEAN 17095310 P 116 

(XRFFAYl[9J.C9tl]5)» XreFAY 1 1 9] . [ 10 » U ) > 17095320 P 116 

FWDTOG J* LBLTOG j» FaLSEJ 17095400 P lU 

WRITE(LINE»15.PAYC*])? 17095500 P 116 

LINECOUNT i« LINECOUNT + i; 17095510 P 116 

BLANKET(PAYt*J)i 17095550 P 116 

END 17095600 P 116 

Else % it must be a normal reference 17095700 p 116 

IF A[0],SEONOF * LASTaDDRESS.SEQNOF THEN 17095750 P 116 

BEGIN 17095800 P 116 

ADDASEeNO(ACO],SEQNoF.XHEFPT»A[03,[5Jn» 17095900 P 116 

PAY[*35; 17096000 P 116 

IF (XREFPT J' XREFPT + 1) = 11 THEN XFULL 17096100 P 116 

BEGIN 17096200 P 116 

WRiTECLiNE,15.PaYC*])J 17096300 P 116 

LINECOUNT U LINECOUNT ♦ II 17096350 P 116 

XREFPT t» 01 17096400 P 116 

BLANKET(PAYt*]); 17096450 P 116 

End 17096500 P 116 

End 17096550 P 116 

ELSE % REFERENCE Tq SaME SEQi NO. SKIP IT 17096575 P 116 

ELSE % THIS IS A REFERENCE To THE SAME SEQt NO* - SKIP 17096600 P 116 

ELSE X NIT ENn OF IDENTIFIER FILE - JUST SKIP OVER REFERENCES 17096700 P 116 

E0F2» 82 »» TRUEl X SO SORT CaN GO TO NORMAL EOJ 17096800 P 116 

IF NOT B THEN SKIpj LaSTaDDRESS j * At03| 17096850 P 116 

END OF 0UTPUT2J 17096900 P 116 

Al03 |« 2"777777777777777''t * BIGgEsT FLOATING PT. NO, 17114000 P M6 

C0MP2 t« IF At03.REFI0N0F < Bt 3 , REF IDNOF THEN X DIF IDS 17117000 P 116 

TRUE 17117100 P 116 

ELSE 17117200 P 116 

IF AC03fREFlDN0F m Bt 3 . REF I ONOF THEN 17117300 P 116 

IF At03.tli43 LSS B[03,m43 THEN 17117400 P 116 

True 1 711 7500 P 116 

ELSE 17117600 P 116 

IF A[03,n«43 « B[03.[U4J THEN 17117700 P 116 

IF A[03»SE0NOF < BC03.SEQN0F THEN 17117702 P 116 

TRUE 17117704 P 116 

ELSE 17117706 P 116 

IF A£p].SEQN0F * BtOJ.SEQNOF THEN l7lt77Q8 P 116 

800LEAN(ArO].t5»l3) l7U77lO P 116 

ELSE 1711771!? P 116 

FALSE 17117714 P 116 

Else 17117720 p lu 
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FALSE 
FUSE 
FALSE; 
SAVETlMESCDl % SAVE TIMES FOR STarT OF REFERENCES SORT 
FIRSTTIME :* TrUEI % LET OUTPUT PROCEDURE KNOW ABOUT FIRST 
SORT (OUTPUT 2» Inputs* 0»HV2.C0MP2M» 6000)1 
UP0aTETIMES(2)| % update TIMES FOR PRINTING CROSS REFERENCE 

printxrefstatisticsj 

DATE 2/1/76 

BY JTC - MSA CENTRAL, 



THl 
CRO 
THE 
INF 
THF 

d: 



S patch is nearly a COMPLETE REWRITE OF THE ALGOL 
SS reference ROUTINES IN AN ATTEMPT TO REDUCE 

AMOUNT OF PAPER PRODUCED AND ALSO TO PrOVICE MORE 
ORMATlON ABOUT THr IDENTIFIERS, IN PARTICULAR. 

FOLLOWING C-hANgeS HAVF BeEN MADE' 



2)! 



ONE LINE iS LISTfD iN 
IDENTIFIER WhICh INCLU 

A, The name of The i 

b, the class of the 

Integer* Boolfan 

c, if the identifier 

Marked as a "nam 

D. THE SEGMENT aND S 

identifier is OE 

E. IF THE identifier 

if the PROrEOURF 
NUMBER Of the FO 

F. TF THE IDENtIFIfR 

Number at which 



The CROSS reference for each 
des The following informationi 
denTifier, 

identifier, e.g., real. 
. procedure, etc, 
IS A formal parameter it IS 

E PARAMETER" OR "VaUUE PARAMETER". 

fquencf number at which the 
ctAREn. 

Is A PROCEDURE IDENTIFIER' THfN 
IS DECLARED FORWARD THE SEQUENCE 
RWaRD DECLARATION jS LiSTEDi 
IS A LABEL iDE^iTlFlER. THE SECUENCE 

The Label occurs is Listed. 



ASSIGNMENTS lO TnENTlFTFRS aRE NOW STARReD IN THE 
CROsS ReFEReNce iN The EOLLOWlNr, additional CASESt 

A, WHEN A SUBSCRIPTED VaRiABLe jS USED iN ASStqNMeNT. 

B, when an A^^RAy row iS USED iN A fiLL STATeMeNT, 

C, WHEN AN ARRAY ROW jS USED iN A SEARCh STATEMENT, 

c, WHEN A Simple variable is used in a for statement, 

D, WHEN A LOCAL VARIABLE OR STREAM PARAMETER IS CHANGED 

BY BEING ASSIGNED THE VALUE OF Sl,Dl»Cl OR TALLY. 

3)« DEFINE PARAMETERS ARE NO LONGER CROSS REFERENCED. 

4), IDENTIFIERS REFERRED TO IN THE RIGHT HaNd SIDE OF a 
DEFINE DECLARATION ARE NO LONGER CROSS 
REFERENCED aGaINST THE DEFINE DECLaRATIONi 

5), IF NO IDENTIFIERS WERE CROSS REFERENCED* THE IDENTIFIER 
SORT WOULD BLOW UP WITH AN I/O ERROR 86, NOW. XREF 
CHECKS TO MAKE SURE THERE IS SOMETHING TO SORT BEFORE 
BEGINNING, 

6), IT SHOULD NOW BE POSSIBLE TO SET ANd RfSeT XREF 

INdtScRtMiNaNTLy DURlNfl A cOMPiLE WiThOuT CAUSiNq The xRef 
TO nET confused! PRpVlOuSLY. REEERpNCrS WOULD GET 
ASSOCIATED WITH ThF WRONQ IDENTIFIERS. THE RULE NOW IS THAT 

xRff must be on at The point of declaration for an 



17117730 




116 


17117800 




116 


17117900 




116 


17117910 




116 


AL 17117920 




116 


17119000 




116 


17119100 




116 


17119200 




116 


99990000 




116 


99990100 




116 


99990200 




116 


99990300 




116 


99990400 




116 


99990500 




116 


99990600 




116 


99990700 




116 


99990800 




116 


99990900 




116 


99991000 




116 


99991100 




116 


99991200 




16 


99991300 




16 


99991400 




lU 


99991500 




116 


99991600 




116 


99991700 




116 


99991800 




116 


99991900 




116 


99992000 




lU 


99992100 




116 


99992200 
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99992300 




116 


99992400 




116 


99992500 




16 


99992600 




16 


99992700 




U 


99992800 




116 


99992900 




116 


99993000 




]6 


99993100 




16 


99993200 




116 


99993300 




116 


99993400 




116 


99993500 




ir6 


99993600 




116 


99993700 




116 


99993600 




116 


99993900 




116 


99994000 




116 


99994100 




L16 


99994200 




116 


99994300 




[16 


99994400 




il6 


99994500 




116 


99994600 




16 


99994700 




116 


99994800 
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H 



SI 

ti 

Si 
Si 
Si 

Si 

St 



TDpNTiFirR TO Br CROSS RfffKeNced at all, 
7): prevtOusly* when The samf identifier Occurred tn 

DIFFERENT BLOCKS. THE IDENTIFIERS WOUlD BE LISTED 
IN NO PARTICULAR ORDER. NOW, THE IDENTIFIER ThAT 
APPEARS FIRST Will be listed FIRST IN ThE XreF. 



99994900 
99995000 
99995100 
99995200 
99995300 
99995400 
99995500 



P 
P 
P 
P 
P 
P 
P 



116 
116 
116 
116 
116 
116 
116 



S#PaTcH number U7 for ftLGOL CONTAINS 118 CARDS* 



618 BLOCK! aUXMEM aP 

SBIT 
NBIT 
FIELDID « 
AUXMEMV = 
FlEl^DV • 

LASTSEQUEN 
SORTA 

IF 



PEARS IMMEDIATELY BEFORE IDENTIFIER CNO TVPE) 
F at21»6]#, X STARTING BIT FOR FIELD ID. 
F »t27j6]#» X NUMBER Of BITS FOR FIELD ID, 



EL 



IF ELcLaSS 
BEGIN 
FIRST 
SECOND 
GO TO 
END 
ELSE 

IF STEPI »= 

BEGIN 

FIRST 

SECOND 

IF STE 

BEGI 

ER 

GO 

end; 

GO To 
END 
ELSE 



CE «16 

«67 

STEPI 

BEGIN 
FIrS 

SEro 

GO T 
END 
SE 
IF ELC 

IF S 
BE 



FN 

ELSE 

IF 

• FIE 



1?5#» 
20#. 
21#l 
61* 

3IJ 

« FIELDID 



COMMENT 
COMMENT 
COMMENT 



I75i 
24; 

25; 



THEN % GET iNFO FROM INFO 



T l» ELBATCn*SBlTFl 
NO t« ELBATtn.NBITFj 
EXiTi 



lftbRket Then 
FIELDID Then 



LASS 

tfPi 

GIN 

FIRST is ElBATcU.SBiTf; 
SECOND i* ELBATt n.NBlTF; 
IF STEpI m rTBrKET ThEn 

60 TO EXITi 
D 



ELCLASS > 
LOID THEN 



LITNO THEN 



i« ELBATtn.SBITFI 
i»! 48 - CTHIRD i» 
SKlPli 



FIELDID THEN 



ELBAT[I].NBITF)> 



l» ELBATCn.SBITFi 

l» 48 - (THIRD l» ELBATcn.NBITF); 
PI # RTBRKET THEN 
N 
R(94); 

TO rxn; 
Ski Pi; 



00000000 


P 


117 


00418000 


P 




01154200 


P 




01154300 


P 




01278090 


P 




01298500 


P 




01298600 


P 




01575000 


P 




01580000 


P 




05273100 


P 




05273200 


P 




05273300 


P 




05273400 


P 




05273500 


P 




05273600 


P 




05273700 


P 




052 73 6 QO 


P 




05273900 


P 1 




05274000 


P 1 




05274100 


P 1 




05274200 


P ] 




05274300 


P ] 




OSZrA'^Qo 


P 1 




05274500 


P 1 




05274600 


P ] 




05275000 


P ] 




06313550 


P 1 




06313600 


P 1 




06313650 


P 1 




06313700 


P 1 




06313750 


P 1 




06313i00 


,P i 




06313850 


P 1 




06314050 


P ] 




06314100 


P 1 




06314150 


P 1 




06314200 


P 1 




06314250 


P i 




06314300 


P 1 




06314350 


P 1 




06J1.4A00 


P 1 




06314450 


P 1 




06314500 


P 1 




0631455^0 


P 1 




06314600 


P 1 





IF LLCLaSS * LITNO THEN % PREPARE FOR DYNAMIC DUL 06314650 P 

GO TO LI) 06314700 P 

0rT0'*3O0OO2ft000000O, "SriEL-n"* *67l 092H43? P 

0» ">SORT ". "TEMPORaR**. "YOOOOOOO", % SORTA X673 09214435 P 

•• " J cOMMfNj LaSTSEQUENcE»LaSTSeQROW \ X674 092U440 P 

639 STEP 3 UNTIL 660*663 STpP 2 UNtiL 667, 67i 09214516 P 

GOTSrHK^FIFLnDECfAUXHpMERR. 14016000 P 

STReaMfRR.DFFINEDEC#AUXMeMERRiFIFLDDEC» 14021000 P 

AUXMeMERR»FLAC(616)»J»«J+1)gO TO RfALDECI 14136100 P 

FIELDnEC» 14269020 P 

BCGfN - 14269040 P 

RfAL SAVEINfO. SBf NPI 14269060 P 

BOOLEAN fOuNdLBI % T^UF IF LFFT-BRacKeT WaS USED IN FIELD SPEC. 14269060 P 

LaBfI* EXIT. SAVFITI 14269100 P 

StOPeNTRY »b STOPfiSP is TRUr» 14269120 P 

I »■ I - II 14269140 P 

DO 14269160 P 

Begin i4269i8o p 

STOPDEFINE «« TRUE? 14269200 P 

STePiTI 14269220 P 

ENTRYfFlELDiD)! 14269240 P 

SAVEInFo »* LASTInFoJ 14269260 P 

IF ElClASS « REi.OP AND ACCUMfH * "I'OOOO" THEN 14269280 P 

BEGIN 14269300 P 

IF STEPI • LFTBRKET then % REMEMBER THIS 14269320 P 

BEGIN 14269340 P 

FOUNDLB «« TRUEj 14269360 P 

STEPIT; 14269380 P 

END 14269400 P 

ELSE 14269420 P 

FOUNDLB I* FALSE* 14269440 P 

IF ELCLASS « FIELDID THEN 14269442 P 

BEGIN 14269444 P 

SB I* ELBATCn.SBITFf 14269446 P 

NB I* ELBATCn.NBlTFl 14269448 P 

GO TO SaVEIT) 14269450 P 

END? 14269452 P 

IF ELCLASS K LiTNO THEN 14269460 P 

IF STePi 8 COLON THEN 14269480 P 

TF STePt « LiTNO ThEN 14269500 P 

IF (SB »« ELBAT[i-z3. ADDRESS) x 14269520 P 

(nB t* ELBATril. ADDRESS) # AND 14269540 P 

SB + nB < 48 THEN 14269560 P 

BEGIN 14269580 P 

SAVEITt 14269590 P 

PUT(TaKECSAVEINFO) & SB SBITF & NB NBITF. 14269600 P 

SAVEINFO); 14269620 P 

STEPIT) 14269640 P 

IF FOUNDLb then % BETTER HAVE RIGHT BRACKET. 14269660 P 

IF ELcLaSS « RTBRKeT THEN 14269680 P 

BEGIN 14269700 P 

STEPITI 14269705 P 

GO TO exit; U269710 P 

END 14269715 P 

ELSE 14269720 P 

ELSE 14269740 P 

GO TO EXIT) 14269760 P 
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ENDj 

end; 

FUAGCIH); 

DO STePiT until ELCLASS » COMMA OR fLcLaSS » SEMICOLON! 
EXIT! 
END 

unTtl 

ElClass It comma; 
stopEnTry t» sTopGSp is false; 

EnD; 

Go To STArT; 

ARRAY I0TYpEl0l(IDMAX + 4)x4-n) 

"FIELD. "» % 30 (CLASS ■ 125) 

"FAULT. -. % 32 (CLASS " 126) 

"SWITCH LIST. "i % 31 (CLASS » 127) , 

XREFAYlt93. CLASS) i FIFLDID THEN 
(IDMAX ■•• I - FlELDin + 1) ELSE 
DATE 2/2/76 
BY JTC - MSA CENTRAL 

THIS PATCH IMPLEMENTS A NEW OECLARAT I ON TYpE OF "FIELD'* WHICH 
PROVIDES A CONVENIENT MFTHqD OF DESIGNATING A PARTIAL WORD FIELD 
A LA THE 6700 ESPOL AND ALGOL MECHANISM, THIS METHOD IS CONSIDERABLY 
MORE EFFICIENT THAN A DEFINE BECAUSE THE PARTIAL WqrD FIELD INFOR' 
MATION IS STORED OFF WITH THE IDENTIFIER IN THE SYMBOL TaBLF THUS 
MAKING REFERENCES TO THE PARTIAL WORD FIE^D VERY INEXPENSIVE. 

THE SYNTAX FOR A PARTIAL WORo DECLARATION iS AS fOLLOWSI 

<FIEl'D r)ECLARATlON> Ma FIELD <FlEl.D LlST> 

<FIELD LIST> tt« <FtELD> / <F1ELD LlST> , <FIEL0> 

<F1ELD> Jt« <F1ELD iDENTIFIEH> « kFtELD SpEC I F I C AT I 0N> 

<FIELD IDENTIFIER> J»s <IDEnTIFIER> 

<FIELD SPECIFICATI0n> «»« <INTeGER> « <INTEGER> / 

r <INTEGER> I <INTEGER> ] / 
<FIELD identifieR> / 
r <field identifier* 3 

SOME EXAMPLES! 

FlFl-D CF ■ f33|l5J; 

FIfLO FF « 18tl5, 
SIZE » 08110; 

FiFi-ns May be used anywhere partial worq designators May be used 

AND MAY 8E ENCLOSED tN BRACKETS OR NOT AS DESIRED. ENCLOSING 
THF FlELn IDENTIFIER fN BRACKETS MAY HELP THF READABILITY OF 

The code but of course requires extha scanning by the 
comPtLER to process the brackets. 

Some examples; 

I ;* I.FFi 



14269780 

14269600 

14269820 

14269840 

14269660 

14269860 

14269900 

14269920 

14269940 

14269960 

14269980 

17047100 

17084275 

17084280 

17084290 

17095000 

17095100 

99990000 

99990100 

99990200 

99990300 

99990400 

99990500 

99990600 

99990700 

99990800 

99990900 

99991000 

99991100 

99991200 

99991300 

99991400 

99991500 

99991600 

99991700 

99991800 

99991900 

99992000 

99992100 

99992200 

99992300 

99992400 

99992500 

99992600 

99992700 

99992800 

99992900 

99993000 

99993100 

99993200 

99993300 

99993400 

99993500 

99993600 

99993700 

99993800 

99993900 

99994000 
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p 1 




p 




p ] 




p 1 




p 1 




p 1 




p 1 




p 1 




p ] 




p ] 




P 3 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 


1 7 


P 1 
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P 1 


1 7 


P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P 1 




P \ 




P 1 





$t 99994100 

$1 J I* IfCF g lo [SIZE] X K FFJ 99994200 

$« 99994300 

$t I.FF 1= J,tCF]; 99994400 

SI 99994500 

Sti»!4t****4<*******«i^«*««4>4<****4'***>l<***>('>^>»'**'*'***4>**4<**«4<*>|c4>4[4ti|ii^****4t*4<i(i«i|ii^*99999999 



P 

P 

P 
P 
P 
P 



117 
117 
117 
117 
117 
117 



$#PATrH NUMreR 118 FOR aLGOL. CONTAINS 22 CaRDS. 



00000000 P 118 



GLOBAbNlNpOO, COMMENT MaINjaINs VAIUE Of NjNfOO FROM bUOcK ON A 

GLOBAL Level so that the procedure "entry* 

can check for duplicate DECLARATIONS! 

oldninfoo, comment Remembers old valuf of globalnjNfooj 

■ definedio then % check if New declaration 

PTOG or STREAMTOg) AnD LiNKF 2 GLOBALNlNFOO 
■LAGf l) 



SAVELO » 
aJUMP »8 
L i« Of 

OLnNlNFOO J 



S 

Fa 



COMMfNT 
IF ELCLASS 
IF NOT ( 

Then f 

ELSE 

Else 

IF LEVEL 
FLaGH 

avel> 

LSEI X N 
% S 

* globalnin 



F * LEVEL THEM % DUPLICATE DECLARATION 



PENDING JUMPS IN THIS bLOCK YET. 

TART GENERATING cOnE AT WORD 0» SYLLABLE 0. 

FOOi X Remember where previous blocks 

X SYMBOLS RfGaN IN SYMBOL TARLE. 

rLOBALNINfOO :« NiNFOO l« NeXTINfOj % RfMfMBER where the SYMflOLs 

I FROM THIS bLOcK WILL qO 

% IN THE SYMBOL TaBLF. 

,k,diNfo#linka.linkb> 



SI 
St 
Si 
Si 
St 
St 
Sf 
St 
St 



RpAL J 
VOinT 14259005 
GLOraLNiNfOO 
DATE 2/2/76 
BY Jtc • MSA CENtRaL, 



Ik OLdNINfOOj 



THIS Patch pr 
ANn somfthiNg 

WAS DECLARED 
THF DUPLICATE 
SYMBOL MAY BE 



FVeNTS aN IDENTIFIER pROM BEING USED AS BOTH A DEFINE 
ELSE AT THE SAME RLOcK LeveL. WHEN THE IDENTIFIER 

A SECONn TIME IN ThF BLOCK, StNcE DEFINES ARE DISABLED* 
DECLARATION WAS NOT CORRECTLy RECOqNiZED. NOW. NO 
DECLARED TWICE JN THE SAME BlOcK NO MATTER WHAT, 



01620100 
0162D20O 
01620300 
01620400 
13339000 
13339100 
13339200 
U339300 
13339400 
13339500 
13340000 
14055000 
14055100 
14055200 
14055250 
14055260 
14055300 
14055400 
14055450 
14254JO0 
14259002 
14606100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 



P 
P 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



18 
IB 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 



SfPATCH NUMBER U9 FOR ALGOL COnTAInS 4 CARDS, 

CLOSECCARDiRElEASE)! % RELEASE PRIMARY INPUT FILE. 

CLOSE(TAPE»RELEASE)l % RELEASE SECONDARY INPUT FILE, 

LOCK(NEWTAPE»*)l % CLOSE WITH CRUNCH, 
SVOIDT 17002511 
St DATE 2/2/76 
St BY JTC - MSA CENTRAL. 
$1 

St THIS Patch causes thf compiler to close thf newtape file with 



00000000 

09407200 
09407300 
09407400 
17QQ2.490 
99990000 
99990100 
99990200 
99990300 



P 
P 
P 
P 
P 
P 

P 

P 



119 

119 
119 
119 
119 
119 
119 
1 19 
119 



»« CRuNrH. 99990400 P 119 



$#Patch Number 120 for aLgol contains 3 cards. 00000000 p 120 

IF MERgpTOG then % INDICATE NAMf OF SOuRCf FILE. 01835600 P 120 

WRlTEfLlNE,<X40. '♦SOURCE FiLEi "f Al » A6i "/", Al . A6, //>, 01835700 P 120 

(Nl ««TAPE.MFlD);r6«6]»Ni ,(N?»sTAPE,FI0).[6«6].N2)l 0l835800 P 120 

SI DATE ?/6/76 99990000 P 120 

$1 BY JTC - mSA CEnTRAl. 99990100 P 120 

SI 99990200 P 120 

SI THIS PATCH PRINTS THf NaME OF THE SOURCE FIUe BELOW 99990300 P 120 

SI THE NAME OF THE OBJECT FILE ON THE PRINTED LISTING IF TAPE 99990^00 P 120 

SI IS SET AT THE TIME THE HEADING IS PRINTED. 99990500 P 120 



SiPATcH NUMBER 121 FOR ALGOL CONTAINS 2 CARDS, 00000000 P 121 

SSeT OMIT LISTa • LIST 00000999 P I2l 

SPOP OMIT LISTa 00<l99999 P I2l 

SI DATE 3/2/76 99990000 P 121 

SI BY JtC • MSA CENTRAL 99990100 P I2l 

SI 99990200 P 121 

SI THIS Patch sets omit around the comment at the beginning of the 99990300 p 121 

Si aLgOl compiler to sPfed up Scanning of the comment, 99990400 p 121 

$t*#<^itL*^,m*******^*t *************************'¥********************** i't***99999999 P 121 



SfPATCH NUMBER 122 FOR ALGOL CONTAINS H CARDS, 

LASTUSEDlPtT|»DEFlMEARRAYcDEFlNElN0EXl*0EFlNElNDEX-3J),C33ll5: 
IF (GT2 f* T,ti8ll5]) '' THEN » THIS WAS A PARAMETRIC DEFINE 
BEGIN X pLfRGiNG PARAMETERS FrOM OEFSTACKHEAO 

GT2 I* TaKeCGTPj.LINKj X GET POINTER TO NEW DEFSTACKHEAD 
00 

PUT (TEXT[(NEXTTEXT|«(GT1 J "Take ( DEFSTACKHEAD) )»0YN AM- 1) 
,L I NKR.NEXTTEXT.L I NKC]» DEFSTACKHEAD) 
% THIS RESTORES THE PREVIOUS EUBAT WORD FOR 
% THIS PARAMETER IN CASE OF NESTED DEFINE, 
UNTIL 

GT2 » (OfFSTACKHEAD «« GTl.LiNK)! 

fndi 

TEXTfNFXTTEXT.LlNKR.NEXTTtXT.LINKC] l» TaKE(P)I 

NEXTTEXT !« NEXTTEXT + 11 
SI DATE 3/5/76 
SI BY JTC • MSA CENTRAL 
SI 

*l THIS PaTcH allows RECURSIVE REFERENCES TO THf SaME DEFINe 
S| TO WORK cORRfCTLY, FOR EXAMPLE* THF FOLLOWiNr DEFINE 
SI 

»« DEFINE ACA1.A2) - Al + A2* 

SI 



00000000 


P 


122 


02721000 


P 


122 


02721500 


P 


122 


02722000 


P 


122 


02722500 


P 


122 


02723000 


P 


122 


02723500 


P 


122 


02724000 


P 


122 


02724500 


P 


122 


02725000 


P 


122 


02725500 


P 


122 


02726000 


P 


122 


02727000 


P 


122 


12117000 


P 


122 


12118000 


P 


122 


99990000 


P 


122 


99990100 


P 


122 


99990200 


P 


122 


99990300 


P 


122 


99990400 


P 


122 


99990500 


P 


122 


99990600 


P 


122 


99990700 


P 


122 



$« Would yieuo the wrong results for the Tollowimg invqcationi 99990800 

*' 99990900 

SI A(A(1»?)»3) 99991000 

*' . 99991100 

SI THE RESULT WOUUO HaVf 8FEN 5 INSTEAD OF 6i RfCURSlVE REFERENCES 99991200 

SI ARE NOW HANDLED CORRpCTLY, 99991300 



**PaTcH Number 123 fOR aLgOL cONTATNS 3 cards; OOOOOOOO P 1Z3 J^ ^ ^ 



p 


122 


p 


122 


p 


122 


p 


122 


p 


122 


p 


122 


p 


122 



X MARK XVt. 0.122 00001030 P l23 

% MAY 9, 1977 00001040 P 1?3 

•'XVl.0,l22« 01631000 P 123 

«l BY DJZ - MSC OETROiT 99990QOO P 123 

SI DATE 05/09/77 99990100 P 123 

»» THIS Patch upoatfs The maRk levfLs in the symbol fiuei 99990200 P 123 






NUMBER oF ERRORS DETECTED . 0. 
PROCESSOR TIME » 53 SfCoNDS, 
I/O TIME * 33 SECONDS. 

LABEL OOOOOOOOOLINE 001 7728o?EXECUTE PATCH/mERGE PATCH /MERUE 



? COMPILE ALGOL/NUniSK aLGOL LIbRAR* 

PACKET 337 

INPUT lOUn CARDS FROM ZIP 

TIME 1600 

DATE 77280 FRIDAY. 10/07/77 



*♦* BURROUGHS B5700 OCMcP MARK XVI.O.I^S AND INTRINSICS MARK XVI, 0,132 *** 
#N0 MESSAGES TODAY 



6I00J56 
6100:56 



6»on 

6100 
6100 
6100 
6100 
6«0l 
6101 
6101 
6l0l 
6101 
6t06 
6«09 
6«09 
6i09 
6t09 
6110 
6»11 

6tn 

6»U 
6U3 
6117 
6M7 
6117 
6 1 1 J 
6117 
6117 
6117 
6»17 
6117 



J56 
j57 
j57 
«57 
159 
»01 
101 

U? 
:13 
155 
j53 
149 
|50 
|50 
t53 
134 
108 
«08 
(08 
123 
110 
MO 

112 
tl3 
114 
115 
J17 
120 
121 



? cOMPiLE a 

? ALGOL 

7 ALGOL 

? FILE 

? DATA CARD 

4t A 

CDR 

dka 

PRD 
DKA 
DKA 
DKA 
PRD 
CDB 



LGOL./NUDISK ALqOL L|BRARY 
STACK. 1000 

FILE TAPE* SYMBOL/ALGOL 
LlNF« LINE PRINT OR BACK 



DISK 
UP 



SERIAL 



7 END, 



LgOL/ALgOL" 2 BOJ 1600 05/12/77 
IN CARD DPJALgOL/ALGOUs 2 
IN SER SYMpOU aLqOL « ALgOL/ALqOL* ', 

0336 Out oil LiNEiALG0L/AL60L« 2 
OUT SpR DSKl SITf«aLGOU/ALGOU« 2 
OUT SfR DSK2 SITf«aLGOL/ALGOL'» 2 
OUT RDM ALGOL NUd I SK I ALG0L/ALG0L« 

0336 OUT OIPJALgO^/aLGOU* 2 
REL CARD DB»ALgOL/aLgOL« 2 



2 
2 



2 
2 



DKA REL SYMBOL ALqOL j ALGOL/ALqOL* 2 

DKA OUT SpR DSRTl S I TE I ALgOL/ALqOL. 

DKA OUT SeR DSRT2 S I TE l ALGOL/ ALGOL* 

DKA REl DSRTl S I TE J AlGoL^ AlGOL" 2 

DKA REl DSRT2 S I TE t AlGoL/AlGQL" 2 

DKA OUT SER OSrTi SI TE j ALGoL/ALGqLs 

DKA OUT SER DSRT2 S I TE i ALGOL/ALGOL« 

DKA REl DSRTl S ITE « AlGoL^ALGOL* 2 

DKA REL DSRT2 S I Te » ALG0L/ALG0L» 2 

DKA REL DSK2 Si TE I ALgOU/ALGOL* 2 

DKA REL OSKl S 1 TE I ALgOl/ALgOL* 2 

PBD0338 RfL 012 LiNe 19698 i ALgOL/ALGOL« 

DKA REL ALGOL NUDi SK | ALQOL/ALQOL* 2 

ALqOL/aLgOL" 2 SYNTX ERR 1617 

FOR ALgOL/ALGOL* 2J PROCESS- 736 SECS. 

pKT#0337 Removed 



10» 369 SECS» 0LAY« 9 



m 



UABEL OOOOOOOOOLINE 00i77280? COMPILE ALGOL/NUDiSk ALGOL LIBRARY 

BURROUGHS B-5700 ALGOL COMPILER MARK XVl. 0,122 



FRIDAY, 10/07/77. ftlOO PM, 



ALGOL /AUGOL 



ALGOL /NUDISK 



souRcf: file? symbol /algol 



OM' 

OMi 

OM 

OMi 

lOMi 

!0H' 

!OHi 

lOMi 

lOM! 

OH' 

OM! 

lOMi 

!0M' 

iOM' 

iQMi 

iOMi 

OMi 

iQHi 

>OMi 

OM! 

lOMi 

iOMi 

OH' 

OM' 

OMi 

OMi 

iQM' 

OM! 

iOM: 

OM! 

lOM! 
lOMi 

OM) 

OM] 
lOM] 

OM] 
lOM! 
!OMi 
IQM' 
!OMi 

OMI 

IOM! 
OM! 



OMIT LISTa • LIST «121- 



«SCT 

% 
% 

% 

% 
% 

% 

COMM 



B»5700 ALgOL/TsPOL SYMBOLIC 

Mark xVf, 0,122 

May 9, 1977 



X123- 
«123* 



lENTl 



TITLEI B5500/B5 
FILE ID« SYMBOL 
THIS MATERIAL I 
ANo IS NOT TO B 
EXCEPT IN ACCOR 

wRittfn AUTHORi 
burroughs corpo 



700 MARK XVI SYSTEM RELEASE * 

/ALGOL TAPE ID« SYMBOLl/F I LEOOO * 
S PROPRIETARY TO BURROUGHS CORPORATION • 



COPYRIGHT (C) 

BURROUGHS 
AA759915 AA3 

pRROR MeS 
t it* fi*tf ***$$******$« 



E RfPROOUCED* used. OR DISCLOSED 
DaNcE WITH PROGRAM LICENSE OR UPON 

zaTion OF tHE Patent division of 

RaTiON, DETROIT, MICHIGAN 48232 



l97fl 



* 



% 

pRROR NuMBfR 
000 
OOl 
002 



003 
00ft 
005 
006 
007 



1965» I97l» 1972. 

CORPORATION 
20206 AA393180 AA332366 

sages 



ROUTiNE»ERROR MpSSAGE 
BLOCKI DECLARATION NOT 
HLOCKI IDENTIFIER DECL 
PROCEDUREDECl SpEclFlCA 
IDEnTIFiE 
FoRmAL PA 
BLOCK! NON-IDEnTiFIER 

LIST OF DECLARA 
PROCEDUREDECl STREAM PR 



008 
009 



PROCEDUREDECl 
PROCEDUREDECl 
PROCEDUREDECl 

PROCEDUREDECl 
PiftOCEDUREDECi 



PRECEDED 
PROCEDURE 
BY ILLEGA 
PROCEDURE 
IN SAME B 
PROCEDURE 
BY f OR S 
DeClARATI 

foRmal pa 

BY ), 

FoRmal pa 



FOLLOWED 
ARED TWICE 
TlON PART 
R NOT APPE 
RAMETER PA 
APPEARS IN 
TION. 

OCEDURE DF 
BY. JU-EGAL 

DECLARATI 
L OECLARAT 

IDENTIFIE 
LOCKfNOT F 

iDENTiFlE 
EMI COL ON I 
ON. 
RAMETER LI 



BY SEMICOLON, 
IN SAME BLOCK, 

CONTAINS . 

ARING IN 

RT. 
IDENTIFIER 

CLARATION 

DECUA.RATOR, 
ON PRECEDED 
OR. 

R USED BEFORE 

ORWARD). 

R NOT FOLLOWED 

N PROCEDURE 

ST NOT FOLLOWED 



RAMETER PART NOT FOLLOWED 



00000999 C 

00001000 T 
00001010 T 
00001020 T 
00001030 P 
00001040 P 
00001050 T 
00001060 T 
00001070 T 

00001072 T 

00001073 T 

00001074 T 

00001075 T 

00001076 T 

00001077 T 
OQQfl.107.6 T 
00001079 T 
00001060 T 

00001081 T 

00001082 T 
OOOOlllO T 
000011 20. T 
00001130 T 
00001140 T 
00002000 T 
00003000 T 
00004000 T 
OQQQSflOO T 
00006000 T 
00007000 T 
QOOOfiOOO T 
00009000 T 
OOOlOOOO T 

QQQliaOQ T. 

00012000 T 
00013000 T 
QDOlAOQQ J 
00015000 T 
00016000 T 
0Qi)jtZi).Di).,I 
OOO18OOO T 
00019000 T 
00020000 _T 
00021000 T 



000 tt 0000 10 

lOMlTi 

lOMlTi 

lOMiT; 

tOMiT 

fOMiT 

40MIT 

tOMiT 

lOMiT 

I OMIT 

lOMIT 

lOMIT 

I OMI I 

lOMiT 

lOMiT 

tOMlI 

tOMiT 

lOMiT 

tOMlT 

lOMiT 

«0MIT 

lOMiT 

lOMlTi 

tOMiT 

I OMIT 

lOMiT 

lOMiT 

IOM 1 1 

tOMITl 

lOMIT 

IQMJTj 

lOMIT 

lOMiT 

.lOMll.i 

lOMITi 

tOMiT 

IQMU; 

lOMIT 

tOMiT 
LQMiJ: 

tOMiT 

lOMlTi 

IQMITj 

lOMIT 



:om: 
om: 
om: 

OM 
OM 

iom: 
om: 

lOM] 

OM: 

lOM 
OM 
OM' 
lOM 
iOM< 
lOMi 
lOMi 
0M< 
IOM' 
OMi 
OM- 
IOM] 
IOM 

iom: 
om: 
iom: 
iom 
iom: 
iom: 
iom: 

lOM 

lOM: 

lOM 

lOM: 

lOM' 
lOMi 
lOM' 
OM' 
OM' 
OM! 
OM! 
OM! 

om: 
om: 
om: 
iom: 

OM! 

om: 

OMj 

OM] 

lOMi 

lOM] 

lOMi 

lOM 

lOM' 

OMi 

OM] 

OM' 

lOMl 



010 

Oil 
012 

013 

OH 
0J5 

016 

017 

OiB 
0i9 

0?0 

021 

022 

023 

024 
025 



026 

027 

026 

029 
030 

031 
032 
033 

03A 
035 

036 
037 
038 
039 
040 
041 
042 
043 
044 

045 

046 



by semicolon, 
proceduredeci vaUue part contains identifier 
Which did not appear in formal 
paRapart, 

not ended by semicolon. 

ILLEGAL specification 



proceduredeci 
proceduredeci 



procedureoecj 



Value part 
missing or 
Part. 

OWNf SAVE» 



OR AUXMCM USED IN 



arraydecj 
arraydeo 

arraydec* 

ARRAYDEC* 

arrayoeci 
arrayspecs 

Blocki 

BLOCK! 
BLOCK! 

Blocki 



PROCEDURtDECt 
BLOCKi 



FiLEDECt 
FlLEDECl 

FjLEDECl 

FlLEDECl 
lODECI 

LISTDECI 

FqRMATDECi 

SWITCHOECl 



ARRAY SPECIFICATION, 
AUXMEM AND SAVE ARE MUTUALLY 
ARRAY CALL-BY-VALUE NOT 



EXCLUSIVE, 
IMPLEMENTED, 



ARRAY ID IN DE 

O y m 

LOWrR*BOUNO IN 
FOLLOWED BY I 

BOUND Pair lis 
illfgal lower 

array SPECIFIC 

OWN appears im 

IDEnTIFIERCNO 

saVe appears I 

IDEnTIFIER(NO 

stream appears 

IDEnTIFIERCTHE 
OUT), 

declarator pre 
Another declar 

LABEL cannot B 

declarator or 
Preceded by ow 
other declaRat 

missing ( IN F 

Missing Record 



claRation not followed 
array dec not 

f NOT FOLLOWED BY ], 

bound designator in 

ATION. 

MEDIATELY BEFORE 

TYPE). 

MMEDIATELY BEFORE 

TYPE), 
IMMEDIATELY BEFORE 
WORD PROCEDURE LEFT 

CEDED ILLEGALLY BY 

ATOR. 

E PASSED TO FUNCTION. 

SPECIFIER ILLEGALLY 

N OR SAVE OR SOME 

OR. 

ILE DEC. 
SIZE. 



ILLEGAL BUFFER PART OR SAVE FACTOR 

IN FILE DEC, 

MfSSiNG ) IN FILE DEC, 

MiSSING COLON IN DiSk DESCRIPTION, 



Ml 
M] 

SW 

FO 
SWITCHFILEOEClMl 

SWITCHFILEOECINO 

OF 

SUPERFORMaTDECIF 

superformatdecim 

SUPERFORMaTDECIF 
BLOcKt NyMBER 
lODECl PROGRAM 
HANoLESWLiSTi MiSSiN 

HANdLESWLiSTI ILLEGA 

lODEC MlSSiNG ] AFT 

lODEC* MISSING r Af 

OEFINEDECI MiSSi 

ARRAEl N0N-|^.ITE 



SSING ( IN LISTDEC, 
SSING ( IN FORMAT DEC. 

ITCH DEC Does not have «- or 

RWARD AFTER IDENTIFIER. 

SSING * AFTER FILED, 

N FILE ID APPEARING IN DECLARATION 

SWITCHFILE, 
ORMAT ID NOT FOLLOWED BY * , 
ISSING ( AT START OF FORMaTPHRaSE , 
OrMAT SEGMENT >1022 WORDS. 

f nested blocks is greater than 31 
Parameter block size exceeded 
G ♦ afTeR switch List id, 

L LIST id APPEARING IN -SWITCH list, 

ER disk in FILEDEC, 
TeR disk in FILEDEC, 

NG *♦«•♦ AFTER DEFINE ID, 

RAL ARRAY BOUND NOT GLOBAL TO ARRAY DECL 



00022000 




lOMITi 


00023000 




tOMITl 


00024000 




lOMlTi 


00025000 




lOMITi 


00026000 




lOMlTi 


00027000 




1 OtUT 1 


00028000 




tOMITl 


00029000 




lOMITt 


00029500 




imili 


00030000 




lOMlTl 


00030500 




lOMITl 


00031000 




.I0M-I-T4 


00032000 




lOMlTl 


00033000 




lOMlTl 


00034000 




lOMiTi 


00035000 




lOMlTl 


00036000 




tOMlTl 


00037000 




lOMlTl 


OOO38OOO 




iOMiTt 


OOO39OOO 




lOMlTi 


00040000 




tOMITi 


00041000 




lOMITi 


00042000 




lOMITi 


00043000 




♦OMlTl 


00044000 




lOMITl 


00045000 




lOMITl 


00046000 




lOMlTi 


00047000 




lOMITi 


00048000 




lOMITt 


00049000 




I OMIT » 


00050000 




lOMITt 


00051000 




lOMITl 


OOD520QO 




IQMITI 


00053000 




lOMlTi 


00054000 




lOMlTl 


00055000 




iQMin 


00056000 




lOMlTl 


00057000 




lOMITl 


00058M0 




IOM Ml 


00059000 




tOMITt 


00060000 




lOMITi 


00061000 




J OMIT I 


00062000 




tOMlTt 


00063000 




LOMITl 


00066000 




JAM III. 


00065000 




lOMITi 


00066000 




lOMITi 


00Q67O00- 


.1 


-lQilU4 


00068000 




lOMITi 


00069000 




lOMlTi 


00069100 




.lOJiIT-4 


00069200 




lOMlTl 


00069300 




lOMlTl 


00.045400- 




I-0H444 


00069500 




fOMlTl 


00069600 




lOMITl 


Qaa697i)0- 


,..| 


-IQMMl 


00069600 




lOMITl 



lOMfl 


ri 047 


TABLE' ITEM FOLLOWING 8» NOT A NUMBER, 


00069900 T 


lOMlTl 


iOMr^ 


ri 0461 


PROCEDUREDECI NUMBER OF PARAMETERS DIFFERS FROM FWD DECL. 


00069910 T 


tOMlTl 


tOM|l 


r« 0491 


PROCEDUREDECJ CLASS OF PAKAMETER DIFFERS FROM FWD DECL. 


00069920 T 


lOMlTl 


iOMf' 


ri oso: 


PROCEDUREOECl VALUE PART DIFFERS FROM FWD DECL. 


00069930 T 


lOMlTl 


lOMtl 


;» 051 


SaVePROC « FORWARD DECLARATION DOES NOT AG^EE WITh 


00069931 T 


lOMMt 


lOMfl 




ACTUAL DECLARATION 


00069932 T 


lOMlTl 


iOHtI 


't 052 


SAVEPROC JSTATEMfNt May not start WITH THIS KIND Of 


00069933 T 


lOMlTl 


IOMtI 




IDENTIFIER. 


00069934 T 


lOMlTi 


lOMfl 


'1 059 


ARRAYDFC improper array SIZE. 


00069938 T 


iOMlTl 


lOM]! 


rt 060 


FaULTSTMT: MiSSlNfi •■ iN FAULT STaTEMeNT, 


00069940 T 


lOMlTl 


tOM|1 


ri 061 


FAULtDECI INVALID FAULT TYPeI MUST BE FLAGi EXPOVR* ZFRD» 


00069950 T 


lOHlH 


lOMtl 




intovr* or index, 


00069960 T 


lOMlTl 


tOMf' 


^} 070 
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COMPARE PROCEDURE DOES NOT HAVE EXACTLY 


00218350 1 


r lOMITl 


lOMll 






TWO PARAMETERS. 


00218360 T 


IQMITI 


tOMll 


Ft 361 


EOLESCHECKl 


COMPARE PROCEDURE FIRST PARAM NOT l-D ARRAY, 


00218370 1 


lOMITl 


lOMn 


ri 362 


EQLESCHECKl 


COMPARE PROCEDURE SECOND PaRAM NOT 1-D ARRAY 


00218380 1 


lOMlTl 


lOMfl 


i 363 


INPROCHECX' 


SORT STMT INPUT PROCEDURE NOT BOOLEAN, 


00218390 1 


lOMlTi 


lOMil 


ri 364 


INPROCHECKI 


INPuT procedure DOfS NOT HAVE EXACTLY ONE 


00218400 1 


lOMlTl 


lOMtl 






Parameter, 


00218410 1 


lOMlTl 


lOMp 


n 365 


INPROcHECKl 


INPUT PROCEDURE PaRAMeTER NOT ONE'-D aRRaY. 


00218.4201 


' laMjTt 


lOMtl 


rt 366 


SORTSTMTI 


MfSSiNG ). 


00218430 1 


tOMlTl 


jOMn 


t 367 


MfRgfstmti 


Missing (. 


00218440 1 


lOMiTl 


lOMjl 


't 368 


MeRGfstmt* 


MORE THAN 7 OR LESS THAN 2 FILES TO MERGE. 


00218450 1 


1 OMlTi 


lOMfi 


'I 369 


mfRgfstmt: 


Missing ). 


00218460 T 


tOMlTi 


lOMn 


'1 381 


CMPLXSTMTl 


MISSING (, 


00218500 1 


lOMlTl 


lOMil 


rt 382 


CMPLXSTMTt 


TOO MANY OPERATORS, 


0021.850* 1 


1 0M4 1 4 


• OMll 


'» 381 


CmPLXSTmTi 


TOO MANY OPERANDS, 


00?i85l0 1 


lOMITl 


iomh 


^1 384 


CmPLXSTmTi 


MISSING . « 


00218515 1 


tOMlTi 


iomP 


'l 385 


CmPLXSTmTi 


TOO FEW OPERANDS. 


00S18S20 1 


laHiTi 


lOMn 


1 386 


CMPLXSTMTl 


ILLEGAL PARAMETER, 


00218525 1 


lOMITl 



lOMlTi 
lOMlTi 
lOMlTi 
lOMlTi 
lOMjTi 
tOMlTi 
lOMlTi 
lOMlT» 
tOMiTi 
lOMtTi 
lOMfTj 
lOMfTl 
IOMtTi 
IOMtTi 
lOMfTi 
•OMlTi 
lOMlTl 
tOMiTi 
•OMfTi 
•OMiTi 
IOMtTi 
lOMjTl 
lOMiTl 
lOMiTi 
iOMtTI 
lOMjTl 
lOMiTi 
lOMfTl 
IOMtTi 
•OMtTi 
IOMtTi 

lOMiTi 

IOMtTi 

IOMtTi 
lOMjTl 

IOMtTi 
IOMtTi 
IOMtTi 
IOMtTi 
IOMtTi 
lOMjTl 
lOMiTl 
lOMiTl 
lOMiTt 
IOMtTi 
IOMtTi 
IOMtTi 
IOMtTi 
IOMtTi 
iomiTi 

lOMlTi 
lOMlTi 
lOMlTl 
lOMjTi 
lOMfTl 
I OM T T I 
IOMtTi 



400 
«0l 

ao2 

403 

404 

405 
406 
407 
406 
409 
4l0 
411 

412 

413 
414 
415 

416 

4ir 

418 
419 
420 
421 

422 

424 
425 
426 

427 
428 

429 
430 



433 

434 
435 
436 
437 
438 
4 39 
440 

441 
442 



mer«imactmissing flue id in monitor dec. 
merrimacimissing left parenthesis in MONIT 

MERRIMACIIMPROPeR subscript for monitor LI 
MERRlMACllMPROPfR SUBSCRIPT EXPRESSION DEL 

MONITOR LIST ELEMENT, 
MERRIMACIIMPROPER NUMBER OF SUBSCRIPTS IN 

ELEMENT, 
MERRIMACILABEL OR SWITCH MONITORED AT IMPR 
MeRRIMACiIMPROPeR MONITOR LIST ELEMENT. 
MeRRiMACIMISSINg RIGHT PAHENThESIS IN MONI 
MeRRtMACI IMPROPER MONiTOR DECLARATION DELl 
DMUPlMlSSlNG FILE IDENTIFIER iN DUMP DECLA 
DMUPiMiSSiNq left PAReNThESiS in DUMP DECL 
DMUPtSUBSCRlPTED VARIABLE IN DUMP LIST HAS 

SUBSCRIPTS. 
DmUPiSUBSCRIPTED variable in DUMP LIST HAS 

SUBSCRIPTS. 
OmUPi improper ARRAY DUMP LIST ELEMENT, 
OMUPi ILLEGAL DUmP LIST ELEMENT, 
DMUPlMORE THAN lOO LABELS APPEAR AS DUMP L 

IN ONE DUMP DECLARATION, 
OMUPllLLEGAL DUMP LIST E^EMeNt OFLtMiTER. 

omuPimissiNq or nqn-local Label in dump de 

OMUPlMlSSlNG cOLON IN puMP OECUaRATION, 
DMuPiiMPHOPeR dump DECLARATION DELIMITER. 

ReadstmtimissiNg left Parenthesis in Read 

Readstmtjmissing left Parenthesis in read 

statement. 

ReadstmtimissiNg file in read statement. 



OR DEC, 

ST ELEMENT. 

IMITER IN 

MONITOR LIST 

OPER LAVFL, 

TOR DECLARATION. 

MiTER. 

RATION, 

aration; 
wrong number of 

wrong NUMBER OF 



1st elements 
cuaration. 



statement. 
Reverse 



FILE DELIMITER IN READ STATEMENT 
FORMAT DELIMITER IN READ STATEMENT. 
DELIMITER FOR SECOND PARAMETER IN READ 



ReadstmtiimpropeR 
Reaostmti improper 
ReadstmtiimpropeR 
statement, 

ReadstmtmmpropeR 
ReadstmtmmpropfR 

statement. 

ReadstmtimissiNg row designator in read statement: 
RfadstmtmmpropfR delimiter preceeding The list in a read 

statement. 



ROW 

row 



designator 
designator 



IN READ STATEMENT. 
DELIMITER IN READ 



handlethe 

BRAC 

spacestmt 
spacestmt 
spacestmt 
spacestmt 
wbitestmt 
writestmt 
writestmt 

WRIT 

writestmt 

OF A 

writestmt 



TAILENdOe 
KET iN Rr 
IMISSING 
•IMPROPER 

IMISSING 
iMISSImQ 

IMISSING 
I IMPROPER 
» IMPROPER 
E STaTeME 
JMISSING 

WRITE ST 
I ILLEGAL 



aRead 

AD OR 
LEFT 

FILE 
COMMA 
RIGHT 
LEFT 

FILE 

DELI 
NT. 

RIGHT 
ATEME 
CARRI 



ORSPA 
SPAC 

PAREN 
IDEN 
IN S 
PARE 

PAREN 
IDEN 

WITER 

BRAC 
NT. 
AGE C 



CESTATEMENTIMISSING RiGHT 
E STATEMENT, 

ThESiS IN SPACE STATEMENT, 
TiFIER in SPACE STATEMENT, 

pace statement, 
nthesis in space statement. 
Thesis in a write statement, 
tifier in a write statement. 
for first parameter ]n a 

ket in carriage control part 

ONTROL DELIMITER IN a WRITE 



00219000 

00220000 

00221000 

00222000 

00223000 

00224000 

00225000 

00226000 

00227000 

00228000 

00229000 

00230000 

00231000 

00232000 

00233000 

00234000 

00235000 

00236000 

00237000 

00238000 

00239000 

00240000 

00241000 

00242000 

002a3000 

00244000 

00245000 

00246000 

00247000 

00246000 

00249000 

00250000 

00251000 

00252000 

00253000 

00254000 

00255000 

00256000 

00257000 

00258000 

00259000 

00260000 

00261000 

00262000 

00263000 

00264000 

00265000 

66266006 

00267000 

00268000 

00269000 

00270000 

0Q2.Z10O0 

00272000 

00273000 

QQ27Aa00 

00275000 





lOMITl 






lOMITi 






lOMITl 






lOMITl 






lOMlTi 






lOMITt 






lOMITi 






lOMlTl 






lOMITl 






lOMITl 






IQMITI 






IOMITI 






lOMlTl 






lOMlT* 






lOMlTl 






lOMITl 






lOMjTi 






lOMITl 






lOMITt 






lOMITl 






lOMlTl 






lOMlTl 






iQMlTl 






lOMlTl 






IOMITI 






lOMlTl 






lOMITl 






IOMITI 






lOMlTi . 






IOMITI 






lOMITl 






lOMlTl 






tOMITt 






lOMlTi 






tOWlTl 






IOMITI 






lOMjTl 






10 Mill 






lOMlTl 






lOMlTl 






lOMlIi 






lOMlTi 






lOMITt 






fOMlJi _ 






IOMITI 






lOMlTl 






IOMITI 






IOMITI 






tOMlTl 






t OMIT I 






lOMlTi 






lOMITi 






lOilMi 






IOMITI 






IOMITI 




T. 


lOMlti- 






lOMlTi 





I 

i 
i 



OMJ 

lOM] 

0M| 

OM] 

lOM' 
lOM' 
lOM! 
lOM 

iOm; 

lOM; 
OM; 
OH 

iQMi 

lOMi 
OH' 
OM' 

iOM< 
OM] 

lOMi 
OMi 
OMi 
0M< 
OMi 
OMl 

iom; 

OMI 

om: 

lOM] 
OM 

lOM] 

lOM< 
OMl 
OM] 
OM] 
0M< 
OMl 
OM 
OM] 
OM] 
OM] 
OM' 
OMl 
OM] 
OMI 

lOM 

OM: 

OM! 
lOM] 
lOM] 
lOM] 
lOM 
lOM' 

OMl 
lOM. 

OMl 
lOMi 

OM' 



443 

444 
445 

446 
447 

448 
449 
450 
451 
452 
453 

454 
455 
456 
457 
458 

459 
460 
461 
46? 
463 

464 

465 

500 
50) 
502 
503 
504 
505 

507 
509 
5?0 
521 

600 
601 
602 
603 
604 
610 
611 
612 
613 
614 
615 
616 
617 

6ia 

I 



WRITE 

WRITF 
WRITE 

WRITE 
WRITE 

Write 

READS 
UOCKS 
LOCKS 
LOCKS 
LOCKS 

LOcKs 
CLOSp 

CLOsr 
CLOSF 
CLOSE 

CLOSE 

RWNDS 
RWNDS 
RWnDS 

Block 

BLOCK 
OMUPi 

sfaRchlibi 
sfaRchlibj 
SfaRchlibi 
SfaRchlibi 
SfaRchlibi 
SfaRchlibi 



STATEMENT, 

stmt: IMPROPER 

STATEMENT. 

STMTl IMPROPER ROW DESIG 

STMTjMISSING RIGHT PARE 

iN A WRiTE STATEMENT. 

STMTIMISSING ROW DESIGN 

STmT:ImPROpER DElImITER 

STATEMENT, 

STMTilMpROpER LIST OELI 

tmtjimpropfR list DELIM 

TMTlMlSSlNG LEFT PaRENT 
TMTl iMpROPfR FILE PaRT 

tmtimissing comma in a 
tmtmmpropfR unit nisPo 
statement. 

tmtimissiNr right PaRen 
stmtiMissing left PaRen 
stmtiimproper file paRt 

STMTjMISSING cOMMa 

stmtiimproper unit 
statement, 
stmt:Missing Right 

TMT'MlSSiNG LEFT PARENT 

tmtiimpropeR file part 
tmTimISsing right PAREn 
iA monitor declaration 
part of a procedure. 

tA DUMP declaration APP 
of a PROCEDURE! 

dump indicator must be 
simple variable 
illegal Library identi 

LIBRARY InENTIFlER NOT 
ILLEGAL LfBRARY START 

SEPARATOR Required ui 
ILLEGAL Library length 
missinq bracket. 



second Parameter delimiter in wRItf 



nator in a write statement, 
nthesis after a row designator 

ATOR IN A WRITE STATEMENT. 
PRECEEDING A LIST IN A WRITE 

MITER IN A WRITE STATEMENT. 
ITER IN A READ STATEMENT. 
HESIS IN A LOCK STATEMENT, 
IN A LOCK STATEMENT. 
LOCK STATEMENT. 

siTiON Part iN a lock 
Thesis in a lock statfment. 

THESIS in a close STATEMENT, 

IN A CLOSE STATEMENT, 

CLOSE STATEMENT. 
OSITION Part IN A CLOSE 



IN A 
OISP 

PARE 



NTHESIS IN A CLOSE STATEMENT, 
HESiS IN A REWIND STATEMENT. 
IN A REWIND STATEMENT. 
THESIS IN A REWIND STaTEmEnT. 
APPEARS IN THE SPECIFICATION 

EARS IN THE SPECIFICATION PART 
UNSIGNED INTEGER OR 

FIER. 

CONTAINED IN DIRECTORY, 
POINT. 
WEEN START POiNT AND LENGTH. 



SEARCHL 
lODECl 

tablei 

TABlEi 

DOLLARC 

OOLLaRC 

DOLLARC 

OOLLaRC 

oollarc 

REAOACA 
RFADACA 
INCLUDE 
INCLUDE 

iNcludf 
includf 
iNcluof 
iNcluof 
block« 



IBl TAP 
NON- 
STRING 
STrInG 
ARDt NU 
ARDi 
ARDi 
ARDI 
ARDI 
RDi 



OP 
TO 
UN 
MI 
SEO 



RDl ERR 

caRdi 

CARd« 
CARd« 

cARn.r 
CARn» 

CAR5« 
AUXMEM 



E POSITIONIN 
LITERAL FILE 

LONGER Than 

CONTAINS A N 
MBEr EXPECTE 
TlON IDENTIF 

Many user- 
recogniZed w 
smutched par 

UENcE fRROR. 
OR LlMjT HAS 

toomany nest 

MiSSlNfi FILE 
eNdiNq SfQUe 
C9PY M,§siNfi 

MORr Than on 

♦ COPY CAN N 
APPEARS tMME 



G ERROR, 

VALUE NOT GLOBAL TO FILE DECL, 
ONE WORD (flfi BITS), 

on-permissible character. 

D. 

lER EXpEcTEDi 
DEFINED options, 
ORD or CHARACTER. 

ENTHESES, 



BEEN EXCEEDED. 
ED if^CLUDES. 
NAME ON INCLUDE CARD. 

ncf numbfR missiNg. 

ON INCLUDE CARD. 

F FILE NaMf on iNcLUDE 
OT BE USfD UNLESS » iS 



X107* 
X107'- 
i;107- 
«107- 
CARD fl07- 
IN COLUMN ONE 



OlATELY BEFORE IDENTIFIER (NO TYPE) 



00276000 
00277000 
00278000 
00279000 
00280000 
00281000 
00^82000 
00?83000 
00284000 
00285000 
00286000 
00287000 
00268000 
00289000 
00290000 
00291000 
00292000 
00293000 
00294000 
00295000 
00296000 
00297000 
00298000 
00?99QOO 
OO3OOOOO 
00301000 
00302000 
00303000 
00304000 
00305000 
00305003 
00305004 
00305010 
00305020 
00305030 
00305040 
00305050 
00305060 
00305010 
00305080 
00305100 
00306200 

00306300 
00400000 

ooftoiaao 

00403000 

00404000 

QOiQSL0.QO 

00410000 

004U000 

00 A 12000 

00413000 

00414000 

QQA45QQil.. 

00416000 

00417000 

aoMaoofl 

00490000 



lOMiTt 

lOMlTi 

lOMJTt 

lOMiTt 

lOMITl 

lOWlTl 

tOMITl 

tOMlTi 

lOMITi 

lOMITi 

tOMlTi 

lOMlTi 

lOMlTl 

lOMlTl 

JQMIT* 

lOMlTl 

lOMlTl 

lOMjTi 

lOMlTl 

lOMlTl 

lOMlTl 

lOMiTt 

lOMlTl 

tOMMl. 

lOMlTi 

lOMITt 

»0M1T| 

lOMlTl 

lOMITl 

taM,.IT4 

lOMiTt 

lOMlTl 

I OMl 14 

lOMlTl 

lOMlTl 

10 Mill 

lOMJTi 

lOMlTl 

I OMIT I 

lOMiTt 

lOMlTl 

IOM IT I 

lOMITl 

lOMITi 

tiXMXTj 

lOMITi 

tOMlTl 

lOMiJi. 

lOMlTi 

lOMITl 

lOMlXj 

lOMlTl 

lOMlTl 

I OMIT I 
I OMIT I 

JQMI-TJ 

lOMITl 



BEGIN CoMMFnT outermost SloCKI 
PRT(2?) • *LIST» LABELt OR SEGMENT DESCRIPTOR* 
PRT(23) " *OUTER BLOCK DESCRIPTOR* 
PRTC24) » ♦SEGMENT DESCRIPTOR* 

INTEGER ERRORCOUNTI COMMENT NUMBER OF ERROR MSGSt MCP WILL TYPE 
PRTC25) * ERRORCOUNT 

SYNTX ERR aT EOJ IF THIS IS NON-ZERO. MUST BF 9R+25I 
INTEGER SAVETlMEl COMMENT SAVE-FACTOR FOR CODE FILE» GIVEN BY MCP. 
PRT(26) • SaVETIME 

IF COMPILE & GO »0, FOR SYNTAX, »"1 » MUST BE AT R+26| 
INTEGER CARDNUMbERi * SEQ # OF CARD BEING PROCESSED. 
PRTC27) ■ CARDNUMBER 

INTEGER CARDCOUnT) % NUMBER OF CARDS PROCESSED, 
PRTOO) ■ CAROCOUNT 

INTEGER LASTADDRESSJ 

prt(3i) » lastadoRess 

ARRAY ENlL[0l7,0»127l? 
PRTc3?) » ENIL 

INTEGER ENILPTr; 
PRT(3^) » EnILPTR 

DEFINE EnILSPoT « EN IUCEn ILpTr , [ 38 I 33 • EN ILPTR , 1 4U 7] 3#l 
ARRAY LDICTi:oi7iO»127]» 
PRTC34) » LDICT 

BOOLEAN BUlLDLINEt 
PRT(35) s BUILOLINE 

BOOLEAN RELJ 
PRTC36) • REL 

COMMENT RRl-RRH ARE USED BY SOME PROCEDURES IN LIEU OF LOCALS. 
TO SAVE SOME STACK SpACEl 
REAL RRl,RR2.RR3.RR4»RR5»RR6,RR7»RR8»RR9»RRl0iRRU» 
PRT(37) « RRl 
PRTC40) • RR2 
PRT(«1) * RR3 
PRT(42) » RR4 
PRT(43) • RR5 
PRTC44) « RR6 
PRT(45) « RR7 
PRT(46> • RR8 
PRTC*7) m RR9 

PRTcSO) » RRlO j 

PRT(5i) « RRll 

COMMENT SOME OF THE RRl ARE USED TO PASS FILE INFORMATION To 

THE MAIN BlOCKJ 
COMMENT EXAmIN RETURNS THE CHARACTER AT ABSOLUTE ADDRESS NCrJ 
REAL STREAM PROCEDURE E^AmINCNCR)! VAuUE NCRJ 

BEGIN S1#-nCR| D!*l0C EXAMINI DUDI + 71 DS*.CHR ENDI 



OO499999 C I0MIT» 

00500000 T ooonooooio 



START 



OF SEGMENT 
00501000 

00502000 
00503000 

00504000 
00504100 



****4t»itt»«« 



00504150 

00504200 

00504300 

00504400 

00504500 
00504600 

00504700 

00504801 

00505000 
00506000 
00507000 



T 

T 

T 
T 

T 

T 

T 

T 

T 
T 

T 

T 

T 
T 
T 



00021000010 

00021000010 
00021000010 

00021000010 
00021000010 



00021000010 

ooo2taoooix) 

0002>0000i0 

0002t0002IO 

00021000210 
000210002*0 

00021000410 

00021000410 

00021000410 
00021000410 
00021000410 



PRTC5?) » EXAMiN 



OO5OSOOO T Q002I0004IQ 

00509000 T 0002I0004J0 

OO51OOOO T 0002»0004«0 

QQ5U0i)0 T- 0002 IQOOA l.a 

00512000 T 00021000410 



REAL STREAM PROCEDURE EXAM INELASTc AC » CT)I VALUE CT? 
PRT(53) • EXAMINELAST 

BEGIN 

SI ♦ ACI SI * SI + CTI 



00512100 T 0002I0007«2 

0051220Q T QQQ^! 0(1.071 2 
00512300 T 0002I0007«2 



DI ♦ LOC EXAMINEUASTj 
DS ♦ 1 CHRl 
END EXaMINEUaST) 



DI 



DI + 7» 



00512fl00 
00512500 
00512600 



T 0002I0007»3 
T OOO2I000BI0 
T 0002I0008U 



COMMENT MOVfCHARACTeRS MOVES N CHARACTERS pROM THE SK-Th CHARACTER 
TN SORcE TO The DK-Th character in DEST. 0<NS63iOSSK<l2ri 
DEFINE DK»OSK#; 
STREAM procedure MOVECHARaCTfRS CN . SORCE . SK , DEST . OSK ) I 
PRT(54) » MOVEChARACTeRS 

VAlUe n, SK, DSK I 
BEGIN SULOC Sk» Sl«.SU6l 

IF sc><«0" Then begin susorce; 2fSi*si + 32)» sorce»si endi 

Sl*L0C DK; Si»Si + 6' DI«-DEST) 

IF sci'^o" Then ?(di*di + 325> 

Sl*S0RCE^ si*si+sk; di*di+dk> ds*n chr? 

END MOVECHARACTERSJ 



00513000 T 
00514000 T 
00514500 T 
00515000 T 



00516000 
00517000 
00516QQ0 
00519000 
005?0000 
00521000 
00522000 



0002f0009i3 
00021000913 
00021000913 
00021000913 

0002(000913 
00021000913 
QQOZlQOlQIl 
0002I0012M 
O002t00i3»3 
00021001512 
00021001712 



PRT(55) « GpTr 



INTEGER STREAM PROCEDURE GETf(Q)» VALUE Qf 

BEGtN S!*LOc GETFI SI*SI-7J 0I*L0c 81 dt*oi+5; 

SKIP 3 DBI 9(IF SB ThEN DS^SeT ELSE DS*RESET< SKlP SB ) J 

OT*LOc QJ si*<.>; DS*WnS> Sl«-Q> setf*si 
eNd gftf» 



00523000 T 0002t00i7l2 



00524000 
00525000 
00526000 
00527000 



T 00021001712 

T 0002l0i)l9l2 

T 00021002112 

T 0002t0022«l 



COMMENT START SETTING UP FJLE PARAMETEHSI 

IF EXAMiN(RRll*GETF(3> + ''Y06«' )*12 THEN RRl^-S ELSE 

Begin rri*2i rr2»'i50endj 

IF EXAMlNfRRH + 5>,«i2 ThEN RR3»4 ELSE 
BEGIN RR3*2^ RR4*i50EnO; 

IF EXAMlN(RRn+10)»l9 THEN 

BEGIN RR5*2* RRA*101 RR7*150EnD ELSE 
BEGIN RR5*1| RR6*56» RR7*10 ENDl 

IF EXAMIN(RRU + 15)8l2 THEN 

BFGIN RR8*10| Rr9*150eNd ELsE 
RF6IN RR6*-56| Rr9*.10 pNoS 
IF EXAMIN(RR11 + 20)»12 THEN RRlO«-l50l 
BFGIN 



iNtfgeR numsfQufNcffRRORsi 

PRT(56) « *SEGMrNT DESCRIPTOR* 

PRT(57) • NuMSfQucNcEERRORS 

INTEGER OPfNx; % USED FOR fNDFXfNG iNrO OPJiONS ARRAY, 
PRT(60> « OPiNX 



00528000 
00529000 

005 30000 
00531000 
00532000 
0Q533000 
00534000 
00535000 
00536QQO 
00537000 
00538000 
00519000 
01000000 
OIOOOIOO 

oiooQatto. 

01000300 
01000400 
010005Q0 
01000600 
01000700 



00021002313 
0002)002313 
00021Q029I2 
OOO2IOO32I1 
O0O2tO036tO 
0002 » 0018 ».0 
00O2I004OJ0 
00021004312 
0.002 1 ao 4 5!. 3 
00021004810 
00021005010 
ODQZlQA&aiQ 
00021005513 
00021005513 

00021005513 
00021005513 
00 QZLfl 055-1-3 
00021005513 
0002*005513 



START Of SEQMeNT ♦*♦♦»♦»♦♦♦ 3 

oioooaoo -T aooitoaoxiio 



PRTf6i) 
PRT(6?) 
PRT<63) 
PRTC64) 



PRT(65) 
PRTC66) 
PRT(67) 
PRTt70) 



BOOUrAN 

■ SfTTiNG 

BoOiPAm 
« GoGoGo 

PROCEDURE CHECKBOUnDLVLjForWArD; 

• CHECKBOUNDUVL 

BOOLEAN ARRaYFlaGj* USED TO INFORM 
» ARRAYFLAG 

» EVALUATING 
INTEGER NFWINX, ADDVALUE* BASENUM, 

• NfWlK'X 

■ ADDVAUUE 

• BASENUM 
m TOTALNO 



SETTING! % USED BY DOlLaRCARD FOR AN OPTjON'^S SETTING, 
GoGoGo;* TRUE FOR SpEClAL WRITES AnO READS 

PRIMARY AND BOOPRiM THAT WE ARE 



AN ARRAY 
TOTAlNOl 



BOUND 



IS 
IS 
IS 



PRT(7l) 
PRT(7p) 



w OPT I 
B OPTI 



comment addvalue 
rasenum 
totalno 

caRd as 

DEFINE OPaRSIZE • 200 
aRRaY OPTlONStOiOPARSlZEJ* 
ONS 

BOOLEAN OPTIONWORD) 

onword 

DEFINE 



INCREMENT VALUE FOR RFSEOUENCING 

STARTING VaLuE 

BASENUM + ADDVAUuE CALCULATED FOR EACH 

totaLNO s totaLno + adovaluej 



ChECKBiT 
OEBUGBiT 

oeckbit 

formatbit 

imtbit 

LI stab it 

listbit 

LfSTPBiT 
MCPBIT 

mergebit 
nestbit 

NEWBIT 
NFWINCLBIT 

omttbit 

PRINTOOLLaRBIT 

PRTBIT 

PUNCHRIT 

puRgebit 

SFGSBIT 

sfQbit 
sfQeRRbit 

SjNGLBlT 

STUFFBiT 

VOIDBIT 

VOIDTBIT 

XrEFBIT 

BEnDBIT 

CODEFlLEBIT ■ 



S 



1*. 
?*» 

a#* 

5#» 
6«i 

7#* 
6#« 
9#. 

10#, 

121, 
13#. 
H#. 
i^'f 
I6f. 
17#. 
181. 
19#, 
20#. 

« 22#. 
» 23*. 

* ?A** 
» ?5»» 

* 26## 
' 27#t 

29#» 



9 



COMMENT 



DEFINE 



X106' 

USEROPINX « 30#| j;io6' 

IF A NEW COMPILER-DEFINED OPTION IS ADDED* CHANGE USEROPINX 
AND ADD OPTION IN DEFINES BELOW» In DOLLARCARD* AND IN 
FILL STATEMENT IN INITIALIZATION OF COMPILERl 
CHECKTOG • OPTlONWORDitCHECKBlTll] ## 
DEBUGToG » OPTlONWORD.tDEBUGBITf 1] #. 



oioooaoe t oooaiooooio 

OlOOOeiO T 0003»0000I0 

01000»30 T OOOatOOOOlO 

01000840 T 00031000010 

01000850 T OOO3tO0OOJ0 

01000860 T 00031000010 



01000870 
01000880 
010Q089Q 
01000900 
01000902 
01000904 



00031 
00031 
OOQJI 
00031 
00031 
00031 



000010 
OOOOtO 
ODODIO 
000010 
000010 
0000 fO 



01000910 T 0003I0002U 



0l0009?0 
O1OOO93O 
01000940 
01000950 
01000960 
01000970 
01000980 
01000990 
OIOOIQQO 
01001010 
01001020 
01001030 
01001040 
01001050 
01 00 1060 
01001070 
01001080 
01001090 
01001100 

oiooiuo 

01001120 
01001130 
01001140 
01P0U5P 
0100U60 
01001170 
01001171 
01001172 
01001173 

loan 80 

01001190 
01001200 
01Q0121Q 
01001220 



T 0003100021 

T 0003100021 

T 0003J00021 

T 0003I0002* 

T 0003«0002t 

T 0-0031 000 ei 

T 0003100021 

T 0003100021 

T D0Q3l00t>2l 

T 0003100021 

T 0003100021 

T 0003 1 0002-1 

T 0003100021 

T 0003100021 

T 0003 1 00 021 

T 0003100021 

T 0003100021 

T - 0003 1 0J)O2l 

T 0003100021 

T 0003J0002I 

T 000310002!! 

T 0003100021 

T 0003100021 

T OOP 310002 I 

T 0003100021 

T 0003100021 

T oaO-^1000214 

P 0003100021 

C 0003100021 

T 00011-004214 

T 0003100021 

T 0003100021 

T 0fiCL3lOA0-2U 

T 0003(000211 



m 



COMMENT 



BOOLEAN 
PRT(73) « NOheADINg 

BOOLEAN 
PRTC74) ■ NfWBASF 

BOOLEAN 
PRT(75) m LASTCRdPATCh 



iNTtGER 
PRT(76) » XmoDE 

BOOLEAN 
PRT(77) » DOLLARTOG 

INTEGER 
PRT(lOO) » ERRMaX 

BOOLEAN 
PRT(lOl) ' SEQXeoTOG 

BOOLEAN 
PRT(102) » LISTER 

ALPHA M 
PRT(103) « MEDIUM 

INTEGER 
PRT(104) » MYCLaSS 

Real ba 
PRT(105) • batman 

ARRAY 
PRT(106) m SPECIAL 

COM 



PRTtlOr) • iDARftAY 



decktog 
formatog 

INTOG 

listatog 

LiSTOG 

listptog 

McPTOg 

mfRgetog 
nfstog 

NfWTOs 

nfwincl 
omitting 
printdollar 
prtqg 

PUnCHToG 
pURGEToG 

SEGSTOG 

SEQT06 

SEQTOG INDI 

SEQERRTOG 

SINGLTOG 

STUFFTOG 

VOIDING 

voidtape 

XREF 
BEND 

CODEFILE 
DUMMY 

noheading; 



« 
s 



Tog 



opt 
opt 
opt 
opt 
opt 
opt 
opt 
opt 
opt 

OPT 

opt 

OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
RESf 
» OPT 

* OPT 
» OPT 

• OPT 
« OPT 
« OPT 
« OPT 

s OPTlONw 

» #; 

X TRUE I 



cates 



onword 
onword 

ONWORd 
ONWORd 
ONWORd 
ONWORd 
ONWORn 
ONWORd 

onword 

ONWORd 
ONWORd 
OnWORD 
OnWORD 
OnWORD 
OnWORD 

onword 
onword 
onmqrd 
quenci 
onword 

ONWORd 

onword 

ONWORo 
ONWORd 
ONWORd 
ONWORd 
ORDitC 



DECKBITM] #» 
FORMATBITJI] *» 
INTBITII] #» 
LISTABITllJ #» . 

uistbitii] #» 
listPbitjU *» 

MCPfllTIl] *» 

meRgebith] *. 

NESTBlTin *t 
NEWBlTin *, 
NEWiNCLBlTll] #, 
OMITBlTliJ #, 
PRlNTDOLLARBlTin 
PRTBITlU $, 
pUNCHBiTlU tt 
PURGEBlTil] *t 
SEGSBITlU #» 
SEQBITII] '- 
IS TO BE 



#* 




,CBENDBITll3li 
0DEFILEBlTtU»» 



«106' 



F OATIME HAS NOT BEEN CALLED. 



nfwbasei 2 New baSfNum found on a new s-caRo. 

LaSTCRDPATch? % NORMALLY FALSE. SeT TO TRUE WHEN THE 



XmoDEJ 

DOLLARToGi 

ERRMAXI 

SEOXEQTOGI 

LISTER» 

fdium» 
myclassi 

tMani 

SPFClALrOl3l]J 



% LAST CARD FROM SYMBOLIC LIBRARY READ 

% IS PATCHED FROM THE CARD READER, 

% tells Dollarcaro How to set options, 

% true if scanning a dollar card. 

% compilation stops if exceeded, 

% give seq. no, when os-ing obj, 

% LISTOG OR IISTATOG OR DEBUGTOG, 

% INPUT ISI T,C.P»CA.CB.CC, 

% USfD fN OOLLARCARD EVALUATION, 

% USfD fN dOLLARCARQ EVALUATION, 



ment This array hOLds thf internal code for the special 
charactorsi it tS filled during initialization) 

SAVE alpha array iDARRAY[0Ii273? 



0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
OlOO 

Oioo 

0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 



1230 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1461 
1462 
1463 
1470 
1480 



01001510 
01001520 
01001530 



01001490 T 
01001500 T 



01001540 T 

01001550 T 

01001560 T 

01001570 T 

01001580 T 

01001590 T 

01001600 T 

01003000 T 

01004000 T 
01005000 T 
OlQO&OQO T 



0003 
0003 
0003 
0003 
0003 
00Q3 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



100021 
100021 
1000211 
100021 
100021 
li)Q02l 
t0002< 
t 00021 
1012021 
t0002t 
I0002J 
100021 
t00O2< 
t0002i 
100021 
t0002t 
»0002l 
^0002l 
t0002t 
100021 
100021 
100021 
100021 
100021 
100021 
t 00021 
100021 
100021 
t0002t 



0003100021 

000310002! 

0003100021 
0003< 00021 
0003^00021 

0003100021 

0003100021 

0003100021 

0QQ3 100021 

0003100021 

0003100021 

00Q3I.QQO2i 

0003100021 



00031000512 
00031000512 
00.Q 11.01105-14?^ 



PRT(llO) " INFO 



Array infoCoi31»oi?55]> 

3! XRFFSTurF 1116* 



01007000 T 0003I0007I.3 



PRT(IU) 



ARRAY 

XRE:FAY2t0l29J, 
XREFAY2 



PRT(112) m XREFAYl 



XRE:FAYlC0f9]» 



X ARRAY OF ONE WORd REFERENCE RFCORDS, 



* THE LAYOUT Op EACH WORD IS 
% 

.tU53 TYPE OF REFERfNCE 

• FOR FORWARD DECl 



% 
% 
% 
% 

% 
% 
% 
% 

% 
% 
% 
% 



«116» 
XI 16- 

iiie* 

XI 16- 
XI 16- 
X116- 
X116- 

• 1 FOR Label Occurence xii6- 

m 2 FOR NORMAL DECL Xll6- 
» 4 FOR NORMAL REFERENCE X116- 
m 5 FOR ASSIGNMENT X116- 

X116- 
NOTEl THE LOWER ORDER BIT 

OF This field is on 

IF YOU WANT STARSX116- 

AROUND This reference 

IN THE XREF Xn6- 

X116- 
t[6«153 IDENTIFIER ID, NOi Xll6- 
THIS IS A UNIQUE NUMBER THAT 
IS ASSIGNED WHEN THE X116- 
IDENTIFIER IS ENCOUNTERE X116- 
FOR THE FIRST TIME, XM6- 

X116- 
• t21t273 SEQUENCE NUMBER XU6- 

X116- 



X RECORD BUFFER AREA FOR WRITING OUT THE 



X116- 



X NAME INFORMATION RECORDS, ONE RECORD XU6- 

X IS Written for each identifier in the symbol 

X table when the identifier is PURGED FROM THE 

% SYMBOL TABLE* IiEi» WHEN LEAVING THE BL0CKX116- 

X IN WHICH THE IDENTIFIER IS DECLARED, X116- 
X XH6- 

% THE LAYOUT OF EACH RECORD IS» XI 16- 



WORDS 0-7 



WORD ft 
.C2J«12] 



•[331153 

Word 9 



X116- 

ThE IDENTIFIER WITH BLANKX116- 

FiLL ON The Right xm6- 

X116- 
X116- 

SeGMENT NUMBER IN WRICH X.II6- 
ThiS IDENTIFIER WAS DECLARED 

XU6- 
IDEnTIFIER ID, NO, Xll6- 

X116- 

elbat Word xii6- 

«116- 



PRT(113) • XINFO 



XINF0[0I31»0I127]| X THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 

X In The infq table* if yqu have the Index xij6- 

X OF The ELBAT word for an identifier in X116- 



01007005 
01007010 
01007-01 5 
01007020 
01007025 
01 007030 

01007035 
01007040 
01007045 
01007050 
01007051 
01007055 
01007060 
01007065 
01007070 
01007075 
01007080 
01007085 
01007090 

01007095 

01007100 

01007105 

01007110 

01007115 

01007120 

01007125. 

01007130 

01007135 

01007140 

01007145 



01 0071 50 C 
01007155 C 
01007160 C 
01007165 C 
01007170 C 
01007175 C 
01007180 C 
01007185 C 
01007190 C 
01007195 C 
01007200 P 
01007205 C 

0l.0Q.l2.li) X.. 

01007215 C 
01007220 C 
01007225 C 
01007230 C 
01007235 C 

oiaoz24a.-c 

01007245 C 



OO03IO010JO 
00031001010 
QQOIIQQIOIQ 
00031001010 
00031001010 
QOQaiDQlQIO 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003 1 
00031 
00031 
00031 
00031 
00031 
00031 
0003 « 
0003» 
00031 
0003J 
00031 
0.001.1, 
00031 
00031 

00031 
00031 



001312 

QOlUZ 

001312 

001312 

Q 01 112- 

001312 

001312 

00 111 2- 

001312 

001312 

001312 

001312 

001312 

0011-12 

001312 

001312 

00 1 31 2 

001312 

001312 

auuz 

001312 
001312 
001312 
001312 



010Q725Q 
01007255 



0001100151.1 

00031001513 

00031001513 

00011001513 

00031001513 

00031001513 

0001-10015.1 1 

00031001513 

00031001513 

OD01JQ.OU11 

00031001513 

OOO3IOO1513 

Q0QllfiQi5_U. 

OOO3IOO1513 

00031001513 

000110015-11 

00031001513 

00031001513 

0OOUO0.l5il. 

00031001513 

OQQllOOiSlO 

00031001810 



% THE INFO Table you can find the xinfo woroiiu- 

* FOR THr identifier by referring T0« X116- 
i« XU6- 
X XiNFOClNDEX.LlNKRf index. LINKC DIV 21 X116- 

X xue- 

X EACH ENTRY CONTAINSJ «116- 

X J!116- 

* ,[211121 SEGMENT NUMBER IN WHICH 



INTEGER 
XREFPT* 
PRT(114) • XREFPT 



* 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 



This identifier was oecl 

X116- 
.[33J153 IDENTIFIER ID. NO; Xll6- 

iF This id, no, is zero 
Then xref was not on 
AT The time the ident 

WAS DECLARED AND ALL 
FUTURE REFERENCES W I L»L 
BE DISCARDED, X116- 

1116- 
X116- 



PRTCUS) m xLuN 



XLUN; 



DEFINE 

SeGNOf b t21M23#» 
IDNOF « r33«l53i, 



% CONTAINS INDEX OF NEXT AVAILABLE SLOT IN «lt6- 

% xrefay?, When this becomes greater *ii6- 

% Than 30 The current array is dumped to disk 

% and XRfFPT IS RESET TO ZERO, X116- 

X xiie- 

% This variable controls the assigning of «ii6- 

% id. no. to identifiers, it is INCREMENTED X116- 

% EACH TiMe a New identifier is encountered. X116- 



1; 

X 

X FTELnS in xiNfO eNTRIFS and word 8 OF 

X identifier RECORDS. 



TYpEREF « [1 liill, 
rEFIDnOF s[6»153#» 
SEQNOF ■ [21i273f» 



XU6- 
J!116- 
X116* 

XI 16- 

X116- 
X1I6- 
X116- 
X116- 
X116' 



% FIELDS oF REFERENCE WORDS 

I 

% 

% 

XREFIt{INDFX»sEONO.RL"FTYPE) ■ X DEFINE TO ADD INfO tO REF TABLE X116- 
BEGlN IF XRfF THFN cROssRfF IT ( INOEX » SeONO, ReFTYPe ) I END#» Xn6- 

X X116- 

XMaRK(ReFTYPE) » X DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 
BEGtN if XRfF THFN XREFAY2[XREFPT-1J.TYPeRFF I« REFTYPe ENoHf* XU6- 

X 1116- 

XREFDuMPdNDEX) « X DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTIFIER 

BEGIN If DEFlNTNr,,ri«l] ThEN CROSSREFdUMPm NDEX ) I END#» *116- 

X «116- 

xRefinfO[index] b % Define to translate info row and column toiii6- 

XlNFOr(lNDEX),LTNKR, (INDEX). LINKC DiV 2]#. X XlNpO ROw AND fOL fll6- 





% 


X116- 


foRwaRdRff ■ 0*» 


X DEFINES FOR diFFfRfNT ReFEReNcE TYPeS 


X116-. 


LbLRef « 1*» 


X 


X116- 


DECLRfF •= 2*» 


X 


X116- 


NORMaLRff * 4#» 


% 


Xllfi- 


ASSlGNRFF » 5#> 


% 


X116- 



ARRAY BEGlNSTACKr0l?55]J INTEGER BSPOlNTI 
PRT(ji6) w BCGInSTACK 
PRT(ii7) w BSpoInT 



01007260 
01007265 
01007270 
01007275 
010072S0 
01007285 
01007290 
01007295 
01007300 
01007305 
01007310 
0lX)a73|5 
OIOO732O 
01007325 
01007330 
01007335 
01007340 
01007345 
01007350 
01007355 

01007360 

01007365 
01007370 
01007375 
01007380 

01007385 
01007390 
Q100Z395 
01007400 
01007405 
01007410 
0l0074l5 
01007420 
01 007 425 
01007430 
01007435 
01007440 
01007445 
01007450 
01007455 
01007460 
01007465 
01007470 
01007475 
01007480 
01QQ7.4J1. 
01007482 
01007483 
01007485 
01007486 
01007490 
01Q0ZA95 
01007500 
01007600 



C 00031001810 

C 00031001810 

C 00031 00 18 to 

C 00031001810 

C 00031001810 

C 0003J.O0l8t0 

C 0OO3IO0l8t0 

C 0003tOO}BlO 

c 00031001810 

C 00031001810 

C 00031001810 

C 00031001 810 

C OO03i00iBI0 

C OOO3IOO18IO 

C 0003iOQlfllQ 

C 0003t00i8t0 

C 0003t00l8l0 

C 00031001 810 

C 00031001810 

C OOO31OO1BIO 

C 0003i00i8i0 

C OOOStOOiBtO 

C 00031 00.1810 

C 0003t00lB>0 

C 0003t00i6t0 

C 0003f00l8t0 

c 00031001810 

C 00031001810- 

C 0003t00l8t0 

c 00031001810 

C 0Q03!00iatQ 

C OOO3IOO18IO 

C 0003»00l8«0 

C 0003100.1810 

C 0003i0018t0 

C 0003t00l8l0 

C 00O31QQ16IQ 

C 00031001810 

C 0003t00l8l0 

C 00031.001810 

C 00031001810 

C 00031001810 

t oooiiooisia 

c 00031001810 

C 0003i00l8l0 

C OQOAlilO-iatO 

C 00031001810 

C 0003J0018I0 

C 0001100^810 

c 00031001810 

C 00031001810 

c oaaii0OiAi0- 

C 00031001810 

T 0003«00l8l0 



PRT(l20i ■ nEFlNING 



Boolean defining? 



01007650 T 0003J0D20n 



COMMENT 



INFO CO 
OR HR 
THE I 

callf 
tun 

T|ON 

succr 

FOLLO 
AND T 

Of in 
RfSeR 

DtFER 
IS GT 

OF Oh 
Alpha 
This 

THE F 
RESEr 
INITI 



COMM 
FO 

EN 



ent 

LLOwlN 

terfd 

THF F 
THf ! 
ADHED 
ADnIT 
E.G. 

THF L 

THAT 

POtNT 

thf l 

LINK 
FOR S 
ARRAY 
WILL 
AS 

The s 

FUR 
THiS 



G IS A DE 
IN INFO! 
IRST WORD 
NCR FIELD 

TO The c 

IONaL INF 
IF THE I 
LlNKC] Wl 
INK FIELD 
OF THF EN 
S TO tTS 
INK IN IN 
FROM STAC 
fMPLlClTY 

.SO That 

NOT DfTRa 
SUME THAT 

ame stack 
ther assu 

STACKHEAD 



ntains al 
served wo 

NTERNaL C 
D). THE 
) FOR PRO 
)» THE NU 
(IN tl2j6 
DING WORD 
WED BY AN 
HE ALPHA 

fO, for 

VED WORD 
ENT lists 
VEN BY TA 
ARACTORS 
» FILLED 
NUMBER IS 
IRST ROW 
VED WORDS 
ALIZaTIoN 
INFO FO 
SCRIPTION 



L THE 
RD. 
OnE C 
SFCON 

CEDUR 
MrER 
})« A 
S CON 

Y Add 

FOR A 

PuRPO 

The 8 

OR S 

kiNg 

AnD A 

In wi 

CALL 
OF in 

occu 
i 

RMAT 
OF T 



INFORM 

THE FIR 
OR ELB 
D WORD 
ES» THE 
OF CHAR 

nd the 

TAlN TH 
iTtONAL 
NY OUAN 
SES OF 
UANTiTl 

tackes, 

NAAAAA 
AAAA IS 

th zero 

ED THE 
Fo IS U 

PY THE 



ATION ABO 
ST WORD 
AT WORD A 
CONTAINS 

LINK TO 
ACTORS IN 
FIRST 5 C 
E ReMatNi 

INfORMAT 

tity are 
finding a 
es are SC 
Which st 

MOD 125 w 
the FIRS 
S FROM TH 
SCRAMBLE 

SED For 

SECOND RO 



UT A GIVE 
F A GIVEN 
S IT IS U 
THE FORWA 
PREVIOUS 

THE ALPH 
HARACTORs 
NG CHARAC 
[ON, THE 
NOT SPLIT 
N IDENTIF 
ATTeRED I 
ACK CONTA 
HERE N IS 
T 5 CHARA 
E RIGHT I 
NUMBER OR 
THER PURP 
W. IT IS 



N IDENTIFIER 

ENTRY IS 
SUALLY 
RO BIT (IN 
ENTRY (IN 

a representa- 

of alpha. 

TORS OF ALPHA. 
ELBAT WORD 

ACROSS A ROW 
IER OR 
NTO 125 
INS A QUANTITY 

The NUMBER 
CTORS OF 
F NEEDED.- 

INDEX, 
OSESt THE 
FILLED DURING 



HE FORMAT OF A^L TYPES OF ENTRIES 



NOW THE DECLAR 

BEGIN REa 

IF THE NEX 

THEN A Is EN 



OF A 
(I2r 
URREN 
(IF 
NDEX 
LL CO 
OF T 
TRY I 
OWN L 

fo PO 

KHEAO 
.1 Wl 
THE B 
CT fR 

thRe 

HEAD 
mE Th 
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ation 

L A»B 

T ava 

TEREO 



LL ENtR 
18]) cO 

t indfX 

ANY) F 
IS IX 
NTAIN T 
HE ELBA 
N fLBaT 

ocation 

INTS TO 

Which 

LL cONS 

Reaking 
OM The 

E TDEnT 
LOCATiO 
ERE Are 
X. LET 
StL3 



lES IS 

ntains 

INTO 
OR ThI 

THEN 
HE FIR 
T WORD 

PUT I 

(REUA 

THE P 
THE CU 
tDER I 

UP Of 
DiSCUS 
IFIEHS 
N IN T 

NO OT 
THIS S 



THE ELBAT 

AN INCREM 
INFO YELDS 
S ENTRY. 

INFOCCIX* 
ST WORD Of 

IN INFO 1 

N BY Table 

TlVE) IN I 

reVious en 
rrent entr 
nfo to be 
THE Links 

SiON. 

a.b.and c 

HE ORDER 
HER EnTRIE 

tackhead L 



WORD. 
ENT WHICH WHEN 
AN INDEX TO ANY 

INCR).LINKR»(IX*iNCR). 

ADDITIONAL info; 
S DIFFERENT FROM 
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switches! 

The field C36«i23 Contains l for the beginning of switch declar- 
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16; 
17; 
20; 
211 

231 

24; 

25; 

261 

27; 

3o; 
3i; 
32; 
33; 
34; 
35; 
36; 
37; 
43: 



01223000 
01224000 
01225000 
01226000 
01227000 
01228000 
01229000 
01230000 
01231000 
01232000 
01233000 
01234000 
01235000 
01236QQQ 
01237000 
01238000 
01239000 
O124OOOO 
01241000 
01242000 
01243000 
01244000 
01245000 
01246000 
01247000 
01248000 
01249000 
01250000 
01251000 
01252000 
01253000 
01234000 
01255000 
01256000 
01257000 
01258000 
01259000 
01260000 
01261000 
01262000 
01263000 
01264000 
01265000 
01266^000 
01267000 
01268000 
012690Q0 
01270000 
01271000 
01272000 
01273000 
01274000 
0127500a 
01276000 
01277000 
012780.00 
01278050 



0003100201 
0003 1 0020 1 
0003100201 
0003100201 
000310020; 
0003(00201 
0003100201 
000110020-1 
0003i0020> 
0003100201 

000110 ago I 

0003100201 
0003100201 
0QQ31 00201 
0003(0020; 
0003100201 
00a3l0Q2O( 
OOO3IOO2OI 
0003100201 
0003100201 
0003100201 
0003100201 
0003>Oa2Q) 
0003(00201 
0003(0020( 
0003(0020; 
0003(00201 
0003(0020( 

aoa 3100201 

0003(00201 
0003(0020( 
0003100201 
0003(0020( 
0003(0020( 
0003100201 
0003(0020( 
0003(0020; 
OOQ3JQ0201 
0003(0020( 
0003(0020( 
O0Qlli)i)2Ol 
0003(00201 
0003(00201 
00 031.00201 
0003(0020( 
0003(0020( 
000310020! 
0003(00201 
0003(00201 
0-0 03 1 00201 
0003(0020( 
0003(0020( 

0001 ( a 0201 

0003100201 
0003100201 

oooaiaa20j 

0003(0020( 



D 



PRT(121) 
PRTfi??) 

PRT(1?3) 
PRT(124) 



5 TiMe:1 
K SCRAM 



FIELDID "ISSI, 

FAUUtID •126#, 

SUPERLISTID *l27#i 
COMMENT SUBCLASSES FOR D 

OWNV s»oil 

SAVEV «02* 

BOOV a03# 

REAlV «0a# 

alfav -Osf 

InTV «06# 

LABELV «07# 

OUMPV *08# 

LISTV «09# 

OUTV «10* 

INV »lll 

MONITORV «12# 

SWITCHV »13# 

PROCV «U# 

arrayv -is* 

FORMaTv »16# 

FILEV »17# 

STREAMv ■18# 

DEFINEV »19# 

AUXMeMv «20# 

FIEI^DV "■2l#j 
EFINf aDF5»0#,LDES»2#.PDE5«1# 

Real ttMeh 
integer scRamj 



COMMENT 
COMMENT 
COMMENT 

eclarators 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
»CHAR»3#| 



1751 
1761 

I77i 
(KEPT 

oi; 

02i 

03? 

04} 

051 

06? 

07? 

101 

11? 

12? 

131 

U> 

15? 

16) 

171 

20? 

211 

221 

23? 
24l 
25; 



J!117- 



IN ADDRESS)! 



X117' 
Jill7' 



INDEX FOR THE LAST IDENTIFIER 



A 
« FILEAT 

« accum 



PRTtl25) 
PRT(1?6) 



* STACKH 

• SUPERS 



COMMENT SCRAM CONTAINS THE SCRAMBLE 
OR RESERVED WORD SCANNED? 
RRAY FiLEATTRlBUTEStOI30] 1 
TRIBUTES 
ALPHA ARRAY ACCUMtOHOl? 

COMMENT ACCUM HOLDS THE AlPhA ANO CHARACTER COUNT OF THE LAST 
SCANNED ITEM IN A FORM COMPATIBLE WITH ITS APPEARaN 
IN INFOt THAT IS ACCUMCU » OONAAAAA, ACCUM[I] » |> 

has any additional characters. accumto] is used for 
The elbat word by the enter routines? 

STACKHEADfSUPERSTACKt 0112411 



CE 
1* 



ARRA 

EAD 

TACK 

COMMENT 



STAcKHEADtN] CONTAINS AN INDEX iNTO INfO, TH!$ INDEX 

Points to the top item in the n-th stack (Actually / 
Ltnked-list). supeRstack is not a television star, 
but raTher a special stackhead Which alway^s points 
AT certaim Commonly used reserved words, those 
Words pointed tq (In three groups) arei 
n ALPHA* label» own* real» save 

2) and* div» egiv» Imp* mod* not* or* true 

3) begin* do* else* eno» for* go* if* 

STEP' then, TO. UNTIL* while*. kyRlTEi 
FOR MORE INFORMATION ON THE USE OF SUPERsTACK* 



PRT(127) m COUNT 



INTEGER COUNTi 



COMMENTS IN THE TaB^E PROCEDURE, 



SEE 



IWf 



XWF 
XWF 
XWF 
|WF 
IWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 



01278090 
01278100 
01278500 
01279000 
01280000 
01281000 
01282000 
01283000 
01284-000 
01285000 
01286000 
01287000 
01288000 
01289000 
01290000 
01291000 
01292000 
01293000 
01294000 
01295000 
01296000 
01297000 
01298000 
01298500 
01298600 
01299000 
01300000 

01301000 

01302000 
01303000 
01303500 

01304000 

01305000 
01306000 
01307000 
01308000 
01309000 
01310000 



01311000 
OUlllOO 
01311200 
01311300 
01311400 
01311500 
01311600 
01311700 
01311800 
01311900 
01312000 
01312100 
01313000 



00031 
00031 
00031 
00031 
00031 
000.31 
00031 
00031 
0003? 
00031 
00031 
0003 > 
00031 
00031 
000 3 J 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



00201 
00201 
00201 
00201 
00201 
0.020 1 
00201 
00201 
002X)-1 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 
00201 



0003100201 

OOO3IOO2OI 
0003100201 
00031002011 



00031002312 



00031002513 
00031002513 
000 31 0025 13 
00031002513 
00031002513 
00031002513 



000310029 12 
00031002912 

OOO3IOO2912 

0031 Q 02112- 

00031002912 

00031002912 

0.0fl3LQQ2ai2 

00031002912 

OOO3lO029l2 

.aoa3.1il029i2- 

00031002912 

00031002912 

O0O3I0O29I2 



PRT(J30) 9 Q 



PRTC131) 
PRT(132) 
PRTCi33) 



PRTdS'li • 



PRTC135) • 



PRTC136) • 

PRT(137) « 

PRTCUO) ■ 

PRT(Ul) • 

PRT(142) • 

PRT(U3) • 



PRT{l44i 
PRTCUSi 
PRT(U6) 



COMMENT COUNT CONTAINS THf NUMBER OF CHaRACTORS OF THE UAST ITEM 
SCANNED; 
ALPHA 0> 



COMMENT Q CONTAINS ACCUMCU FOR THE LAST IDENTIFIER OR RESERVED 
WORD SCANNED! 
ARRAY rLBATt0f76]? INTEGER I.NXTELbTi 

fLbat 

I 

nxtelbt 

COMMENT ELBAT TS AN ARRAY HOLDING ELBAT WORDS FOR RECENTLY SCANNED 

Quantities, thf table routiNf maintains thiS aRRay, 

(FLBAT IS table SPELLED BACKWARDS,) ThE TABLE ROUTINE 
GUARANTIES ThAT ELBAT ALWAYS CONTAINS THE EL0AT WORDS 

FOR The last lO quantities scanned, nxtelbt is am index 

POINTING TO THE NEXT AVAIlABlF. WqRO In ElBAT, I IS An 

Index used by the rest of the compiler to fetch things 

From ELBAT. I IS ALSO MAINTAINED BY THE TABLE ROUTlNEl 
INTEGER ELCLaSS» 

flclass 

comment ELCLaSS usually CONTAINS ELBAT t I ], CLASS! 
INTEGER LASTELcLaSSI 

lastelclass 

comment lastelclass IS SET TO PREV ELCLaSS BY NEXTENT; 
INTEGER FCR» NcR» LCR » TLCR» CLCR! 
FCR 
NCR 
LCR 
TLCR 
CLCR 

integer maxtlcr! 
maxtlcR 

COMMENT FCR CONTAINS ABSOLUTE ADDRESS OF THE FIRST CHARACTOR OF 

THE CARD IMagE CURRENTLY BEINq SCANNED* NcR THE ADDRESS 

Of The Next chaRactor to be Scanned* and lcR the last 

ChARacTOR (COLUMN 73), TLCR AND CLcR CONTAIN ADDRfSS OF 
The last character in the TaPf and CARD BUFTERS, MAXTLCR 
IS The maximum of TLCR when ThE input is 8L0CKEDI 
DEFINE BUFFSIZE = 56*t 



GTIX 
TEN 



INTEGER GTIXJ 
ARRAY tEN[0i69]i 



INTEGER NOOFARRAYSJ COMMfNT NOOFARRAYS IS THE SUM OF ARRAYS 

noofarrays 

declared IN THE OBJECT PRQGRAMj 

INTEGER lOBUFFSlZEJ COMMENT IOBUFFSIZe IS FILE SPACE NEEDED, 
PRT(U7) • IOBUFFSIZE 

GTll EQUALS TOTAL CORE STORAGE REQOI 
REAL FSAVEJ COMMENT SAVES FRACTIONAL PaRT EXPONENT WHEN CONV NUMi 
PRT(150) » fSAVe 

INTEGER iDLOCtlDLOCTEMPj 
PRTC151) • IDLOC 
PRTC152) P IDLOcTEMP 

ARRAY PDPRTt0l31»0l63J| 
PRT(153) ■ PDPRT 



01314000 T 
01315000 T 
01316000 T 

01317000 T 
01318000 T 
01319000 T 



0132a00.0 
01321000 
01322000 
01323000 
01324000 
01325000 
0132^000 
01327000 
01328000 



01329000 T 
01329100 T 

01329200 T 
01330000 T 



00031002912 
00031002912 
00031002912 

00031 00291.2. 
00031002912 
00031002912 



000llilfl3-l4.3 
00031003113 
0003I0031U 
00031003113 
0003t0031i3 

0003>0031>3 
00034 003113 

OOO3IO031I3 
00O3iO031l3 

00031003113 
0003I003H3 

00031003113 
00031003113 



01331000 T 00031003113 



01332000 
01333000 
0133*000 
01335000 
01336000 
01337000 
01338000 
01339000 
01339050 



00031 
00031 
0Q03I 
00031 
00031 
00031 
00031 

0003> 
0(mii 



003113 
003113 
003113 
003113 
0031»3 
003113 
0031»3 
0031«3 
0031U 



01340000 T 00031003113 
01340050 T 00031003410 



01340060 T 

01340070 T 

01 340080 T 
01340500 T 



0003-lOO.iAlO. 
00031003410 

oooaiaoaAio 

00031003410 



QUillOQO T 00Q31Q0341Q- 



013420OO T 000.11003410 



COMMp-NT 



PDPRT 
IT IS 
BUiLD 
OF EN 

Bl 



8 
18 
28 
38 



CONTA 
BUILT 

The s 

TRtES 
T 

t posi 

0"!? 

a 

5 
6-7 
"17 
-27 

-37 

-<I7 



INS INFORMATION FOR USE AT THE E 

BY progdescbldr.this INFORMATIO 
iigment dictionary and prt. There 
IN This table as described below. 

YPE 1 entry 

TlON KIND OF ENTRY 

ZERO 
MODE BITC)«CHAW O^WqRO) 

argument bit 

ZERO 
RELATIVE ADDRESS 
RELATIVE ADDRESS 
SEGMENT NUMBER 

ZERO 



ND OF COMPILATION 
N IS USED TO 
ARE TWO TYPES 



IN PRT 

IN SEGMENT 



BIT 



4 
13 
?Q 
38 

THERE 
IS DI 
ENTRY 
niCTi 

IS Re 

COMMENT The FORM 

COMPlLA 

SE 
BiT POS 

roii 
riM 

[3«1 

un 

rs'i 

[8t 1 

tiaii 

C33I1 

PR 

BIT POS] 

[014 

1611 



T 

POSI 



1 

2 

3 
-12 
-27 
•37 
-47 

IS ON 
STINGU 
IS US 
ONARY. 
AOY FO 
AT OF 
TlON I 
GMENT 
iTiONS 
] 
] 
] 
3 
3 
3 

0] 
53 
53 
T ENTR 

TIONS 
3 

3 

n 



YPE 2 
TlON 



ENTRY 



ENTRY 



TYPE 2 (DAT 
INTRINSIC P 
"PSEUDO-SAV 



LY ON 
ISHED 
f;D TO 
TYPE 
H OUT 
SE6ME 
S AS 
OlCTl 
CON 
EMP 
ON 
ON 
EMP 
ON 
EMP 
R"R 
SIZ 
DIS 
Y (IE 
CONT 
110 
MOD 
STO 
IF 

I 



E TYP 
BY T 
BUIL 
2 fNt 
PUT' 
NT Di 
FOLLO 

onaRy 

TEnTS 
TY 

IFF T 
IFF I 
TY (U 
IFF •• 
TY (U 

elati 

E (NO 
K ADD 
• » PR 
ENTS 

Kbin 

E AND 

ppeR 



KIND OF 

EMPTY 

ON IFF 

ON IFF 

ON IFF 

EMPTY 

DISK ADDRESS OR 

SEGMENT NUMBER 

NUMBER OF WORDS IN 
E 2 ENTRY PER SEGMENT, 
HE NON ZERO FIELD IN B 
D The D«UM DESCRIPTOR 
RIES ARE PUT INTO PDPR 



A) SEGMENT 
ROCEOURE 
E** SEGMENT 



INTRINSIC NUMBER 



SEGMENT 
THE TYPE ? ENTRY 
ITS 38'47; THIS 

IN THE SEGMENT 

T WHEN ANY SEGMENT 



CTiONARY AND PRT ENTRIES AT THE END OF 
WSt 

ENTRY (IE. I SD[I3 FOR SEGMENT NUM. I) 

or FIELD 



YPE 2 (DATA 
NTRINSIC PR 
SED BY MCP 
PSfcUDO-SAVE 
SED BY MCP 
VE LINK TO 
T USED FOR 
RESS OR INT 
ogram DESCR 
OF FIELD 
ARY) NON-PR 
ARGUMENT B 
(ON IFF THI 

Then i els 



ri8«l53 
r33ll53 RELATIVE 
COMMENT THE CONTENTS OF RELATtVE 

WORD CONTENTS 

RELATIVE LOCA 

1 SIZE OF SEGME 

2 RELATIVE LoCA 

3 SIZE OF PRT 



) SEGMENT 

OCEDURE 

PRESENCE-BIT ROUTINE) 

" SEGMENT 

OVERLAY ROUTINE) 

A PRT ENTRY FOR THIS SEGMENT 

INTRINSICS) 

RINSIC NUMBER 

IPTOR FOR SEGMENT NUMBER I) 

ESENT PROG, DESC. ID BITS 
ITS 

S ENTRY LINKS TO SEG, DICT,3 
E R-RELATIVE link to ANOTHER 
PRT ENTRY FOR SEGMENT I 



ADDRESS WITHIN THE SEGMENT OF ThIS DESCI 
DISK SEGMENT ZERO OF THE CODE FILE AREj 



TlON OF SEGMENT 
nT DICTIONARY 
TlON OF PRT 



DICTIONARY 



01343000 
01344000 
01345000 
01346000 
01347000 
O134SOOO 
01349000 
013^0000 
013S1000 
01352000 
01353000 
01354000 
01355000 
01356000 
01357000 
01358000 
01359000 
01360000 
01361000 
01361050 
01361100 
01361200 
01361300 
01362000 
01363000 
01364000 
01365000 
01366000 
013670QQ 
01367010 
01367020 
01367030 
01367040 
01367050 
01367060 
01367070 
01367075 
01367080 
01367085 
01367090 
01367100 
01367110 
01367120 
01367130 
01367140 
01367150 
0136-7160 
01367170 
01367180 
013-67190 
01367200 
01367210 
01367220 
01367230 
01367240 
0136725^ 
01367260 



0003100361 
0003100361 
0003100361 
OOO3IOO36I 
0003 1 00 361 
0003I0036< 
0003»0036i 
000}I00 3«< 
0003100361 
0003100361 
0003100^61 
0003100361 
0003100361 

0003l0O3tl 
0003100361 

0003100361 
0003100361 
0003100361 
0003100361 
00031 00 361 
0003100361 
0003100361 
0O0340O36I 
0003100361 
0003100361 
0003 1 003 6 1 
OOO31OO36I 
0003100361 
00031003^1 
OOO31OO36I 
0003100361 
0003100361 
OOO3IOO36I 
0003)00361 
0003100361 
0003I0036I 
0003100361 
0003100361 
0003*00361 
0003100361 
0Q0310O361 
0003100361 
0003100361 
0003X00-361 
0003100361 
0003100361 
OQ0340il3A4 
0003100361 
O003IO0361 
0O03-U)O3^J 
0003100361 
0003100361 
00031003.61 
OOO3 100361 
0003100361 
00431-00-344 
0003100361 



PRT(l54i 

PRT(155) 

PRT(156) 

PRT(157) 
PRTfidO) 
PRT(161) 
PRTCUZ) 



« PDINX 
»» S6AVL 

• sgno 
a Enoc 

«? COP 

B Wop 

» POP 



« PfLATlVE I'OCaTION OF FILE PARAMETER BLOCK 

5 SIZE OF FILE PARAMETER BLOcK 

f> SFGNiENT NUMBfR Of FIHST SEGMfNT TO EXECUTE ClEf. 1) 

7 N 

u 
T s 

E 
INTEGER PnlNX;COMMFNT THiS IS THE INDEX FOR PdPRTI 



t 

i 

?9 



INTEGER SGaVLjCOMMeNT KeXT AVAILABLE SEGMENT NUMBER; 
INTFGER SGNOjcOMMeNT THIS IS THE CURRENT SEGMENT NUMflERl 
ARRAY rnOCrO»7'.OJi27],c0PfOJ63]»W0PtOll27],P0PrOJl0]; 



COMMENT THE EMIT ROUTINES PLACE EACH SYLLABLE INTO THE EDOC ARRAY 
AS SPECIFIED BY "U^i 

if debugtog is true* cop» wop» and pop are filled 
the bcd for the operators' otherw i se they are not usedl 
Real lastentry i 
PRT(1633 « Lastentry 

coMMFNT Lastentry is used by emitnum aNd constantclean, it points 
INTO iNrOfO,*] at the Next available cell for constantsi 
boolean mrclean t 

PRTC164) s MRcLfaN 

comment no constantclean action takes Place while mrclean is 
falsf. tnis feature is used by block because of The 

POSStBiLiTY That constantclean will use iNpOrNEXTiNFOi 
DURiNf, AN array DECLARATION ; 

Real gti »p.t?»gt3»gT4.6T5> 



PRT(i65) 
PRTfi66) 
PRT{1a7) 
PRT(irO) 
PRT(l7l) 



» gTi 

■ gt? 
« GT3 

■ GT4 
» GT5 



PRT(l72) s GTll 
PRTC173J ■ RESULT 



INTEGER GTllj 

COMMENT THEsF VARI^BLEr ARE USED FOR TEMPORARY STORAGEI 
INTEGER RESULTi 



COMMENT this VARIABLE IS USFD FOR A DUAL PURPOSE BY THE TABLE 

routine and the scanner, the table routine uses this 
Variable to specify scanner operations and the scanner 
uses it to inform the table routine of the action taken; 

INTEGER LaSTUSeD; 
PRTC17*) • LASTUSED 

comment lastused is a varfable that controls the action of 

Rfadacarp, The routine which reads cards and initializes 
OR prepares The card for the scanner, 

LASTUSED last CARO ReAD fROM 

1 card ReadfR only, no tape, 

2 caRd RfadtR, tape ano caRd Merge, 



01367270 
013672S0 
01367290 
01367300 
01367310 
01367320 
01367330 
01367340 
01368000 



01372000 
01373000 
01374000 
01375000 
01376000 



01380000 
01381000 
01382000 
01383000 
01384000 



01369000 T 
01370000 T 
01371000 T 



01377000 T 
01378000 T 
01379000 T 



00031 
00031 
00031 
00031 
00031 
00031 
00031 

oooat 

00031 



003611 
003611 
00361} 
003611 
003UI 
0036U 
003611 
0036U 
003611 



000 31 00 3^ U 
00031003611 
00031003611 



0003 10047 12 
0003(004712 
00031004712 
00031004712 
0003J0047I2 

0003;D047I2 
00031004712 
00031004712 

0003(004712 
00031004712 
00031004712 
0003I0047J2 
00031004712 



01364500 T 00031004712 



01385000 T 
01386000 T 



0003t0047t2 
00031004712 



01387000 
01388000 
01389QQO 
01390000 
01391000 

01392000 
01393000 
0139.4000 
01394500 
01394600 
01395000 
01396000 



00031004712 
00031004712 
QQ0ilQQ47l2 
00031004712 
0003*004712 

0003l004rt2 
OOO31OO4712 
OlOO 3 44X047-4 2 
00031004712 

00031004712 
Q0aiXflfl4-7J2 
00031004712 



Hi 



3 
4 
5 

6 



taPe» taPf and card meRse. 
initializatton only, card only, 
card reader - makcast, merging, 

TAPE - mAkCaST, mER&InG, 



I 



BOOLEAN LINKTOGi 
PRT(l75i • LINKtOG 

commf 



■NT 



PRT(176) 
PRT(177) 
PRT(200) 
PRT(201) 



INTEGER 

• LEVEL 

■ frstlevel 
« sublevel 

• MODE 

COMME 



PRT(?02) 
PRT(2o35 



INTEGER 

• AUXmEmREO 

Boolean 

• SAVEpRToG 



uinktoq is faUse if the Last thing emitted is a link. 
Otherwise it is truei 
lfvel,fRstlevel,subUfvel»mode« 



NT THESE VARIABLES ARE MAINTAINED BY THE BLOCK ROUTINE TO KEEP 
TRACK OF LEVELS Op DEFINITION, LEVEL GIVES THE OfPTH OF 
NfSTING in DEFINITION, where EACH BLOCK AND EACH PROCEDURE 
GtVeS RiSe To A NfW LeVEU. sublevel gives THE tEVEU OF 

The Parameters of the procedure currently being compiled, 
fRSTlfVel is Thf level of The parameters of the most 
global of the procedures currently being 

IS The current depth OF THE PROCEDURE IN 
NESTED (AT COMPILE TiME)> 

auxmemreq; 



compiled; mode 

which we are 



SAVEpRToG; 

COMMENT VARIABLES USED TO CONTROL SEGMENT DICTIONARY 
ENTRIES FOR "PSEUDO-SAVE" PROCEDURES! 
AUXMeMReO is THE AMOUNT OF AUXILIARY MEMORY 
WHICH WOULD RE REQUIRED IF aUL OF THESE 
-PSEUDO-SAVE* ROUTINES ARE TO BE OVERLAID 
TO AUXILIARY MEMORY, SAVEPRTOG IS USED 
TO COMMUNICATE TO THE OUTSIDE WORLD THAT A 
ROUTINE IS "PSEUDO-SAVE". 
> 



BOOLEAN ERRORTOGI 
PRT(204) « eRRORTOG 

COMME 



PRTC205) 
PRT(206) 



BOOLEAN E 

P fndtog 



NT fRRORTOG is TRUE iF MESSAGES aRf CURRENTLY ACCEPTABLE TO THE 

ERROR ROUTINES, fRRORCOUNT IS THE COUNT OF ERROR MSSfiSl 
NOTOgI comment ENdTOG TELLS THE TABLE TO ALLOW 



BOOLEAN STReAMTOG* 
« STReAMTOg 



COMMENT TO Be PASSfD BACK TO COMPOUNOTA ILJ 
% STREAMTOfi tS TRUE IF WE ARE COMPiLiNG A 



DEFINE FS 

Fl 

COMME 



NT 



% STREAM STATEMENT jN ALGOL, TSPOL, OR ESPOLl 
% IT IS USED TO CONTROL COUmPOUnDTAIL, 
X IT IS ALSO USED WHEN WE ARE COMPILING A 
% "FILL" STATEMENT CSEE '•FILLSTmT" PROCEDURE) OR 
X AN ALPHA (bCL) STRING (SEE "TABLE" PROCEDURE). 
1#» FP • 2#, FL ■ 3f» FR * 4#, FA » 51* 
6*» FIO » 7*i 

THESE DEFINES ARE USED WHEN. CALLING THE VARIABLE ROUTINE. 
THEIR PURPOSES IS TO TELL VARIABLE WHO IS CALLING, 
THEIR MEANING IS« 
FS MEANS FROM STATEMENT* 
FP MEANS FROM PRIMARY, 



01397000 
0l39a000 
0i398i00 
01398200 
01398300 
01399000 



01400000 T 
01401000 T 
01402000 T 



01403000 
01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
014} lOOO 
OUflOlO 

01411020 



0141 
0141 
0141 
0141 
0141 
0141 
0141 
0141 
0141 
0141 



1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
2000 



01413000 
01414000 
01415000 

01416000 
01A16.5J00 

01417000 

014 17500 

01418000 

01418500 

QU1A0QO 

01420000 

01420500 

01 421000. 

01422000 

01423000 

.01.424000 

01425000 



0003I004''I2 
00031004712 
0003»0047»2 
0003I0047«2 
0003-1004712 
00031004712 

00011004712 
00031004712 
00031004712 



00031 
00031 
00031 
0003* 
00031 
00031 
00031 
00031 
00031 
0003* 



004712 
004712 
004742 

004712 
004712 
004712 

004712 
004712 
.004712 
00«7I2 



00031004712 



0003J 
00031 
00031 
00031 

Qooat 

0003t 
00031 
000 11 
00031 
00031 



004712 
00471-2 
004712 
004712 
004712 
004712 
004712 
004712 
004712 
004712 



00031004712 
00031004712 
00011004712 

00031004712 
0-0011004^12 

OOO31OO4712 

00-31 aQ4l 12- 

000310047«2 

00031004712 

0001100471 2 

00031004712 

00031004712 

.0-0011004^12- 

00031004712 

00031004712 

000-11-004 712- 

00031004712 



PRT(207) • L 



INTFGER Ll 



FL Means fhom list» 
PR Means from roR» 

no MEANS FROM lOoEC» 

Fa Means from actualparapart» 
ri Means funny call from status 



CIMPFUN)! 



comment l is the 

DEFINE BLOcKcTR « 16#, 



COMMENT 



LOCATION OF THE NEXT 
JUNK K 17 #, XITR w 



syllabue to be 

18 #. LSTRTN ■ 



emitted; 

19#j 



PRTC210) m TBi 



DEFINE BTyPe 
COMMENT 



Boolean thi » 



These defines NaMe the fixed pRt cells used by all object 

PROGRAMS, 

bLOckctr is a tally which IS increment each timf a 

BLOCK IS eNTfReo WHICH ObTAiNS STORAqE* OR CONTAINS WITh 
IN IT A NON-UOCaL go TO. EACw TiME SUCH A BLOCK |S LEFT 
BuOCkCTR iS DECREMENTED. ThE PRIMARY PURPOSE SERVED iS T3 

INFORM The mcp of The storage which needs to be returned. 

jUnK is an Am-pURPOSE CELL fOR STORING VALUES USED 

In linkage between various routines and for integerizing 
things on the Top of the stack, 

XITR contains a cHARACTOR MODE PROGRAM DESCRIPTOR 
which points at AN EXIT CHARACTOR MODE OPERATOR, IT IS 
USED TO clean up THE STacK AFTER A MKS HAS BEEN GIVEN, 
THIS A USFULL WaY TO ELIMINATE MANY REDUNOENT ITEMS IN THE 
STACK, SEE FOR EXAMPLE THE ARRAY DECLARATIONS, 

LSTRTN IS A CELL USED AS LINKAGE BETWEEN A LIST AND 
The !"0 formating ROUTINES. THE FIRST SYLLABLES EXECUTED 
BY A LIST ARe» D OPdc LSTRTN, 2) BFW, THIS CARRtES YOU 

TO The proper item in The list, the formating routines 

SpT LSTRTN initially TO ZERQ, THE LIST ITSeUF UPdATES 
LSTRTN, THE LiST EXHAUSTED FLAG IS -iJ 
»i*» DTyPE «2»» ATYPE «3#I 

These defines naMe The values used by the expression 
ROUTINES IF Report the tyPe of expression compiled. 
btyPe is for boolean. dtyPe for oesignattOnal, and atype 
For arithmetic expressions; 



comment TBI IS a temporary boolean Variable; 
integer jumpctri 

PRTCZUi • JUMPcTR 

comment jumpctr is a variable used for communication between block 

and GENGO. it gives HIGHEST LEVEL TO WHICH A JUMP HAS 
BEEN MADE FROM WlTHlN A THE PRESENTLY BEING COMPIUED 
SEGMENT. THE BLOcK COMPILES CODE TO INCREMENT AND DECRE- 
MENT THE BLOCKCTS ON THE BASIS OF JUMPCTR AT COMPLETION 



PRTC212) • QOTOG 



PRT(2l3) « STLB 



BOOLEAN 



OF 
IF 
G0T06I 



COMPILATION oF A 
LEVEL « JUMPcTr; 



SEGMENT • I,E. THE BLOCKCTR Is TALLIED 



COMMENT 

REAL STLB; 
COMMENT 



GoToG IS SET False by gostmt, 
Label or switch is non local 
Means whether or not a call 



ON 



DEXP sets GOTOG true if any 
GOSTMT FINDS OUT BY THIS 
MCP IS NECESSARY; 



STLB IS USED BY VaRIABLE AND ACTUaLPaRaPaRT TO COMMUNICATE 
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 
ARRAY INVOLVED iN A ROW DESIGNATOR. THE FORMAT OF THE 



0H260O0 




0003;0047<2 




OU27000 




00031004712 




0U27250 




00031004712 




0U27500 




00031004712 




Dlfl2.7600 




0.0031004712 




01428000 




00031004712 




01429000 




0003 100471 a 




01430000 




0003J0047I2 




01431000 




00031004712 




01412000 




.QQ.0110.Q47L2 




01433000 




0003(004712 




01434000 




00031004712 




01435000 




00D3IQ047I2 




01436000 




00031004712 




01437000 




0003>0047l2 




014 380(^0 




QM^lO.(^H7t^ 





01439000 




00031004712 




01440000 




00031004712 




01441000 




00031004712 




01442000 




00031004712 




01443000 




00031004712 




01444000 




00O3l0047i2 




01445000 




00031004712 




01446000 




00031004712 




01447000 




00031004712 




01446000 




00031004712 




01449000 




00031004712 




1450000 




Q003I0Q47J2 




01451000 




00031004712 




01452000 




00031004712 




01453000 




Q003l0047»2 




01454000 




00031004712 




01455000 




00031004712 




Pi 45 6 000 




000310047 12 




014S7000 




00031004712 




01458000 




00031004712 




01459000 




0003»0047l2 




01460000- 




00031-004712 




01461000 




00031004712 




01462000 




00031004712 




01461000 




0003 1004712 





01464000 




00031004712 




01465000 




00031004712 




01466000 




000310047.12 




01467000 




00031004712 




01468000. 




00031O04712 




01469000 




00031004712 




01470000 




00031004712 




0U71Oa0- 




0003100471-2 .- 




01472000 




00031004712 
fflQ03lOOfl7l2 




01473QOQ 






01474000 




00031004712 





m 



PRTC214) 
PRT(2i5) 

PRT(216) 

PRTCZirs 

PRT(2?0) 

PRT(22n 

PRTC222) 

PRT(223) 

PRT(224) 

PRT(225) 

PRT(2?6) 

PRT(2275 
PRTC230) 
PRT(23l) 



INFORMATION iS THAT Op iNFO, STUB IS ALSO SOMETIMES USED 
FOR TfMPORARY StORAGEI 
DEFINE BUMPL s L»L+2#I 

COMMENT BUMPL iS USED MOSTLY TO PREPARE A FORWARD JUMP; 
DEFINE IDMAX • LABELlD#i 

COMMENT IDMAX iS THE MAXImUm CLASS NUMBER FOR IDENTIFIERS; 

INTEGER definectr^defineindex; 

» DEFInECTr 

• DEFInEInDEX 

ALPHA ARRAY DEF iNFOt I 69 3 ; 

• DEFINED 

ALPHA ARRAY TEXT tO « 31 » J 2553 J 
" TEXT 

INTEGER DEFSTACKHEADI » STACKHEAD FOR DEFINE PARAMETERS 

• OEFSTACKHEAD 

INTEGER NEXTTEXT; % nEDE>< OF NEXT DEFINE TEXT 
» NEXTTEXT 

REAL J0INF0# COMMENT POINTS TO PSEUDO LABEL FOR JUMP CUTS; 

• JOINFO 

LPRTi COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT ; 

• LPRT 

NfSTLEVEU* COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS) 

* nestleveu 

JUMPLeVEL; COMMENT NUMBER OF LEVELS TO BE JUMPED OUTI 

• JUMPLEVEL 

COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENT; 
ARRAY MACROCOI35]» 
m MACRO 

COMMENT MACRO IS FILLED WiTh SYLLABLES FOR STREAM STATEMENT; 
REAL P» COMMENT ConTAInS NUMBEr oF FqRmAlS FOR STREAM PROCs; 



» P 
• Z 



Z; 



COMMENT CONTAINS 1ST WORD OF INFO FOR STREAM FUNCTIONS; 



SAVE ALPHA ARRAY DEF 1 NEARRAY [0 i 34 3 » 
»• DEFINEARRAY 

COMMENT THESE VARIABLES ARE USED TO CONTROL ACTION OF THE DEFINEt 
OEFINECTR COUNTS DEPTH OF NESTING OF DEFINE"! PAIRS, 
THE CROSSHATCH PArT OF THE TABLE ROUTINE USES DEFINECTR 
To DETERMINE THE MEANING OF A CROSSHATCH, DEFINEINDEX IS 
THE NEXT AVAILABLE CELL IN THE DEFINEARRAY, THE DEFINE- 
ARRAY HOLDS THE Alpha of the define being recreated and 
The PREVIOUS values of lastuseo, lcr. and NCR; 

INTEGER BFGINCTR; 
PRT(232) 9 BEGINCTR 

COMMENT BEGINCTR GIVeS THE NUMBER OF UNMATCHED BEGINS, IT IS USED 
FOR ERROR CONTROL ONLY; 
INTEGER DIALA'DIALBI 
PRT(233) • OIALa 
PRT(234) m niALB 

COMMENT THESE VARIABLES GfVE THE LAST VALUE TO WHICH A AND B WERE 

Dialed, this giVes some local optimization, emitd 
Worries abqut this, qTher routines cause a loss qf memory 

BY setting DIALA AND DIALB TO ZErOI 



01475000 
01476000 
01477000 
01478000 
01479000 
01480000 
01481000 



T 00031004712 

T 00031004712 

T 00031004712 

T 0003»0047»2 

T 00011004712 

T 0003«0047«2 

T 0003»0047«2 



01481100 T 

01481200 T 

0148130Q T 

01481400 T 

01482000 T 

01483000 T 

01484000 T 

01485000 T 

01486000 T 

01487000 T 

1484000 T 

01489000 T 

01490000 T 

01491000 T 

01492000 T 

01493000 T 

01494Q00 T 

01495000 T 

01496000 T 

01497DQQ I 

01498000 T 

01499000 T 



01500000 T 
01501000 T 
01502000 T 



00031004712 

00031004913 

00031015210 

00031005210 

0003t0052>0 

00031 005210 

0003l0052»0 

0003«0052»0 

00031005210 
0003«0052«0 

00031005411 
00031005411 

00031005411 

00031005411 

00031005712 

00031005712 

0OD3IQQ57I2 

00031005712 

00031005712 

0QDlli)Q571-2- 

0003)005712 

00031005712 

00031005712 
00031005712 
00i>31-005Z-l-2- 



01503000 
01504000 
01505000 
015(W>M 
01507000 
01508000 
01509500 
01510000 



I 0003lM5XJ-a-.. 

T 0003>005712 

T 00031005712 

T {^004 1-0057^ 2 

T 00031005712 

T 00031005712 

T 0O034^05Zt2-- 

T 00031005712 



PRT(235) m RRBl 



PRT(236) » RRB2 



BOOLEAN RRBi; COMMENT RRB1---RRBN ARE BOOLEAN VARIABLES THAT SERVE THE 



Bo 



same function as 
Comment at rrj; 
olean rrB?; CommEnT 



RR1---RRN FOR REAL VARIABLES, SEE 

SEE Comment at rrbi declarationi 



DEFINE aRRaYMONFILE 

DEFINE rVaRMONFILE 

DEFINE NODIMPaRT • 

DEFINE LABLMONFiLe 



» t27jin# 
■ [37»in#i 



[40183#| C 
FO 

IN 

• ti3ni3*j 



DEPiNe SWiTMONFtLe • [13»11]#| 



DEFINE FUnCMOMFilE m C27«in#l 



DEFINE dUMPEE ■ C2|ll]<(j COMM 

ADDIt 
THE A 
EACH 

APPEa 
DEFINE nUMPOR • C2<HllJ*» COM 

ADDIT 
THE A 
FROM 

The P 

l«l 
;t20lcHUNK3( 



INK w 180) 
:Odf DISKI 



) COMM 

THE A 

THE F 

COMME 

THE AD 

INFO F 

OMMENT 

R ARRAY 

NODIMP 

COMMF 

POSlTl 

iNFO T 

addRes 

COMMe 

postti 

tNFO T 
ADORES 
COMME 
POSITI 
INFo T 

addres 

ENT THE 

Ional W 
ddress 

TIME TH 
RS IN A 
MfNT TH 
lONAL W 
DDRESS 
THE DUM 
RINTI R 



ENT ARRAYMO 
DDRESS OF T 
IRST WORD 
NT MONITORF 
DRESS OF TH 
OR MONITORE 
THE FIRST A 
S CONTAINS 
ART? 

NT LaBLMONF 
ON IN THE F 
HAT CONTAIN 
S FOR LABEU 
NT SWITMONF 
ON IN THE F 

hat contain 

S FOR LABEL 
NT FUNCMONF 

ON In the F 
hat Contain 

S FOR LABEL 
DUMPEE FIE 
ORD OF INFO 
OF THE COUN 
E LABEL IS 

DUMP DECLA 
E DUMPOR FI 
ORD OF INFO 
OF THE ROUT 

P oeclaRati 

OUTINEI 



NFILE IS THE DEFIN 
HE FILE DESCRIPTOR 
F ADDITIONAL INfOj 
ILE IS THE DEFINE 
E FILE DESCRIPTOR 
D SIMPLE VARIABLES 
DDITIONaL WORD OF 
THE NUMBER OF DIME 



ILE DESIGNATE 
iRST WORD Of 
S THE MONITOR 

s; 

iLe designate 

iRST WORD Of 
S The MONITOR 

s; 

ILE designate 

IRST Word of 

S the MONITOR 
S) 

LD in THE FIR 

FOR Labels c 
ter that is i 
Passed if tha 

RATIONj 
ELD IN THE FI 
FOR LABELS C 
INE THAT IS G 
ON THAT IN TU 



S THE 

ADDIT 

FILE 

S THE 

ADOfT 

FtLE 

S THE 

ADDIT 

FILE 

ST 

ontai 

NCREM 
T LAB 

RST 
ONTAI 
ENFRA 
RN CA 



E FOR 
IN 

FOR 

IN 

; 

INFO 
NSIONS 

BIT 
lONAL 



BIT 
fONAL 



BIT 

ional 



NS 

ENTEO 

EL 



NS 

TED 

LLS 



4. 30, SAVE ABS(SaVET1ME))I 



define chui 
fiLf Out c< 

PRT(237) • CODE 
PRT(240) m 

PRT(2«n • fiLe attrbuts 

FILF in card (RR1#10,RR2)> 
PRTC242) • CARD 

SAVE 

FILE Out LfNE DISk SeRiAL r?0l?400] fRR3,l5,RR4,SAVE lO)) 



0151 JOOO 
01512000 
01513000 
01514000 
01515000 
01516000 
01517000 
015180&0 
01519000 
01520000 
01521000 
01522000 

01523000 
01524000 
01525000 

01526000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
01541000 
01542000 
0154 3000 
01544000 
01545000 
015461)00 
01547000 
01548000 
01549,000 
01550000 
01551000 
Ol5520flQ 
01553000 
01554000 
01555000 
01556000 
01556100 
01556200 



00031005712 
00031005712 

00031005712 
0003t0057t2 
000il-0057i2 
00031005712 
00031005712 

0aO3*O0^7i2 
00031005712 
00031005712 
00034.4)^0574 2 
00031005712 

00031 Q05J».2 
000310057*2 
0003»0057»2 



0003} 
00031 
0003 1 
00031 
00031 
Q003i 
00031 
00031 

oooai 

00031 
0003t 

aooa I 

00031 
00031 
000 3 J 
00031 
00031 
OQQ3I 
0003t 
0003J 
00 Oil 
00031 
00031 

000 a I 
ooost 

00031 
QOQlt 
00031 
00031 
Q0Q3! 
00031 
0003t 
00031 



005712 
0057J2 
00574 2 
0057»2 
005712 
QQ57I2 
005712 
005712 
005712 
005712 
005712 
005712 
005712 
005712 
005712 
005712 
005712 
QQ5712 
005712 
005712 
005712 
005712 
005712 
0X>57I2 
005712 
005712 
Qa5Xl2 
0057J2 
005712 
00.5712 
005712 
005712 
DO 57 1 2 



01557000 T 00031006411 



01558000 T 
01559000 T 



aOQl!QQ6Btt 
0003t0068ti 



m 



PRTC244 
PRT(245 
PRTC2fl6 
PRT(247 
PRTC250 

PRT(25l 

PRT(252 

PRTC253 

PRT(254 

PRTf255 

PRT(2s6 
PRT(25r 

PRT{260 
PRTC261 

PRT(262 
PRTC263 



PRT(26« 
PRT(265 
PRT(266 
PRT(267 
PRTC270 



• LINE 

• LIN 



ARRAY |,lNroi?r>3l CoMMEmT prInT oUTpUT BUnr In LlNl 
INTEGER DAI 



DA 



SAVr FiLf out NfWTaPE disk SfRIAL C20|2*00] CRR5»RR6»RR7»SAVE 1)J 

■ nfwtape 

FILF: in TaPF "OCRDIMG** (2.RRB»RR9)» 
» TAPE 

savf ftLe out pnch disk Serial [2oj24oo](2,io.rrio»save 1); 

» PNCH 

COMMENT THE FOLLOWING ARe DECLARATIONS FOR THE SYMBOLIC LIBRaRIESI 
FlLr IN CASTA DISK SERIAL "caSTa* ''L 1 BRaRY^C 1 »BUFFS IZE ) » 



» rASTA 
" CASTB 

■ CASTC 

■ LIBRARY 



FiLr IN CASTBCI.BUFFSIZE)! 
FlLr !N CASTC(1,BUFFSiZE)) 

SWITCH FILE LlBRARY*CASTA#CASTBfCASTCI 
FiLf out REMOTE \9 (2m0); 



« REMOTE 

SAVE ARRAY CBUFF* TBUFFt « 9] I X INPUT BUFFERS, 
■ CBUFF 
m TBUFF 

BOOLEAN REMOTOGi 
• REMOTOG 

aRRaY LlBAPRAY[0t2ft3; % LIraRRAY IS USED TO KeeP INFORMATION AS 

» libarray 

X TO Last compiled library sequence numbers, 

% EACH ENTRY CONSISTS OF THREE WORDS CONTAINING! 
FILE DSKl DISK SERIAL 1 20 1 6l63 ( 2# lOi 30 ) J «116« 



• DSKl 
■ nSK2 



FILE DSK2 DISK SERIAL C20I 450] ( 2» 30» 30 ) J 



X116- 



■ LIBINDEX 
» LTLCR 
• MaXLtLCR 

• fiLeinx 
« srQsijM 



DEFINE LSTUSD«'[9l33lf F ILf INDEX*t 12 I 4 3 It STOPPOl NT»C 16 1 16 3 #. 

NeXTENTRY •C32il6]#| COMMENT SECOND WORD IS THE St SEQ NO; 
DEFINE NCRLINK m tl8n53#. LCRLINKb t33tl53#) 
INTEGER LIBINDEX. LTLCR, MaxLtLCR#FILEINX,SEOSUM| 



PRT(271) 
PRTC272) 



COMMENT LlBlNOEX IS A iNDeX INTO LIBARRaY 
INDICATING LAST ENTRY MADE IN THE ARRAY*. 
LTLCR AND MAXLTLCR CORRESPOND TO TLCR AND 
MAXTLCR USED IN READACARD. FILEINX iS TwE 
LIBRARY SWITCH Fl^E INDEX, SCqSUm IS ThE 
SUM OF BASE SEQUENCE NUMBERS AT THIS POINT. 
FINISHPT IS THE LAST RECORD NUMBER TO CoMPlLEl 
REAL RECOUNt»FINISHPT> 



• RECOUNT 
» FINISHPT 



PRT(2r3) • FIRSTIMEX 



BOOLEAN FIRSTIMEX; COMMENT USED TO INDICATE WHEN 

PROCESSING FIRST CARDIMAGE OF A NESTED CAULI 
BOOLEAN CaRDCALLi COmMeNT TRUE IF NESTED CALL CAME FROM THE 



015S9010 T 

01559020 T 

01560000 T 

01561000 T 

01561005 T 

01561010 T 
01561020 T 

01561030 T 

01561040 T 

01561050 T 

01561055 T 

01561056 T 

01561060 T 

01561065 T 

0156107Q T 
01561080 T 
01561085 P 



0003I0075«3 

00031007810 

Q003l007BtO 

0003t0085i2 

00031006913 

00031 0096 U 
00031009611 

00031010011 

00031010512 

00031010912 

00031 Oil 51 3 

0003lOii9»3 

00031012312 

0003t0123t2 

00031012511 
00031012513 
00031012513 



01561087 P 00031013010 



01561090- T 
01561100 T 
01561110 T 
01561120 T 



00031013410 
00031013410 
0003t0l34l0 
00031013410 



01561130 I 
01561140 T 
01561150 T 
015M16D I 
01561170 T 
0156U80 T 
01561190 I 
01561200 T 



00011013410 
00031013410 
O003l0i34l0 
QQO1IQ1.3AIX) 
00031013410 
00031013410 
OOail-OX34l0 
0003t0134l0 



01561202 T 00031013410 



0156 LiO 4 T 
01561206 T 



DXJOl-l-ailillO 
00031013410 



PRTC274) « CARDCAUU 



PRT<275) m NOReUfASF 



commfnt Recount is thf 

POOLF.AN NORELFASEI COMMENT 



CARn READFR EL-Se FALSEi 



LIBRARY Record counti 
noreuease allows printing 



PRT(276) • directory 



Of current bufffR when 

nrFr'NE NOROwS m 311 cOMMenT THIS 

BLOCKS PER LIBRARY TAPf^ 
ARRAY niRECTORYrOJ3xNOR0WS-l» 0?55]^ COMMENT 



COMMiNq OUT OF 
fS The MAXIMUM 



LIBRARIES* 

NUMBER Of DIRECTORY 



This is the actual 



as follows* 
Blocks* 
iM the library 

IDENTIFIER! 
THE ACTUAL 



DIRECTORY AmD IS MADE UP 
Ai 1 CAR- wUmBEr of DIRECTORY 
B» 1 CHr - NUMBER OF CHARACTERS 

IDENTIFIER NaME# 
C N cHR - ACTUAL aLPHa OF THE LIBRARY 
DJ 3 CHR - STARTING RECORD NUMbeR FOR 

fNjries. 

items b»c»d are the repeated for each identifier. 

library directory entries are not split across 
directory blocks. 

item b when indicates the end of the directory 
AND Then item o will follow indicating the 
Last sequence number + i put on the library. 

item B when INDICATS LAST DIRECTORY ITEM IN THIS 
BLOCK, 



IN 



ORDER TO 
NUMBr.R 



CHANGFt 
OF LIBRARY 



TAPES • 



DEFINE 

iNSpRTMAX 
iNSrRTCOP 
INSeRTmiD 

insertfid 
Insertinx 

INSERTSEQ 



ADD FILE DECLARATIONS AT 
01561020 - 01561050. 
- CHANGE ♦*3'' AT 
NUMBER Of library ENTRIES PeR TaPE • CHANGE NOROwS 

AT > 

X107' 
» 20#, % CHANGE TmS IF YOU NpED MORE LEVELS Of INCLUDES 



lNSERT|NFOrlNSERTDEPTH.'H#f % 

INSERTiNFOflNSERTDEPTH»0]#, % 

lNSERTlNFotlNSERTDEpTH.l]## % 

INSErTHFo[InSErTDEpTH.8J## % 

lNs£RTlNF0nNsERTDEPTH»3]#| % 



PRT(2775 
PRTC300) 

PRT(30l) 

PRT(302) 

PRT(303) 
PRTC304) 



INTEGER SAVECARD* INSERIDEPTHj 

• SAVECARD 

" INSERTDEPTH 

ARRAY InSFRTINF0[0iINSERTMaX»0U3i 

• INSERTINFO 

FILE LIrRaRYFIL DISK RAND0MC2. l0» 30) r 

• libraryfil 

define lf « li8raryfil#; 

SAVE ARRAY LBUFFC0i9J| % INPUT BUFFER 

• lr urr 

REAL STREAM PROCEDURE CMPD(A»B)| 

• cMPd 

BEGIN 

SII«AJ ni««BI 

IF 8 Sr 2: DC THEN 

BFGlN 

5II»SI-6| 0II"Dr8| TaLLY««»2; 

IF 8 SC « DC THEN TALLY|»1| 

END? 



« 1 IF COPY TO NEwTAPe 

mfid of The library file 

FID of THE LIBRARY FILE 
POINTER TO THE REC0RDXt07- 
LaST sequence TO BE INCLUD 

X107^ 



*i07' 



X107- 

j;io7- 

XI 07- 
«107- 

j;i07- 

X107- 
XIQ?" 
K107'' 
X107» 
1107- 

j;io7- 



01561208 T 

01561210 T 

01561215 T 

01561217 T 

01561220 T 

01561230 T 

01561240 T 



01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 
01561 



250 
260 
270 
280 
290 
300 
310 
320 
330 
3A0 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
500 
510 
520 
530 
540 
550 
560 
570 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
C 
C 
C 
C 
C 
C 
C 



00031013410 
0003t0l34t0 
00031013410 

0003 I 01 34 to 
00031013410 
00031013410 
0003I0134»0 



00031 
0003« 
00031 
00031 
00031 
00031 
000 11 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003J 
0003) 
0003t 
00031 
00031 
0003t 
00031 
0D03» 
0003t 
00031 
00031 
0003J 



013.912 
0139»2 
013912 
ail9l2 
013912 
013912 
0139*2 
0139J2 
0139«2 
013912 
013912 
013912 
013912 
013912 
013912 
013912 
013912 
0i39t2 
013912 
013912 
013912 

013912 
013912 
013912 
P139I2 
013912 
013912 
013912 
0139i2 



01561580 C 00031013912 
01561590 C 00031 0141 1 3 



01561600 
01561610 



C 00031014610 
C 0003101461 



01561620 C 0003I0148U 



01561630 
01561640 
01561650 
01561660 
01561670 
01561680 
01561690 



00031 
00031 

oooai 

00031 
00031 
QQ031 
00031 



015112 
015112 
015-113 
015210 
015210 
015312 
015410 



CMPpl.TALUYI 
END CMPDJ 



X107" 
*107< 



01561700 C 00031015410 
01561710 C 0003lOi5«IO 



PRT(3055 
PRT(306) 
PRT(307) 

PRT(3l0) 



» C 



• T 



REAL C| 

COMMENT C CONTAINS ACTUAL VALUE OF LAST CONSTANT SCANNED; 
REAL T| 



01562000 T 0003t0l55«2 



COMMENT T IS A TEMPORARY CeLLi 
INTEGER TCOUNTJ 
« TCOUNT 

COMMENT TCOUNT IS A VaRIaBLE WHICH HOLDS A PREVIOUS VALUE OF COUNT 

FOR THE USE OF cONVERt; 
REAL STACKCTI ZA 

■ STACKCT 

DEFINE LOGI 



EXPI 
XTOTHEI 

gotosolver 

PRINTI 
MERGE! 



»443l 
k440# 
v480« 
<i484# 

«500# 



*46l# 
«555# 
■465# 
B469# 
«473# 
«559# 
»563i 
»567# 



XllT"- 



PRTOU) 
PRT(3l2) 



POWERSoFTen «670#, 
LASTSEQUENCE »l66#, 
LASTSEOROW s ?#i 

interpto 

SUPERMOVER 

CHARI 

INTERPTI 

sorti 

DIALER 
FILATTINT 

POWERALL 

SPECIALMATH ■570#i 

SORTA «673#» X117- 

COMMENT THESE DEFINES ARE USED TO TALK TO GNAT, THEY GIVE THE INDEX 

IN INFO or The corresponding routine; 

INTEGE? KOUNT»BUFFACCUM> 
» KOUNT 
« BUFFACCUM 



INTEGER FtLeNOI 
PRT(3l3) K fI^eNO 

BOOLEAN 

rUNcTOG. 



PRT(3i4) • FUNCTOG 



PRT(3151 
PRT(3l6i 
PRT(317) 
PRT(3?0) 



• P2 
m p3 

■ P4 

• VONF 



P?» 
P3» 
P4* 

VONF» 
FORMALFi 



cOMMpNT Tells whfTheR procedure being declared is a 

function; 
comment genEraly tells Whether own was seen; 

comment tells WHETHER SAVE WAS SEENI 

comment TELLs WHETHER AUXMEM WAS SEENi 

COMMENT VALUE OR OWN FIELD OF ELBAT WORD; 

COMMENT FORMAL FIELD OF ELBAT WORD; 



01563000 T 

01564000 T 

01565000 T 

01566000 T 

01567000 T 

01568000 T 

01568500 T 



01569000 
01570000 
01571000 
01572000 
01573000 
01573100 
01574000 
01575000 
01576000 
01577000 
01577500 
01578000 
01579000 
01579100 
01579200 
01579300 
01579350 
01579355 
01580000 
01581000 
01582000 
01583000 



00031015512 
00031015512 

00031015512 
00031015512 

00031015512 
0003»0155I2 
0003 J 0155 12 

00031015512 

00031015512 

00031015512 

00031015512 

000 34 ai 55 1 2 

00031015512 

00031015512 

0003 1 Q 155! 2 

0003»0i55l2 

00031015512 

0003li)155ia- 

0003t0l55t2 

0003I0155J2 
00031015512 
0003J0155I2 
0003»0155I2 
0003.1015512 
00031015512 
00031015512 
0003 1 P 155 » 2 
00031015512 
00031015512 



01584000 T 00031015512 



01585000 T 
01586000 T 

01587000 T 
01586000 T 

01589000 T 
01589500 T 
01590000 T 
01591000 T 



00031015512 
00031015512 

0003l0l55»2 
00031015512 

00031015512 

04X03* 015^5 12 
00031015512 
00031015512 



PRT(321) 
PRTC322) 
PRT(323) 
PRT(324) 

PRT(3?5) 
PRT(326) 
PRT(3?r) 
PRTC3!»0) 



B FORMaLF 
■ PTOG 



PTOG» 



COMMENT TELLS THAT FORMAL PARAPART IS BEING PROCESSOl 



PRT(331) 
PRT(332) 
PRT(333) 
PRT(334) 
PRT(335) 
PRT{336) 

PRTOST) 
PRT(340) 

PRT(3al) 

PRT(342) 

PRT(3«3) 
PRT(3445 
PRT(3455 
PRT(346) 
PRT(34r) 



spectog. 

» SPECTOG 

STOPENTRY* COMMENT THiS MAKES THE ENTRY PROCEDURE ENTER ONLY 

p stopentry 

ONp 10 AND THEN flXTl 

aJumpi commfnt telUs whetheh a jump is hanging; 
» aJump 

boolean stopdefinei 

« stopoefine 

real coreszi % corf estimate needed for sort, 

• CORESZ 

integer maxsavej 

• maxsave 

Comment this contains the sue of the maximum save array 

DECLARED. IT IS USED TO HELP DETERMINE STORAGE REQUIREMENTS 
FOR THE PROGRAM PARAMETER BLOCK FOR THE OBJECT PROGRaMI 

real 

comment class in low order 7 bitsi 



» KLASSF 

• ADORSF 
» LEVELF 
« LINKF 
P INCRF 

■ PROINFO 

» Q 

• TYPEV 

• PROAOo 

• MARK 

B pj 

• J 

• LASTINFO 

• NEXTINFO 



KLAS5F» 

ADDRSF* 

LfVELF. 

LiNKF* 

iNCRF* 

PROINFO. 

G. 

typev. 

PROAOo» 

MARK » 

PJ» 
J» 
LaSTINFO* 

nfxtinfo* 



COMMENT ADDRESS IN LOW ORDER 11 BITSi 

COMMENT LVL IN LOW ORDER 5 BITSJ 

COMMENT LINK IN LOW ORDER 13 BITS? 

COMMENT INcR CN LOW ORDER 8 BITS! 

COMMENT CONTAINS FLBAT WORD FOR PROCEDURE BEING 

DECLARED! 
COMMENT GLOBAL TEMPORARY FOR BLOCK; 

COMMENT USfD TO CARRY CLASS OF IDENTIFIER 

BEING declared; 

COMMENT CONTAINS ADDRESS oF PROCEDURE BEING 

DECLARED; 
COMMENT CONTAINS INDEX InTq INFO WHERE FIRST WORD 

OF ADDITIONAL INFO FOR A PROCEDURE ENTRYi 
COMMENT FORMAL PARAMETER COUNTER; 

COMMENT ARRAY COUNTER; 

COMMENT INDEX TO LAST ENTRY IN INFO; 

COMMENT INDEX FOR NEXT ENTRYIN INFO; 



01592000 T 

01593000 T 

01594000 T 

01595000 T 
01596000 T 

0l59f000 T 

01597100 T 

01598000 T 

01599000 T 
01600000 T 
01601000 T 
01602000 T 
01603000 T 

01604000 T 

01605000 T 

01606000 T 

01607000 T 

01608000 T 

01609000 T 
01610000 T 



00Q3I0155I2 

00031015512 

00031015512 

0003 to 15512 
00031015512 

0003 till 551 2 

0003l0l55«2 

0003»0i55l2 

0003iai55i2 
0003I0155<2 
0003;0155t2 
000310155; 2 
00031015512 

000310155.12 

00031015512 

0003;0155I2 

00031015512 

0003;0l55t2 

0003»0155I2 
0003I0155«2 



01611000 T 0003l0l55«2 



GlOBALNINFOO^COMMENT MAINTAINS VALUE OF NINFOQ FROM BLOCK ON A. 
GLOBALNINFOO 

GLOBAL LEVEL SO THaT THE PROCEDURE "ENTRY" 
CAN CHECK FOR DUPLICATE DECLARATIONS; Xliap 

OLONINFOO, COMMENT REMEMBERS OLD VALUE OF GLOBALNINFOO; XllB- 



01612000 T 
01613000 T 

01614000 T 
01615000 T 

01616DD0 T 
01617000 T 

O1618Q00 T 

01619000 T 

01620000 T 

01620100 C 

01620200 C 
01620300 C 
01620400 C 



Q003I0155I2 
0003IOl55«2 

0003-IQ.155I2. 
0003;015St2 

0003! 0155 » 2 
00031015512 

00031 0155 U 

0003;0l55t2 

0003i0l55t2 

000110155.12 

00031015512 
00-031015512 
00031015512 



PRT<350) 
PRTt351) 

PRT(352) 
PRTC353) 

PRTC3541 
PRT(355) 
PRT(3565 



OLDNiNFOO 



m FiRSTX 
• SAVEl 



ftRSTx. 



« ncii 



SAVEi.i 

Integer nciii 



COMMENT RELATIVE ADD OF FIRST EXECUTABLE CODE 

IN Block, INITIALIZED to 4095 each time* 

COMMENT SAVE LOCATION FOR FiXUPS IN BLOCK* 
COMMENT THIS CONTAINS THE COUnT OF CONSTANTS 



REAL FILETHI 
FIL.ETHING 

PROCEDURE UNH 
UNHOOK 

PROCEDURE MaK 

makeupaccum 

DEFINE pURPT« 

COMMENT THES 

NUMBERS R 

FULL NAME 

DEFINE 

ADO K t6# 

BBC m 22* 

6BN » 5341 

BFC m 38# 

8FW « 550# 

CDC s 168# 

CHS f 134# 

COC m 40# 

COM B 130# 

DEL ■ lO* 

DUp » ?/st* 

EQl « 5fll# 

LBC « 2781 

LBU B 790* 

GEO ■ 21# 

LFC « 29<l# 
LFU » 806 



ENTERED IN 
NGi COMMENT HOLDS LiNKS 



INFO AT ANY GIVEN TlMEl 
FOR STREAM RELEASES I 



OOKiFORWaRDI 

EUPACCUMiFORWaRDj 

tflt83#»SECRET«2#j 
E DEFINES GIVE THE NAMES OF THE 
EFER to THE APPROPRIATE SECTION 
IS ALSO GIVENI 



WORD MODE OPERATORS, THE 
OF THE PRODUCT SPEcSt THE 



GTR * 

IDV IB 

INX 9 
ISO c 

ISN m 

L.EQ ■ 

LND w 

LNG f 

L.OD ■ 

LOR B 

Lfiv ; 

lss : 

MDS m 
MKS m 
MUL m 
NEQ ■ 
NOP m 

PRL m 
PRTE^ 

ROV » 

RTN m 



37# 

3841 

24# 

532# 

5AB# 

533« 

67# 

f 19# 

« 2601 

s 35# 

? 131* 

■ 54" 
«515*» 

■ 72# 

* 64# 

* 69« 
« U# 
M I8f 
w 12# 

896# 
39# 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

Comment 

Comment 

Comment 

commentc 

commentc 

COMMENT 

commentc 
commentc 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT (H 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



COlOl) 

C0131) 

C4131) 

£0231) 

f423n 

f 1241) 

fl031) 

f0241) 

f IO1 1) 

COO5I) 

(2075) 

C4425) 

2131) 

6131) 

C0125) 

2231) 

6231) 

(0225) 

C30ol) 

(0141) 

(4121) 

(4221) 
(4125) 
(0415) 
(0115) 
(2021) 
(02i5) 
(l0l5) 
(42?5) 
015) 7 
(Q4al) 
(04ol) 
(0425) 

(0055) 
(Olll) 
(0061) 
(7001) 
(0235) 



7.4.2.1 
7.4.5,4 
7.4,5.2 
7,4,5.3 
7.4.5,1 
7,4.10,4 
7.4.7.11 
7.4,10,3 
7.4.10,5 
7,4.9,3 
7,4,9,2 
7,4,4,3 
7,4,5,9 
7,4.5,7 

7,4.4,2 
7.4,5,8 
7,4,5,6 
7,4.4,1 
7,4,2,5 
7,4.10.2 
7.4,6,3 
7,4,6.4 
7,4,4,4 
7.4,3.1 
7,4,3.4 
7.4,10,1 
7.4.3,2 
7.4,3.3 
7,4,4,5 
,4,7,7 

7*4t6il 

7,4,2,3 

7,4,4,6 

7,4,7.1 

7.4,10,6 

7,4,10.9 

7,4,2,6 

7,4,8,3 



add; 

BRANCH BACKWARD CONolTIONALj 

BRANCH BACKWARD! 

BRANCH FORWARD conditional; 

BRANCH FORWARD! 

CONSTRUCT DESCRIPTOR CALLI 

CHANGE SIGNI 

CONSTRUCT OPERAND CALL* 

COMMUNICATION OPERATOR! 

DELETE! S5A 

DUPLICATE! 

EQUAL! 

GO BACKWARD CONDITIONAL! 

GO BACKWARD (WORD)! 

GREATER THAN OR EQUaL TO! 

GO FORWARD CONDITIONAUI 

GO FORWARD (WORD)! 

GREATER THAN! 

DIVIDEI 



STORE DESTRUCTIVE! 
STORE NON-OCSTRUCTJ 
EOUaU TO! 



INTEGER 
INDEX; 
INTEGER 
INTEGER 
LESS THAN OR 
LOGICAL AND! 
LOGICAL NEGATE! 
LOAD OPERATOR! 
LOGICAL OR! 
LOGICAL EQlVALENCE! 
LESS THAN! 
SET FLAG BIT! 
MARK STACK! 
MULTlPLYi 
NOT EQUAL TO! 
NO OPERATION! 
PROGRAM RELEASE! 
EXTEND PRT! 
REMAINDER DIVIDE! 

Return normaLi 



01621000 


T 


0003t0l55t2 


0l6?2000 




0003«0i55!2 


01623000 




00031015512 


01624000 




0003!0155I2 


01625000 




00031015512 


01625100 




00031015512 


01626000 




0003 to 1551 2 


01627000 




0003»0155»2 


01626000 




00031015512 


01629000 




00031015512 


01630000 




00031015542 


01631000 




0003t01S5i2 


01632000 




0003!0l55t2 


01633000 




00031015512 


01634000 




00031015512 


01635000 




00031015512 


01636000 




00031 01 55 J 2 


01637000 




00031015512 


01638000 




0003I0}55>2 


01639000 




00031015512 


O164OOOO 




0003>0i55!2 


01641000 




0003»0i55«2 


01642000 




00031015512 


01643000 




00031015512 


01644000 




00031015512 


016A5000 




00031015512 


01646000 




00031015512 


01647000 




00031015512 


01648000 




00O3lO155l2 


01649000 




00031015512 


01650000 




00031015512 


016S1000 




00031015512 


01652000 




00031015512 


01653000 




00031015512 


01654000 




4)00^1015512 


01655000 




00031015512 


01656000 




00O3l0l55i2 


016S7000 




00 aiQ 15512 


01658000 




00031015512 


01659000 




00031015512 


O166ODQO 




000X10-15512 


O166IOOO 




0003l0i55>2 


01661100 




00031015512 


0166 2000 




00031.015512 


01663000 




00031015512 


01664000 




00031015512 


1645000 




00011015512- 


01666000 




0003lOl5Sl2 


01667000 




0003 » 01 551 2 


0166BO0O 




00011015512 - - 


01669000 




00031015512 



RTS B 

SN|) m 

SSN M 

ssp ; 

STO f 
SUB u 

XCH » 

xtt ; 
zPi ; 

COMMENT 

DEFINE 

OIA m 

DiB * 

TRB » 



167*, COMMENT (1235) 

1321, rOMMpNT (lOzl) 

70#, rOMMpNT (0431) 

582#, cOMMpNT (4431) 

6e#, COMMENT (0421) 

481, COMMENT (030l) 

133#, cOMMfNT (l025) 

7l#, COMMENT f0435) 

3??#; COMMENT f24il) 

These defines are used 



45#» 
49#» 
5311 



Comment 

COMMENT 
COMMENT 



PRT(357) 
PRTC360) 

PRT(36l) 



PRTC362) 
PRT(363) 
PRT(364) 



real maxstack.stackctri 

maxstack 



(XXi,5) 

(XX6h 
<XX65) 



7.4,8.4 
^4.6.2 
7.4.7.10 
7,4.7,10 

7.4,6,1 
7.4.2,2 

7.4.9.1 
7.4.6.2 
7.4.10.8 
BY EMiTDI 

7.4,7.1 
7.4,7.2 
7.4,7,3 



Return special; 

STORE NON-nrSTRUcTlVE» 
SET SIGN NfgATIVE? 

Set Sign plus; 
store destructive* 

SUBTRACTI 

EXCHANGE! 
EXfTI 

CONDITIONAL HAtT> 



DIAL Al 
DIAL Bl 
TRANSFER BITSI 



STACKCTR 

INTEGER 
MAXROW 



INTEGER 
SEGSIZEMaX 

INTEGER 

r 



MaXROW) 

COMMENT THIS CONTAINS THE MAXIMUM ROW 

ARRAYS DECLARED. ITS USE IS LIKE THAT 

SEGSIZEMAXJ COMMENT CONTAINS MAX SEGMENT 

Fl 



SIZE OF ALL 
OF MaXSAVEJ 
SIZEI 



NOWSAVE 



STREAM PROCEDURE MOVECODE(FDOC, TEDOC ) I 
MOVrcODE 

BFGiN LOCAL T1,T2.T31 
s — «-----. 

D 
S 



ENoi 




PRT(365) » NLO 

PRT(366) ■ NHI 

PRT(367) m tLO 

PRT(370) ■ THI 

PRTC371) 9 DPTOG 



REAL NL0»NHI»TL0»THI| 



BOOLEAN DPTOGI 



PRT(372) • Tl 

PRT(373) 9 t2 

PRT(374) 9 N 

PRT(375) 9 K 

PRT(376) s a*<I<UM 



COMMENT THE ABOVf THINGS ARE TEMP STORAGE FOR DOUBLE NOSj 
DEFINE rZER0«e96f; 
REAL T1,T2.N,K,aKKuM; 



BOOLEAN STOPgSPi 



01689000 T 00031017011 



016J0D00 X OQQllOlZOU 



01691000 
01692000 
01693000 



T 0003I0170U 
T 00031017011 
T 00031017011 



01694000 T 0003«0170II 



01670000 T 


0003l0l55t2 i 


01671000 T 


00031015512 


01671100 T 


00031015512 


01672000 T 


00031015512 1 


01673000 T 


0003J0155I2 


01674000 T 


00031015512 


01675000 T 


0003i0l55l2 1 


01676000 T 


00031015512 


01677000 T 


0003<0i55t2 


01678000 T 


0003tOiS5t2 i 


01679000 T 


0003 IJD 1551 2 


016«0000 T 


0003t0l55'2 _ 


01681000 T 


0003|0t55t2 i 


01682000 T 


-0001j0155j2 


01683000 T 


00031015512 


01684000 T 


00031015512 
00031015512 


01685000 T 


01686000 T 


00031015512 


01687000 T 


00031015512 € 


01688000 T 


0003I0155I2 
00031015512 . 


01688010 T 


01688020 T 


00031015512 • 


01668030 T 


00011015610 


01688040 T 


00031015713 


01688050 T 


00031015913 ^ 


01688060 T 


0003l0i6l»3 


01688070 T 


0003»0i63>3 


01688080 T 


0003lOi65>3 # 


01688090 T 


0003 10167 12 


01688100 T 


0003|0169t3 


01688110 T 


0003i0170U # 



SB 



PRT(377) 
PRTC400) 

PRT(40l) 
PRT(402) 



» STOPgsP 



BUP 



INTEGER BUPI 



01695000 T 0003I0170U 



PRT(403) 
PRT(404) 



PRT(4o5) 
PRT(406) 
PRT(407) 
PRT(4l0) 
PRT(4ll) 
PRT(4i2) 
PRT(4i3) 
PRT{4i4) 
PRT(4V5) 
PRT(416) 



COMMENT UNIQUE GLOBAL TEmP FOR BuOCK^ 
ARRAY GTAtrOllO]! 
GTAl 

BOOLEAN ARRAY SPRTtO«3lJ> 
SPRT 

COMMENT SPRT IS TO BE CONSIDERED TO BE AN ARRAY OF 32 32 BIT 

FlELDSt THE 32 BITS ARE IN THE LOW ORDER PART OF EACH 
WORD. THE BIT IS ON IF AND ONLY IF THE CORRESPONDING 
PRT CELL HAS A PERMANENT ASSIGNMENT* 
INTEGER PRTlfPRTIMAXi 
PRTI 
PR T T M A X 

COMMENT PRTIMaX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN- 
MENT, PRTI SIVfS next PRT CELL POSSIBLY AVAILABLE FOR 

Temporary ASsiGNMrNTi 

DEFINE aLPmaSiZf • rl2»6]#| cOMMeNT aLPhaSiZe IS THE OEFlNf rOR THE BIT 

poSttion IN The second woro of info which 

CONTAINS THE LeNsTH Of ALPhAI 
DEFINE fDOctNdEX « L , r 36 « 3] . Ll t 3? » 7] * > COMMENT EDOCINdeX IS Thf WORQ 

PORTION Of L split INTO A ROW AND 
COLUMN INDEX FOR EOOCI 
DEFINE CPlUSi » 769#J COMMENT SEE COMMENT AT CPLUS? DEFInEI 
DEFINE CPLUS? ■ 770#l COMMENT CRLUSl AND CpLUS? ARE EXPLICIT CONSTANTS 

USED IN THE GENERATION OF C-RELaTIVE CODEi 
PROCEDURE FLaG(ERRNuM); VaLuf ERRNuMi INTEGER ERRNUMj FORWARD) 

fLag 

alpha PROCEDURE B2D<B); VALUE B? REAL B; FORWARD) 
B2D 

BOOLEAN MaCROIDI 
MACROID 

REAL PROCEDURE F IXDFF I NE I NFO(T ) I VALUE H REAL Tl FORWARDI 
FIXDEFINEINFO 

PROCEDURE DEFINEPaRAM(D»N)j VALUE O'Nj INTEGER D»N; FORWARD; 

oefineParam 

PROCEDURE ERR (ERRNUM); VaLUf fRRNUM? integer ERRNUMI FORWARD! 
pRR 

TAKE 

PUT 

GiT 



Real procedure takfcx); valuf %t integer xi forward? 

PROCEDURE PUT(W.X)I VALUE W.X» REAL W#X; FORWARO 
integer PROCEDURE GlTcL^^ VAlUf L» ReAL L* FORWARD^ 



BOOLEAN lISTmODEJ 
LISTmoDE 

COMMENT LISTMODE IS A VARIABLE USED BY FQRSTMT TO DECEIDE IF A LIST 
Is BEING GENERATED OR A STATEMENT* 
INTEGER LSTR; 
PRT(4l7^ ' L^TR 

comment lstr gives the location of first sylable of a list. it is 
Used by listelement to compute values to store is lstrtni 
procedure scannerl forward; 
prtc420) • scanner 

comment mkabs converts a descriptor to an absolute address* 

REAL STREAM PROCEDURE MKabSU)* 
PRT(421) • MKABS 



01696000 T 
01697000 T 



0003»0l70ll 
0003«0l70tl 



01698000 T 0003*017313 



01699400 
01700000 
01701000 
01702000 
01703000 



01704000 
01705000 
01706000 
01707000 
01708000 
0170900X) 
01710000 
01711000 
Oi 712000 
01713000 
01714000 
01715000 
01716000 



000 1*04 7M0 
00031017610 
0003*017610 
0003*01X610 
0003*0176*0 



0003*01 
0003*01 
00034 01 
0003(01 
0003*01 
00031 01 
0003*01 
0003101 
0003^01 
0003101 
0003*01 
0003*01 
0003*01 



76*0 
76*0 
7*4 
7610 
7v6IO 
76*0 
76*0 
76*0 
7640 
76»0 
76*0 
76*0 
76*0 



01717000 T 0003*0176*0 



01717800 T 

01717900 T 

01717950 T 

01718000 T 

01718100 T 

01 7 18200 T 

0l7i9000 T 

Ol7?0000 T 

01721O00-.T. 
01722000 T 
01723000 T 

01724000 T 
01725000 T 
01730000 T 

01732000 T 
Q I 733000 T 



0003*0176*0 

0003*0176*0 

0003*0176*0 

0003*0176*0 

0003* 01 76* 6 

0003101.7610 

0003*0i76«0 

0003t0l76l0 

OOOllOtlAXO 
0003*0176*0 
0003*0176*0 

0003*0176*0 
0003*0176*0 

0003 1017^ a 

0003*0176*0 

-oooiiaiz6JO- 



BFGIN ni * Al MKArS ♦ DI END MKaBSJ 



01734000 T 0003I0176J0 



PRT£*22) « MOVF 



STRFAM PROCTDURF MOVECkO^WORnS FR0M''(A)''T0''(B); VALUE Wl 

RFGIN LOCAL Tl 

5I*L0C WJ DI*LOt: Tl SI*SI+6; Dl*D! + 7| OS*CHRl 
SI'-AI DI*BI TCDS*-32 WDS» DS*32 WDS)) DS*W WOS; 

FNd MOvFJ 



01735000 T 00031017811 



01736000 T 
01736100 T 
01736200 T 



0003I0178J4 
00031017912 
0003t0l80i0 



01736300 T 00031018312 



PRT(4?3) » ZEROUT 



STREAM PROCEDURE ZEROUT ( DeST, Nq I V3?. NM0D32) f 

VAtUE N0IV3?»NM0D32 I 
BEGIN Dl I* DESTi 

NDIV32(32£DS l»a LIT^O"))) 

NM0D32(0S I* 8 UIT^O"); 

ENni 



01737000 T 00031018312 



01737050 
01737100 
01737150 
01737200 
01737250 



T 00031018312 

T 00031018312 

T 00031018410 

T 00031018712 

T 00031018913 



COMMENT "RLANKpT" BLANKS OUT N+1 WORDS IN "THERE"} 

STREAM PROCFDURF BLANKET CN, THfRf ) I VALUE Nj 
PRTC424) 9 rLaNKfT 

begtn 

D|t«THERE; DS1*8 LIT" "I SIi«THFRE; DSI»N WOSJ 
END BLaNKfTj 



01737300 T 

01737350 T 

01737400 T 

01737450 T 

01737500 T 



00031019010 
0003t0190l0 

00031019010 
0003t0l90t0 
0003tOt92lO 



PROCEDURE STEPITJ FORWARD? 
PRT(425) 9 STEPiT 

COMMENT SeSCHANGE WjUL CONV A MACHiNG NO, TO PROPER OUTPUT fORMI 
STREAM PROCEDURE CHANGESE0( VAL. OLDSEQ)? VALUE OLDSEQ; 
PRT(496) « CHAnGESEq 

BEGIN 

Dl * OLDSEO} SUVaL ; DS ♦ 8 DEC 
ENDl 



01738000 T 
01739000 T 
01740000 T 
01741000 T 

01741100 T 
01741200 T 

01741300 T 
01741400 T 
01741500 T 



0003I0192U 
00031019211 
00031019211 
0003l0l92«l 

00031019211 
00031019211 

00031019211 
0003|0193|2 
00031019313 



STREAM PROCEDURE SEQUENCEWaRN iNqCL ) ; 
PRT(427) • SEOUENCEWARNiNG 

BEGfN Olt»L| Dn»Dl-8{ DSi»24 LIT "SEQUENCE WARNI NG<<<<<<«"| ENDl 



01742100 T 00031019410 
01742110 T 00031019410 



m. 



BOOLEAN STREAM PROCEDURE NONrLaNKC FCR ) ; VALUE FCR> 
PRT(A30) m NONBLaNK 

COMMENT NONBLANK SCANS CARD FOR ALL BLANKS-- 
TRUE IF ANY VISIBLE CHARACTER > 
BFGIN 

Label nedj 

SI*FCRI 

TaLLY»0> 

2(36CIF SC >* •♦ •♦ THEN JUMP OUT 2 TO NEDJ SI* Sl + l))l 

TALLY*63J 

NED» tally*tally*i ; 
nonBlank*tally 
End nonBlanki 



01742200 T 00031019810 



01742300 
01742400 
01742500 
017A2600 
01742700 
01742800 
01742900 
01743000 
01743100 
01743200 
01743300 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1019610 
1019610 
1019610 
1019610 
1019610 
1019610 
1 01 96 II 
1020112 
1020112 
102024 
1 0202 U 



Integer faultlevelj comment this is for the run-time error kludge-* 

PRT(43l) ■ FAULTLEVEL 

gives the lowest level at WHICH there is an active 

FAULT DECL OR LABEL USED IN A FAULT STATEMENTI 
boolean FAULTOGJ comment FAUlTSTMT uses THIS TO TELL DEXP TO WORRY 
PRT(*32) » FAULTOG 

ABOUT FAULtLeVELi 
INTEGER SFILeNOJ COMMeNT FILENO Of FIRST SORT FILEJ 
PRTt433) « SFILfNO 

STREAM PROCEDURE GFTVOI QC VP» NqR, VR» LCR» SEQ ) I VALUE NcRl 
PRT(434) 9 fiETVOlD 

begtn 

LabfI- LptRans; 

LOciL Nj 

SII»SEOl Dll"LcR; DH-DI"!* OSl*Ll T"*"! % PUT "X" IN CC 72, 
OSl.WDSI X RESTORE SEO, No. FOR SVOIDCT) CARDS. 
SH.LCRJ DTlsLOC Nl DS:»ChR> X SAVE COL, 73 
SilxNCRJ DI«bVP> 0Sl»8 LIT •♦O"; 

2f34flF SCs" " THEN SiJ.Sj*, ELSE JUMP OUT 2 TO l)U 
SII.UCRJ TAlLY|»81 GO TRAnS;X NO VOlD RANGE FOUND* USE 73-80. 
L« 

IF SC*""- THEN 

BEGIN 

SIJ«SI + 1| Dli'LCR; DSti»l LIT"""; X STOPPER FOR SCAN 

NCRI'SIJ X TEMP. STORAGE* SINCE NCR IS "LOCAL" TO GETVoID. 

8(IF SC*""" THEN JUMp OUT ELSE 

BEGIN TALLYf«TALLY*l| SIl-Sl+l ENO)l 

END 
ELSf BEGIN 

NCRJ-Sn X TEMP. STORAGE* SINCE NCR IS "LOCAL" TO GETVOIO. 

OI««LCRJ 051*1 LIT" "; X STOPPER FOR SCAN 

8(IF SC»" " THEN JUMp OUT ELSE 

BEGIN TALLY|«TaLLY + 1| SH«SI*l ENO)» 

END* 

tRansi 

SIS.LOc N| DI««LCR| DSibCHRj X RESTORE cOLUMN 73 
SII«NcR> Dlt«VP| DIf«DI+8j X RESTORE POINTERS. 

ni»tallyi dh«di"N> osi«n chRj 

DIlwDI-fll VPt*Dn X I,E.» "LOC VP^I'OI. 

DIUVRJ SII«L0C VP; DSjuWdSiX ADDRESS OF VOID RANGE. 

END OF GETVOIDI 



01750000 T 00031020313 



01751000 
01752000 
01753000 



01754000 T 
01755000 T 



00031020313 
0003t020il3 
00031020313 

00031020313 
00031020313 



01756000 T 0Q03I0203I3 



01757000 
01759000 
01759000 
01759100 
01759200 
01760000 
01761000 
01762000 
01763000 
01764000 
01765000 
01766000 
01767000 
01768000 
01769000 
01770000 

01 77 to oa 

01772000 
01773000 
01774000 
01775000 
01776000 
01777QQQ 
01778000 
01779000 
01760000 
01781000 
01782000 
OlTfllOOO 
01784000 



T 00031020313 

T 00031020410 

T 00031020410 

T 00031020410 

T 0003I02D5J2 

T 00031020513 

T 00031020610 

T 0003 102 oat 

T 0003J021011 

T 00031021113 

T 00031021113 

T 00031021211 

T 00031021211 

T 00031021410 

T 00031021410 

T 00031021513 

T OaOJl02tIl2 

T 00031021712 

T 00031021712 

T 000110.21711- 

T 00031021610 

T 00031021913 

T 0O03Jfi22U2 

T 00031022112 

T 0003102^112 

T 00031-022111- 

T 00031022211 

T 00031022313 
T 0003X022410 

T 00031022512 



REAL VoiDCR»VolOPLACE| 
PRT(435) • VOIOCR 
PRT<*36) ■ VOIDPLACE 

BOOLEAN SORTMERGETOGJ 
PRT(437) ■ SORTHERGETOG 

FORMAT PRINTSEGN0(X88»''STaRT Op SEGMENT ***♦*♦♦*♦♦ "tHJ. 



PRT(440) » PRINTSEGNO 



PRINTSlZECXee^H*" IS •♦»M," LONG* NEXT SEG '♦iH). 
BUGCX24»4tA4#X2))| 



PROCEDURE DATlMfj 
PRTC441) » DATIME 



STacKCF+2) « H 
STACt<(F*3) a MfN 
STACKfF+4) m 
STACKfF+5) » Nl 
STACKfF*6) m N2 

PRTC442) * OATEr 



BEGIN 

INTfGER H»MiN#Q| Al-PHA N1,N2> 



01785000 T 000 31023^2 



017a60flQ T 00031022512 

01800000 T 00031022512 
START or SEGMENT *«*.««*««.«« 4 

01801000 T 00041022512 
01802000 T 00041022512 
4 IS 29 LONG* NEXT SEG 3 
01820000 T 00031022512 

01821000 T 00031022512 
01822000 T 0003(022512 
START OF SEGMENT **♦»****** 5 



Alpha stream procedure datErcdate); value datej 

BEGIN 

0IJ«L0C OaTER; SI,»LoC date; SIieSl+2l 
?(DSt«2 CHRJ DS»*LlT"/»»)< DSt«2 CHRI 
END OF DATERI 



018?3000 T 00051000010 



01824000 
01825000 
01826000 
01827000 



T 0005J0000J0 

T OQOSlOOOaiO 

T 00051000011 

T 00051000210 



HJ«TIMF1 DIV 2l6000t MlNI.CTlMEl 
NllnCODE.MFlDI N2 I eCODE .F lO| 
WRITE (LINE* 
S SET OMIT s NOT ALGOL 
"X VI, 0,1 2?" 



DIV 3600) MOD 60j 



j;i23' 



ERROR NUMBER 



PRT(443) 



PRT(444j 
PRT(445) 




♦LIST» LABEL* 
OUTpUTtW) 

NOHEADlNGl»FAtSE> 
END OF OATIMEI 



CNll«TApE,MFlD).l6J6J*Nl»(N2?«TAPEtFID}.[6l6]»N2)l 
OR SEGMENT DESCRIPTOR* 



X120« 
X120' 



3!120- 



01828000 
01828500 
01829000 
01829900 
01831000 



00051000312 
00051000712 
D005I0013I3 
00051001512 
00051001512 



<<<<<<< 

T 
T 
T 

T 

T. 

T 

C 

C 



01832000 
01832500 
01833000 
01834000 

QiaasoQo 

01835500 
01835600 
018-35700 



6 IS 14 LONG* 

oiassaoi) c 



OieiMQO 
01837000 



0005 
0005 
0005 
0005 
0005 
0005 
0005 
Q005 



<<<<<<<< 

1001513 

1001513 

1001513 

1.00451.1- 

1001513 

1001513 

1 00 161 4 



NEXT SEG 5 
0005-1004914 



0.005 1 00.431.2 
00051004410 



5 IS 48 LONG. NEXT SEG 



PRTC446) » LOOK 



DEFINE DOT* BEGIN IF ELCLftSS « PERIOD THEN OOTIT END#J 
COMMENT THIS SECTION CONTAINS ALL CODE PERTaiNENT TO READING CARDS 
AND SCANNING THpHj 
BOOUrAN STREAM PROcEDU«E LOOK ( ACC 1 # D I R.ROW* STRTPOS. STOPOS) | 

VALUE ROW I 

BEGIN COMMENT LOOK rOES ThE ACTUAL DIRECTORY SEARChI IT 

Reports true if The item was not found in the directory 
t 

local dppos»temp.lgTh* 

label LOOPiEXIT? 

SUDIRJ R0W(SUSl + 8)» DPP0S*SII 

DI*L0C TEmpJ DS*-W0S) SI*-TEMp> 

SI*SI+8» 
LOOPiDI * LOC LGTHI DI*DI*7I OS*CHRi 

DI*ACCll ()I*DI*2| SI^-SI'll 

IF SC « DC 

THF.N BEGIN CQMmENT THE LENGTHS ARE EQUAL* 
IF LgTH SC « DC 
THEN BEGIN COMMENT FOUND ITl 

DI*STRTP0S>0S*5 LIT "O^f DS*3 CHRt 

IF SC m "O'' 

THEN BEGIN COMMENT WE MAY BE IN THE 

WRONG row; 

SI*SUIIDI»L0C LOOKl 
IF 3 SC « DC 

THEN BEGIN COMMENT WE ARE 
IN THE WRONG 
ROWf 

SI*DPP0SI 
SI«-SI + 8I 
DPP0S*SII 
DI*L0C TEMP» 
DS«.WDS; 
SI*TEMPI 
END 
ELSE SUSI-41 
END} 
DI*L0C LGTHI DUDI+7J DS*CHRI 

SI*SI+ LGTHI 
DI*ST0P0S| DS*5 LIT'^O"} 
DS*3 CHRl GO ro EXIT; 



END; 
SI*Sl+3; 



END 



ELSE BEGIN COMMENT THE LENGTHS ARE NOT EQUALI 
SI*SI-1| 

IF Sc ■ '♦0'* 

THEN BEGIN COMMENT MAY BE NEW BQWj 

SI*SI+1| DIALOG LOOK; 

IF 3 SC • DC 

THEN BEGIN COMMENT CHANGE RoWSl. 

SI*DPP0S|SI»SI+8IDPP0S*SI; 



01841000 
02000000 
02001000 
02001020 

02001030 
02001010 
02001050 
02001060 
02001070 
02001080 
02001090 
02001100 
02001110 
02001120 
02001130 
02001140 
02001150 
020aiU0 
02001170 
02001180 
02001190 
02001200 
02001210 
020044220 
02001230 
02001240 
Q 200 1250 
02001260 
02001270 
Q2QQ128Q 
02001290 
02001300 
020ai3l0 
02001320 
02001330 
02001340 
02001350 
02001360 
02001360 
02001375 
02001380 
0Z00J.390 
02001400 
02001410 
02001420 
02001430 
02001440 
020ai4M 
02001460 
02001470 
02001480 
02001490 



00O3J0225J2 
00031022512 
00031022512 
0001I0225J2 

00031022512 
00Q3IQ22512 
00031022610 
00031022610 
00 3 J Q22filQ 
00031022610 
0003«0226l0 
000^1 0228^1 A 
00031022811 
00031022912 
00031022913 
00031023011 
00031023011 

0003 1 0232 to 

00031023210 

000^1023410 

00031023411 

00031023411 

0003402^411 

00031023513 

00031023610 

00031023610 

00031023610 

00031023610 

QQ031Q23Z12. 

00031023712 

00031023713 

0003102.1713 . 

00031023610 

00031023610 

00031023*10-- 

O0O3I0238I1 

00031023611 

0^Xl3l02^ai3 

00031024010 

0003i024li2 

.00031-024X11- 

00031024113 

00031024210 

000310 2 4 210 - 

00031024210 

00031024211 

003 1 02421 1 

00031024312 

OO03I0244I0 

0003 1-024^4 14X 

00031024411 






END 



DI*LOC TEMP» 
SI*TrMPt 



ds*wdsi 



60 TO LOOP] 
PRT(i»47) « •LIST, LABEL, OR SEGMENT DESCRIPTOR* 



ELSE BEGIN COMMENT IT IS NOT HERE! 
TALLY*11 LOOK*TALLY» 
GO TO EXfTI 
END» 



ENDI 
S1*SI+LGTHJ SI*Si+a; COMMENT POSITION TO NEXT ID.i 
ENOi 
GO TO LOOPI 
EXITII 
END LOOKI 



02001500 
02001510 
02001520 
02001530 
02001540 
02001550 
02001560 
02001563 

02001565 
02001568 
02001570 
02001580 
02001590 
02001600 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



024513 
024610 
024611 
024611 
02-4611 
024712 
024713 
024713 



00031024713 
0003 1 0247 « 3 
00031024811 
00031024811 
0003 1 0248 II 
OOO31O24912 



X X116- 

% MISCELLANEOUS CROSS ReFfRENcE PROCEDURES I116» 

% 1I116- 



X 



X116- 
X116" 



PROCEDURE cROSSREFITCINdEX»SEQNOiREFTYPE)I 
PRT(450) B cROSSREFIT 

VALUE INDEX, Se-QN0,ReFTYPe1 )K116- 

real index, SeQNO,REFTYPe^ XII6- 

BEGlN j;il6« 

IF XREFlNFOriNDEXj.IONOF ft ThEN % SAVE fll6- 

BEGIN »116- 

IF XReFPT > ?9 Then % no slots left in array, write it out, j;ii6- 

BEGIN Xn6- 

WRITECDSK?,30,XREFAY2[*])I 1116- 

XREFPT l» 01 X116» 

END; X116- 

XREFAY2tXREFPT] I. SEQNO & REfTYPE TYPEREF « XREF I NFOC I ND£X ] III6- 

REFIDNOFI 1116- 

XREFPT Is XREFPT + ll X EVEN THOUGH THE ARRAY MAY BE FULL NOW WE XI l6- 

/ X CANT WRITE IT OUT BECAUSE SOME ROUTINES XII6- 

X WILL LOOK BACK AT THE ENTRY WE JUST PUT X116" 

X IN AND FIX IT UP. XII6- 

ENDl X116- 

FNd Of cROSSREFITI X116- 



02001605 
02001610 
02001615 
02001620 
02001630 
02001635 
02001640 



02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 



645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 



00031025010 
00031025010 
O003I0250I0 
00031025.010 
00031025010 
00031025010 
00O3I02S01O 



0003 

oooa 
0003 

0003 
Q003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1025010 
1025010 
1025010 
1025OI0 
1 025313 
1025410 
1025512 
1 0.255 1 3 
1025913 
1026011 
f0.2iOll 
1026411 
1026610 
1 0261 13 
1026713 
1026713 
1 0261? 3 
1026713 



PROCEDURE cROSSReFOUMPCiNdfX); 
PRT(451) « cROSSREFDUMP 

value indexi 
Real tNoexi 

BEGIN 

STREAM PROCEDURE MOVEXREF INFOf St D, N) ; 



X116- 
X116- 

1116- 
Xll6-t 
XII6- 
XI 16- 



START 



02001735 
02001740 



C 00031026713 
C 00031026713 




«i 



PRTC4s2^ » MOVEXrEFINFo 

Value n» 

BEGIN 

51 »• ni Dl !■ Dl DS t> 
SI i» S» SI «« SI + 3j 

fMD Or movexRffinfO; 



■ 8 Lit •♦ "l DS l« 7 WDSJ X BLANK RECORD 

ni «« 0) DS «- N chR> « MOVE identifie" 



X116' 
Z116' 
XU6' 

j;ii6- 

1116' 



02001765 
02001770 
02001775 
02001780 
02001785 



P 0007J0000I0 

P 00071000010 

C 00071000010 

P 00071000210 

C 00071000312 



% 
IF xRFriNrOtiNnEXJ.ioNOF # Then % dump it 

BEGIN 
MOVf 



xRff 

XREF 

WRIT 

XREF 

END* 

END OF 



XREFlNF0(iNF0tlNDEX,LlNKR,lN0E:X,LlNKC4-nfXREFAYlt*l» 

TaKeCINDEX+1).[12i63)J 
AYl(8] »■ XRfFINFOCINdEXJ) 
AVir9] l« TAKfUNOEX)? X fLBAT WORD 
ECDSKl.lO.XRFFAYH*]); 
INFOriNDEX] l» 01 

CROSSREFOUMPl 



«116- 
X116" 
X116' 
X116' 
X116' 
XU6' 
X116' 
1116' 
XU6' 
«116' 
XI 16* 



02001790 
02001795 
02001800 
02001805 
02001810 
02001815 
02001820 
02001821 
02001822 
02001825 
02001830 



P 

€ 

P 

C 
P 

C 
P 
C 

c 
p 
p 



7 IS 28 L0NG» 



0007 
0007 
0007 
0007 
0Q07 
0007 
0007 
0007 
0007 
0007 
0007 
NEXT 



1000313 
1000313 
1000713 

tooosio 

1001113 
1001313 
1001713 
1001912 
1002313 
|0027»2 
1002712 
SEG 3 



PRTC453T » cONV 



REAL STREAM PROCEDURE CONvC aCCUM i SKP»N ) j VALUE SKP.N» 

BEGIN 

51* ACCUMj SI«-S1+SKP;SI*SI*3JDI*L0C CONVl OS * N OCT 

fno convi 



02001831 T 00031026713 



02001832 
02001833 
02001834 



T 0003t0267l3 
T 00031026810 
T 00031026913 



cOMMfNT OcTIZE REFORMATS ACCU" FOR OcTAL CONSTANTS? 
BOOLEAN STREAM PROCEDURE OcT I ZE f S»D» SKPt CNT ) I VALUE SKP.CNT; 
PRT(45<1) * OcTiZE 

BEGjN 

siiss; sii«si+3» Dn»DJ skP(dsis3 reseT); % Right justify, 

cntmf sc^^e** Then tally«x1 eUSf if Sc<''0'' then tallyisi; skip 3 sst 

3(TF SB ThfN DSUSfT fLSE DSURESeTJ SKiP SB))I 



X 

% 



OCTtZEUTAlLYl t "l". » NON OCTAL CHARACTER. 
END OCTiZEJ 



02001836 T 
02001831 T 



020018AO 
02001842 
02001844 
02001846 
02001848 
02001850 
020Ql.a52 
O2OO1854 



0003I027OII 
00031027011 



00031 
00031 
00031 
00031 
00031 
00031 
Q0Q3J 
OOO3I 



027011 
027U2 
027312 
027610 
027811 
027811 
Q^lfiil 
027811 



COMMENT HEXIZE REFORMATS ACCUM FOR HEXaOECIMaL CONSTANTS! 
rOOLEaN STREAM PROCEDURE HfX I ZE( S» D» SKP» CNT ) ) VALUE SKP»CNT| 
PRT(455) s HEXIZE 

BEGIN UOCAl Tl»T2»TEMP2fTEMPlJ LABEL AGINI 
COMMENT LOCAL VARIABLES ARE LOCATED IN REVERSE ORDER FROM THE 
WAY THEY ARE DECLARED IN STREAM PROCEDURES! 
DII»LOC TEMPI! CNTCDSipLIT'*!'')! % IN CASE A CHARsAfB*C»D»OR F. 
SllrSl SIIBSI+31 DII'LOC TEMPI! X WE MAY OVERFLOW INTO TEMP2, 



0200 1856 T 
02001858 T 

02001460 T 
02001862 T 
02001664 T 
02001864 T 
02001868 T 



0003 J 0279 1 3 
0003l0279l3 

00014-027-513- 
00031028010 
0003 1 0280 to 
0003-1-02401-0- 
00031026210 



CNTflF SC<''0'' THFN IT SCi^A" THEN IF SC<'*F'' THEN % WORK HARpt 
BFOIN 

Tn«sii T2t«Dn DiJ*Tii SHST2; X FtiP» Man, 

0S»«3 RESfTI Sl'sTll Dll«T2» % FLIP BACK. 

DS»«1 ADD) Dll«Dl-i; SKIP 2 DB» DSI«1 SETJ SKfP 3 DBI 

60 AGINJ 

fNdi 

IF SC<''0" THEN TaLLYI«1; DS»*CHR) % < » NON-HEX CHARaCTfR. 
AGTNI 

}) 
Sl»aUOc TpMPlJ Dn«D< SKP(DSU^ ReSET)! % RighT ADJUST CONSTANT. 
CNTfSKrP 2 SBI 

4fir SB Then dsi.set else dsi.resctj skip sb));x final convert, 
heXizeutally; % •♦i" if programmer goofed, 

END HEXIZE* 



02001 
02001 
02001 
02001 
02001 
02001 
02001 
02Q01 
02001 
02001 
02001 
02001 
02001 
02001 
02001 



870 
872 
874 
876 
878 
880 
882 
884 
866 
888 
890 
892 
894 
696 
898 



00031 
00031 
00031 
00031 

ooaii 

00031 
00031 
00031 
00031 
00031 
O.QOJt 
00031 
00031 
00031 
0003> 



0282U 
02B6J0 
028610 
028713 
Q2aa.ll 
028913 
029010 
D29_ai0 

029112 
029112 

029112 
0293«2 
02941 1 
02961 i 
029712 



COMMENT PlJTSEQNO PUTS THE SEoUENCF NUMBER oF THE CAR0*IMAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
IT IS NEEDED FOR FUTURE REFERENCEI 
STREAM PROCEDURE PUTSEQNOC I NFO»LCR ) » VALUE LCRl 
PRT(456) » PUTSEQNO 

BEGIN DH"INF0| SlJ»LcRl DS«»WdS> END PUTSEQNOl 



02002000 
02003000 
02004000 
02005000 



T 0O03lG29«»0 

T 00031029810 

T 00031029810 

T 0003l0296tO 



02006000 T 00031029810 



PRT(457) 



COMMENT TURNONSTOPLIGHT TURNS THE LIGHT "ReO" ON THE "CORNeR". 
I.E.» THE PURPOSE OF ThIS ROUTINE IS TO INSERT A PER- 
CENT SIGN IN COLUMN 73 AS aN END Of CaRD SENTINEL FOR 
THE SCaNNfRI 
STREAM PROCEDURE TURNONSTOPL I RHT( RFD»CORNeR ) J VALUE RED.CORNeRJ 
TURNONSTOPLlnHT 

BEGfN d1«»cORNfR» SIIbLOc cORNpRl SIH»SI"1? dsi*chR ENDI 



02007000 
02008000 

02009000 
02010000 
02011000 



T 00031029912 

T 00031029912 

T 00031029912 

T 0003t0299l2 

T 00031029912 



02012000 T 00031029912 



PRT(460) * ADDER 



COMMENT ADDER COMPUTES SEQUENCE NUMBERS FOR LIBRARY FUNCTIONS. 
IT WILL EITHER ADD THE NUMBeR IN SUM TO TtfE NUMBER IS SEQLOC STORING 
THE RESULT IN SEqlOC qR SUBTRACT THE NUmBER IN SUM FROM THE 
NUMBER In SEQLOC AND STorE THE RESULT In SEQLOC»DEpEnDInG ON THE 
VARIABLE ADi 

STREAM PROCEDURE aDDERC SUM* SEQLOC » AD» DESCRP) f 

Value ad^oescrpi 

BEGIN 

LOCAL HOLOfZONEPJ 

OI*LOc ZONEPJ SI*SUMJ DS*8 ZONj 

COMMENT SAVED ZONE PART OF THE SEQ|NO,| 

DUSUMi D1*0I+7J DS«-2 RESETl 

COMMENT HAVE ZEROED OUT SIGN VALUE OF SEQfNO.I 

Sli-LOc DESCRP? Sl«.Si + 7| 

IF $cw''i'' Then begin di*loc holdt si*seqloci 

OS«.WDS; DI*HOLdi FNO 



02Qia0lQ 
020i30?0 
02013030 
020 1104a 
02013050 
02013060 

02013065 
02013070 

0201 aa? 3 

02013074 
02013075 
02013076 
02013077 
02013078 
02013080 
02013085 



00031 OlflO JO 
00031030010 
OOO3IO3OOIO 
00031030010 
00031030010 
00031030010 



00031 
0003t 
a0034 
00031 
00031 

ocmai 

00031 
00031 
00Q31 
00031 



030010 

030010 

03011^ 

030112 

030113 

03aU.3- 

030211 

030211 

Q 30 31 2 

03041 1 



COMMENT DI IS 

HOLD*nn 

SI ♦ LOc AD» 

SI ♦ SI 4 71 

IF sc ■ "1" Then begin si*. 

EtSE BEGIN SI* 
SUUOC 
SULOC 

commEnT move 
End adderj 



EUSE DI*SEOLOci 
NOW POINTING TO THE SEQNuMbeRJ 
Dl*-DI + 7l DS*2 ReSeTJ DI*hOLDI 



sum; os*8 addi end 

sum; DS«.8 SUBI END) 

zoNEP; duhold; ds*8 zoni 
zonepi dusum; DS*,e zon; 
IN Zone portion to resuut 



sEQ,N0* ; 



0201 
0201 
0201 
0201 
0201 
0201 
0201 
0201 
0201 
0201 
0201 



3090 

3091 

3095 

3100 

3110 

3120^ 

3130 

3135 

31 36 

3137 

3140 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1030512 
|0305|3 
I 0305 1 3 
1030611 
1030611 
1-030712 
1030611 

1030912 
l03|OI0 
I0310I1 
1031011 



PRT(461) 



COMMENT SEARCHLIB IS RESPONSIBLE EOR SEARCHING THE LIBRARY 
COMPILABLE QUANTITIES* THE PARAMETER INDICATES THAT WE ARE 
A LIBRAY CALL IF TRUE* ELSE We ARE EXITING, I 

procedure searchlibcdollar); value dollar; boolean dollar; 
searchLib 

BEGIN 

LABfL EXlT,EXiTOUT. NOPARTfAL; 



TAPES FOR 
ENTERING 



PRT(462) m fLAGIT 



STACKtF+2) » TL 
STAC^fF+S) s TS 



PROrEOURE FLAGITCN); VALUf N; INTEGER N; 



START 



02013150 
02013155 
02013160 
02013165 

02013170 
02013175 

OF SEGMENT 
02013176 



BEGIN 
BOOLEAN 



TL*TS; 



02013177 

02013178 

START Of SFGMeNT 



TLULisTOf,; tsi«Singltog» LI stoqi.false; s ingltoq i«false; 

Ol.ACCUMtn* FLAGfN); 
LtSTOGJ«Tl; SiNGLTOGl-TS; 

End flagit; 



T 00031031112 

T 00031031112 

T 0003(031112 

T 00031031112 

T 000 31031 1 «2 

T 0003I03U»2 

T 0008(000010 

t ooostooooto 

T oooaiooooio 



9 IS 



02013179 T 

02013180 T 
020 13 111 T 
02013183 T 

U LONG. 



00091000010 
00091000610 
0OQ9I0OOM1. 
0009»00il»2 
NEXT SEG 8 



IF DOLLAR THEN 

BEGIN COMMENT 

RESULT«-COUNT»ACCU 

RESULT*-COUNT*ACCU 

IF ACCUMtl 

FILeINX 

COMMENT ERROR 

FLAGI 

end; 
fileinx * 

' IF DIReCTO 

erGlN cOMM 

GT3»M 

MOVEC 

gt24.direct 

While 

Begin 

rea 



WE ARE ON A DOUBLE DOLLAR CARDl 
Mrn *"0; SCANNER; 
Mm ••0; SCANNER; 

3 > "I+OOOO" AND ACCUM[1] < "IDOOOO" 
isACCUMtn, 12113] ELSE BEGIN 
500 - ILLEGAL LIBRARY NAME; 
T(500); GO EXITI 



THEN 



FiLEiNX -11 
RY[GTU3xFiLfINX»0]»0 THEN 

fNt MUST Rfad directory; 

KABS(L|bRARY[FILfINX](0))J 
56,LiBRARYrFlLElNXH0).DTRECT0RY[6Tl«0]3; 
ORYtGTl.Ojl OIRECTORYCFILEINXxS.O] * -2; 
GT2 «. 6T2""1 > DO 

dclibrarycfilEInX]); 



02013184 
02013185 
02013190 
02013195 
02013200 
02013205 
02013210 
02013219 
02043222 
02013225 
02013230 
02013235 
02013240 
02013245 
02 01 -32 50 
02013255 
02013260 
0201-3565 
02013270 



T 00081000010 

T 00081000010 

T oooaioooot.o . 

T 00081000011 

T 000810003(3 

T 00081000610 

T 00061000611 

T 00081001312 

I 0008 » 0.0-1-112-. 

T 0006l00l4t0 

T 00081001410 

T -OOOaiOO-lSJ 3- 

T 00061001810 

T 00081001811 

T -O0OBU)02li3 

T 00081002912 

T 0008l0033»3 

T OOiXaXOO 3-6-1-0 

T 00081003610 






MOVEC56'UlBRARY[FIUElNX3Co)»DlRECTORYtGTl»GH*l,oJ)> 

EnDi 

ENDj 

re:sult*-accu 
if uook(acc 

BEGIN CO 
FLAGIT 

END> 
WHILE LCR.t 
00 BEGIN 

IF EXA 



Mtn* COUNT*0; SCANNER! COMMENT GET THE PROGtlDtJ 
UMLl3iOlRFCTORY.3xFlLElNX» GTliGTZ) THEN 
MMENT ERROR 501 - ITEM NOT IN DlRECTORYl 
(501); GO EXIT; 

331153 - NCR,[33I15J >» 1 OR NCR,t30»3] * 7 

; 



imin(ncr) » "c" then go to exitout 
resuut*5; Scanner* 



end; 

GO T 

exitouti 

R 
R 

I 



M 



NOPARTIA 

LIBAR 

LIB 

LIBAR 

LIBA 

FINI 

IF L 

x3»0 

RECO 

IF E 

PUT 

MoVECli 

MoVEClt 

IF L 

GTTl 



nopar 

BEGIN c 
ESULT«- 
ESULT* 
F RESUL 

Begin 

rUAGlT 
ENDI 
Tl * GT 

esult* 

F rESUl 
BEGIN 
FLAGIT 
END; 
ESULT* 
F RESUL 
BEGIN 
FLAGIT 

end; 

T2 ♦ GT 
ESULT* 
F ACCUM 
BEGIN 
FLAGIT 

end; 

HILE Lc 
00 BFG 

ND; 

Ll COMM 
RAYtLlB 
ARRAYTL 
RAYtLlB 

rraycli 

SHpT * 
I8INDEX 

3 * REC 
UNT*GT1 
XAMIN(L 
SEQNOd 
INFOtLA 
INFOCLA 
ASTUSED 
ELSE I 
♦MKABSC 



tial; 

omment we Have a partial library operation; 

ACCUMtU* C0UNT*0; SCANNER; COMMENT SPACE PaST •»[•• ; 
ACCUMtlJ*- COUNT^O; SCANNER; COMMENT GET START POINT; 
T J* 3 THEN 
COMMENT ERROR 502 - IMPROPER START POINT; 

(502)1 GO exit; 

t + CONV(ACCUM[n»0»ACCUMti 1,(1216) ) - 1? 

ACCUMcti* CoUnt,.o; scanner; 

^ * 2 THEM 

comment Error 5o3 - no seperator; 

(503); GO EXIT; 

ACCUMtn* COUNT*0; SCANNER; COMMENT GET LENGTH; 

T f« 3 THEN 

COMMENT ERROR 50* - IMPROPER LENGTH; 

(504); GO EXIT; 

1 + C0NV(ACCUMtl),0.ACCUM[n,C12l6]); 

ACCUMtn* COUNT«-0; SCANNER; 

CIJ * "UOOOO" THEN 

COMMENT ERROR 505 - NQ RIGHT BRACKET; 

(505); GO EXIT; 

R,C33J153 " NCR.[33»15] # 1 OR NcR.[30l33 * 7 
IN RESULT * 5; SCANNER eNd; 

ENT NOW SET UP THE LiNKs; 
INDEX). LSTUSD ♦ LASTUSED» 
!BINDEX3.FIlE;IN0EX * FILEINX; 

index3,stoppoint * finishpt; 
binDEX],nextenTry ♦ recoUnT-i; 

GT2; 

>0 THEN DIRECTORYC(LI8ARRAY(LIBINOEX-33,FILEINOEX) 

OUNT -1; 

f 

CR) * "X" THEN 

NF0rLASTSEQR0W»LASTSE0UENCE3»LCR); 

STSEQR0WiLASTSEQUENCE3iLl8ARRAYtLIBINDEX+13); 

STSE8R0W»LASTSEQUENCE3»SE0SUM); 

«2 OR LASTUSED«5 THEN GTIUO 

F MAXLTLCRtC33tl53-NCR.C33ll53<ll THEN 

LlBRARYtFlLElNX3(0)) ELSE GT I 1*(NCR*2 ) . f 33 1 1 53 ; 



0201 


13275 T 


020 


13280 T 


020 


13285 T 


0201 


13290 T 


0201 


13295 T 


0201 


13300 T 


0201 


13305 T 


0201 


13310 T 


0201 


13313 T 


0201 


13315 T 


0201 


13117 T 


0201 


13318 T 


020! 


[3319 T 


020] 


L3320 T 


0203 


13325 T 


020] 


13330 T 


020] 


L3335 T 


020] 


13340 T 


020] 


13345 T 


020] 


13350 T 


0201 


L3355 T 


0201 


3360 T 


020] 


13365 T 


020] 


[3370 T 


020] 


13375 T 


020] 


13380 T 


020] 


13385 T 


0201 


.3390 T 


020] 


13395 T 


020] 


13400 T 


020] 


13405 T 


020] 


13410 T 


020] 


3410 T 


020] 


13420 T 


020] 


L3425 T 


020] 


13430 T 


020] 


13435 T 


020] 


L3440 T 


020] 


13445 T 


020] 


L3446 T 


020] 


13450 T 


020] 


13475 T 


020] 


L3480 T 


0201 


3490 T 


0201 


3495 T 


0201 


3497 T 


0203 


L3500 T 


020] 


L3505 T 


020] 


i3510 T 


02013515 T 


020] 


L3516 T 


020] 


3517 T 


020] 


13520 T 


020] 


3525 T 


020] 


13526 T 


020] 


13527 I 


020] 


L3528 T 



00081004011 
0008t0047J2 
OOOAI0047I3 
00081004713 

oood*oa55to 

00081005411 
00081005512 
0008100564 
00081005610 
00081006010 
000414 006412 
00081006313 
00081006411 
00081006512 
0008(006513 
0008(006610 
0OQ8IQO66J1 
00081007113 
00061007210 
0006 1 0072 U 
0008(007410 
00081007410 
00081007810 
0008l0061t2 
000810061(3 
0008100^210 
000810083(3 
0008(0083(3 
0008 4 00664 
0008(008712 
0008(008713 

OQOai 00661-1 
0008(008841 

000810092(1 
00081009512 
0006(0096(0 
0008(0096( 1 
00061009912 
0006(0099(2 
000810102(0 
000aiQlJ05J2 
0008(0105(2 
0008(0105(2 
0008(010713 
0008(0110(0 
0008(0112(1 
0008.1 0115 J i 
0008(0116(0 
0008(0116(0 
00084012113 
0008(0122(1 
0008(0124(0 
0008401264-1 
0006(0130(0 
0008(013211 
00081011411 
0008(0136(0 



PRT(463) • INPUT(W) 



LiBARRAYtLlBiM 

if lastused<2 
libarrayclibin 

llBARRAYC 

if libindfx> 
lastuse 

END EL$ 

LASTUSE 

ELSE BEGIN IF LAST 

LIBInOEX » LIB 

EnD 

ELSE 

bfgin comment We 
lirindex ♦ lip 
rfcount*recoun 

LaSTUSED * Llf3 
TF LASTUSED » 
IF LIBINDEX > 

DIRECTORY 
niRECTORYCFILE 
IF LIBINDEX > 

EILEINX - 
FfNiSHPT ♦ LIB 
IF tlBfNDFX # 

MOVEdfUl 
IF LASTUSFn<2 

NCR * UibaRRay 

IF LASTUSFDS2 

LcR * LibaHRay 
norflease*true 

IF LASTUSED-6 
END OF UNLINK* 

IF libinpex . T 
begin comment 
seqsum«.o» 

END 
ELSE 

BEGIN 

GTI*(GTI1*{DIR 
GT.2*(GTI1*(REC 
GT3 •'(GT2 • GT 
SPACEfLlBRARYt 



DEX*2],NcRLlNK»GTll, [33115]; COMMENT GTll«NCRI 
OR LASTUSEDPS5 THEN 
DEX+2],LcRLlNK*0 ELSE 

LIBINDfX+2],LCRLINK*GTI1 
THEN IF CARQCALL then BI 
D*5> LiBaRRaY[LIBINOCX],I 

LtbaRRayclibindexi.i 
E Bfgin 

D»6; FfRSTlMfX* TRUEI ENI 

used»3 Then firstimexibTRUei lastusediss; endj 

INDEX ♦ ^1 



,t33»l5]+10l 

lEGIN 

nextentry* 
nextentry -1? 

ID 



DID N 
INDEX 
T-1| 
ARRAY 
1 THE 
THE 
tFILE 
lNXx3 
The 
LIBA 
ARRAY 

The 

BARRA 
OR LA 
IL-IBI 
OR LA 
tl-IBl 



OT COME FROM DOUBLE 
-3, 



DOLLAR SO UNLINKi 



tLl8lNDEX].LSTUS0l 

N Medium i« "c "i 

N BEGIN GTI1*LIBARR 
InXx3#0]*REC0UNTI R 

»oi ♦ Recounti 

N 

RRAYCLIBINDEX -3].F 

[LIBINDEX],ST0PP0IN 

N 

YCLIBINDEX -3 +1], 

stused=5 then NCR» 

NnEX+23.NcRLlNK| 

STUsED»i> THEN LCR» 
NoEX+2].LcRLlNK; 



j;u2* 
ayilibindex],nextentryi 
ec0unt«-gti1 + 2| end else 



ileindexi 

t; 

SEQSUM}] 
aMKABSCCBUFFrO]) ELSF 

=MKaBSCCBUFF[91) ELSF 



THEN F|RSTlMEX*TRUEi 



HEN 

GOING BACK 



To OUTSIDE WORLOJ 



ECToRY[FlLElNXx3^0]+3)/5)x5+ll 

0UNT-3)/5)x5+U 

13DIV 51 

FILEINX3»GT3)J 



RFADCLlBRARYtFlLElNXj); 



M0VF(1»L1BRARY[FILEINX](0).GT11)I 
IF GTIH*GT2 AND GTll * THEN 

BEGIN COMMENT ERRQR 507 MEANS TaPE POSITIONING ERRORl 

FLAOf5073; qO TO EXITI 
ENDJ 
LTLCR*MKABSfLlBRARYtFlLEINX](lO))+{GTli*(C{RECOUNT-i) MOO 5) xil))l 
MAXLTLCR«.MKABS(LlBRARYtFlLElNX3(0))+5«' 



0201 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 



3530 T 00081014513 

3533 T 00081014811 

3534 T 00081015011 

3535 T 00081015313 

3536 T Q00aii)15ri3 

3537 T 00081015913 

3538 T 0008|0l61l2 

3539 T 0008 10 164 10 

3540 T 00081016411 

3541 T 00081016610 

3542 T 0OC8I014W2 
3545 T 00081017011 
3550 T 0008»0170II 

3555 T oooeioifon 

3560 T 0008I0171I2 

3563 T 00081017210 

3565 T 00081017313 

3566 P 0008»0l75l2 

3567 T 00081017712 

3568 T 00081017913 
3570 T 00081018313 
3575 T 00081018713 

3580 T oooaifli8aia 

3600 T 00081019011 

3610 T 00081019210 

3615 T OOQ8I019JIZ- 

3617 T 00081019610 

3620 T 0006J0200I1 

3621 T 00081020312 
3625 T 00081020713 

3627 T 00081021010 

3628 T O00ai0.2lQll 
3630 T 00081021211 
3635 T 0008I0212«1 
3640 T OOaai02l3J3 
3645 T 00081021410 
3650 T 00081021411 
3655 T 00081021411 
3660 T 00081021411 
3665 T 00081021512 
3670 T 0008r0220IO^ 
3675 T 0008t0223«2 

3680 T 00081022512 

3681 T 00081022811 

3682 T 00081022811 
3685 T O.OMl0.22flll 
3690 T 0008I0232U 
3693 T 0008 1 0232 M 
3695.1 OQMJi>232U 
3697 T 0008I0232U 
3699 T 00081023712 
1701 T QQttaJ-D23-9X2. 

3702 T 00081023913 

3703 T 00081024011 
17 05 T QDiJflJ.Q24ii.l-t- 
3710 T ^0008*024810 



ADDER fSEQSUMtl.TtCR.TRUEf TRUE) J 
IF LASTUSED" 6 THEN BEGIN 
NCR^LCR^MKABSClJBRARYCFlUEINXJCO))) 
PUTSEQNO(GTlfLCR)) 
TURN0NST0PLIGHTC''«"»LCR)I 
END; END I 
EXIT« END SeARCHLIBI 



02013713 
0201371ft 
02013715 
02013716 
02013717 
02013718 
02013720 



T 0008I0253I2 

T 00081025512 

T 000ai0256ll 

T 00081026113 

T 0008 1 0262.11 

T 00081026313 

T 00081026313 



a IS 265 LONGt NEXT SCG 



COMMENT WRITNEW TRANSFERS ThE CARD IMAGE TO THE NEWTAPE BUFFER 
AND RfPORTS if THf CARD MIGHT BE CONTROL CARDJ 
BOOLEAN STREAM PROCEDURE WR I tNfW (NrW . FCR ) I VALUE FCR) 
PRT(464) s wRiTNfW 

BrGlN Sl*FCRl IF SC»"'S*' ThE^ TALLYi-U 

di*Nfw; ds*io wnSi wRitnew*tally 

FNn WRtTNfW? 



02014000 
02015000 
02016000 

020174)00 
02018000 
02019000 



T 00031031112 

T 0003I0341J2 

T 00031031112 

T 00034031112 

T 00031031210 

T 0003I0312IJ 



COMMENT EQUAL COMPaRES COUNT CHARACTERS LOCATED AT A AND B FOR 



02020000 

02021000 

020?2000 

02023000 

02041000 

02042000. 

02043000 

02044000 

02045000 

02046000 

02047000 

020.47050 

02047055 

02047060 

02047065 

02047070 

02047075 

02048000 

02049000 

02050000 

02051000 

02052000 

02053000 

02 054 00 Q 

02055000 

02055100 

02015200 

02055300 

02056000 

020S7000 

02058000 

02059000 

02040000 

02061000 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

I 

T 

T 

T 

T 



0003» 
00031 
0003< 
00031 
00031 
0003! 
00031 
00031 
00031 
00031 
00031 
0003! 
00031 
00031 
0003 1 
00031 
00031 
0003! 
0003! 
0003! 
00031 
0003! 
0003! 
00031 
00031 

0003! 
00031 
0003! 
0003! 

0003! 
00031 
QDD31 
00031 



03l3!3 

03l3»3 

031313 

031313 

0313!3 

031313 

03t3!3 

031313 

031313 

0313!3 

0313!3 

031,3! 3 

031313 

031313 

031313 

031313 

031313 

034313 

031313 

031313 

031313 

031313 

031313 

034 313 

0313«3 

031313 

034313 

031313 

031313 

034-313- 

031313 

031313 

0313IJ 

031313 



M 



PRTC465) s fQUAU 



EQUALITY, THIS ROUTlNp IS USED 
QUANTITIES IN THE DIRECTORY; 
BOOLEAN STREAM PROCEDURE EQU AU( cOUNT, A. B) ; 

BEGfN 

TaLLYI*1I SfJ^AI DP"B; 

IF rOUNT SC.DC THEN EOUALI*TALLy 

END equal; 



IN THE LOOK-UP OF ALPHA 
VALUE COUNT; 



02061500 T 
02062000 T 
02062500 T 

02063000 T 

02063500 T 

02064000 T 

0206A.5Q0 T. 



00031031313 
00031031313 
00031031313 

00031031313 
00031031410 
0003«03l4tl 
00031031513 



PROCEDURE readacard; 

PRT(466) • rEAOACArO 

PROCEDURE DoLLArCArD; 
PRT(467) ■ DOLLARCARD 

BOOLEAN Procedure boo 

PRTC470^ • rOOLEXP 

procedure SCANNER; 

BEGIN 
COMMENT "SCAN" Is TH 
IT IS DRIVEN 
WHICH CHECKS 
IS CONTROLLE 
INFORMS THE 
HENCE THE VA 
THE MEANING 
VALUE 





FORWARD; 
FORWARD; 
LEXP; FORWARD; 



THE M 
VA 



1 
? 

4 



5 
6 

7 

EaNING 

LUE 



SBSSB 



"SCAN 
DISCA 
FOR T 
"COUN 
"SCAN 
THE V 
ULATO 



1 

2 
3 

" PUTS 
RDED BL 
HE REST 
T" IS T 
" HAS P 

alue so 

R" AND 



E 
8 
F 

D 

WO 

RI 

OF 
ME 

IN 
NE 
CO 

en 

LA 
EX 
IM 
CO 
CA 
LA 
EX 
IM 
GE 
SC 
DE 
OF 
ME 

ss 
AN 
A 
A 

al 

AN 


HE 

UT 
T 

NE 



STREAM PROCEDURE WHicH DO 
Y a SMaLL WORD MODE PROCE 
OR A QUANTITY BEING BROKE 
BY A VARIABLE CALLED "RES 
RLD OF ITS ACTION BY MeaN 

able "result" is passed b 
"result" as input isi 
aNing 



ITIAL cOdE 
XT QUANTjT 

NTINUE BUI 

d-Of-caRd 

ST QUANTiT 
IT fiNTERR 

portant); 

NTInUE BUI 
RD BREAK), 
ST THInG W 
IT (IntErR 

portaNt), 
T Next cha 

aN A CoMME 

blank only 

"RESULT" 

aning 
identifie 

SPECIAL CH 
NUMBER ClN 
L STUFF SC 
KS3 INTO " 
F THIS OlS 
VARIABLE 
INTO THE 
HAT IT CAN 
EOS TO UPD 



ES THE ACTUAL SCANNING. 
DURE CALLED "SCANNER"* 
N ACROSS A CARD. "SCAN" 
ULT". "SCAN" ALSO 
S OF THE SAME VaRIABLE. 
Y BOTH NAME AND VALUE. 



START TO FETCH THE 



- DEBLANK AND 
Y, 

LDiNg an TDENTIFIER CTNTERRUPTfD BY 
BRfAK), 

Y BUiLT WAS SPE 
UPTlON By end-o 



CIAL CHARACTER, HENCE. 
F-CARQ BREAK IS NOT 



tDjNG A nUmBER (INTERRUPTED BY ENO-OF- 



AS AN ERROR (CO 
UPTION BY END-0 

RACTER AND EXlTi 

NT, 

I 

AS OUTPUT ISl 



UnT exceeded 63). HENCE. 
F-CARD BREAK NOT 



R WAS 

ARACT 

TEGER 

ANNED 

ACCUM 

CUSSI 

THAT 

"ACCU 

PUT 
ATE " 



sssBSBKsBsrBSSssascBSBsssa: 



BUlLTi 

er was obt 
) Was buil 

(EXCEPT F 
" (CALLED 
ON). 

GIVES THE 
MULATOR". 
MORE CHARA 
COUNT" FOR 



AINED. 

Tf 

OR COMMENTS AND 

"ACCUMULATOR" 

NUMBER OF CHARACTERS 
SINCE "SCAN" NEEDS 

CTERS INTO THE "ACCUM' 
THE OUTSIDE WORLD. 



02065000 T 
02065500 T 
02065600 T 



02066000 
02066500 
02067000 
02067500 
02068000 
02068500 
02069000 
02069500 
02070000 
02070500 
02071000 
02071500 
02072000 
02072500 
02073000 
02073500 
02074000 
02074500 
02075000 
Q2 075 5 05 
02076000 
02076500 
02077000 
02077500 
02078000 
02078500 
02079000 
02079500 
02080000 
02080500 
02081000 

oaoai-soo 

02082000 
02082500 
020^0^0 
02083500 
02084000 
02084500 
02085000 



0003<0316» 

0003103161 

0003103161 

0003103161 
O0O3ia34.6j 
0003l03l6i 
0003103161 
0003103161 
0003103161 
0003103161 
0003103161 
0003103161 
0003103161 
00031^3161 
0003103161 
0003103161 
0QiLlJ03l6l 
0003103161 
0003103161 
00031 fill 6 J 
0003103161 
0003103161 
OQ 03 10316 1 
0003103161 
0003103161 
000 ai 0316 1 
0003103161 
0003103161 
0003X034^1 
0003103161 
0003103161 

oooxtoai-dj. 

0003103161 
0003103161 
0Oai*04l^J 
0003103161 
0003103161 
0X)034 04-141 
0003103161 
0003103161 

00034044*14 
00031031611 



PRT(47n • SCAN 



••COUNT" IS Passed by both name and valuf. it is also 

CONVENIENT TO mAVe (63-cOUNT), ThIS iS CALLED •♦COMcOUNT" . 

"NCR" cNexT CHAKACTER TO Bf SCANNED) JS ALSO PASSED BY 

NAME AND VALUE SO THAT IT MAY BE UPDATED, 

"STI" AND "ST2" ARE TEMPORARY STORAGES WHICH ARE EXPLICITLY 

PASSED TO "SCAN" IN ORDEK TO OBTAIN THE MOST USEFULL STACK 

ARRANGEMENT, 

; 

STREAM PROCEDURE SC AN( NCR, CoUNTV , ACCUM. COMCOUNT. RESULTi HESUlTV , 

C0UNT,ST2»NCRVtSTi)l 
VALUE COUNTVf COMCOUnT, RESUuTV* ST2»NCRV. ST i I 

BEGIN 

LABEL DEBLANK»NUMBERSmDBLDR»GNC,K,EXiT.FINIS,L»ERROR, 

COMMENTS, COMMAnTSJ 
Dn«RESULTl DII»Dl + 7; sn^NCRV* 

comment setup "01" for a change in "result" and "si" for a look at 
The buffer; 



CI i»»CI+RESULTV; 
GO DEBLANK; * 
GO lOBLDRl % 1 
GO FiNiS; % ? 

GO Numbers; % 3 
go fiNts; I 4 

GO GNC; X 5 

GO commants; % 6 

% 7 



% switch on Value of result; 

S initial CODE, 

S ID CODE. 

S SPECIAL CHARACTER CODE. 

S NUMBER CODE, 

S fRROR CODE. 

S GET NEXT CHARACTER CODE, 

S COMMENT CODE, 

S DEBLANK ONLY CODE, 



Kl 
DEBlANKj 



IF SCs" " THEN 

Begin spsSi + n jf sc«" " then go k end; 

GO FiNiS; 



IF SC»" " THEN 
L« BEGIN SlJ»Sl+i; \F Sc«" " THEN GO L END; 

COMMENT IF WE ARRIVE HERE WE HAVE A NON-BLANK CHARACTER; 

NCRVt»Si; 

IF SC i "0" THEN 60 nUmBERS; 

IF sc«alpha Then go idblpr; 

COMMENT IF WE ARRIVE HERE WE HAVE A SPECIAL CHARACTER (OR GNC); 
GNC « 

DS»=LIT"2"; TALLYt«i; Sl»«Sl+i; GO EXiT; 

commantsi 

if sc*";" then 
Begin 

COMMENTS' 

Si J«si+i; 

IF Sc > "X" THEN gO COMMeNTs; 
IF sc < ";" THEN GO COMMENTS; 
COMMENT CHARACTERS BETWEEN % AND SEMICOLON ARE HANDLED BY WORO- 
MODE PART OF COMMENT RqUTINE) 

End; 
Gn FINIS; 
IDBlDri 

TALLYi»63> DSi«LIT "l"! 
COMcOUnT(TaLLYi*TaLLY+1; 

IF SC*ALPHA THEN Sll«SJ+l ELSE JUMP OUT TO EXlTl; 
TaLLYi*TaLLY+1| 





i 


02085500 T 


0003»03l6tl i 


02066000 T 


0003i03l6tl 


02086500 T 


00031031611 


02087000 T 


00031031611 i 


02067500 T 


00031031614 


02088000 T 


0003I0316M 


02089500 T 


00031031611 9 


02089000 T 


00031031611 


02089500 T 


00031031611 


START OF SEGMENT n********** |0 H 


02090000 T 


OOlOIOOOOJO ^ 


02090500 T 


OOlOtOOOOlO W 


02091000 T 


QOlOlOOQDIO 


02091500 T 


OOIOIOOOOIO 


02092000 T 


OOiOtOOOOiO # 


0209250i) T 


ooioioaaaio 


02093000 T 


OOlOIOOOOtl 


02093500 T 


ooiotoooo;i # 


02096000 T 


0010 J 0000 1 1 


02094500 T 


00101000112 


02095000 T 


0010(000113 # 


02095500 T 


00 10 ; 0001 13 


02096000 T 


00101000210 


02096500 T 


00l0t0002f0 # 


02097000 T 


001QIQ0D2I1 


02097500 T 


00l0«0002ll 


02098000 T 


00101000312 # 


02098500 T 


00 1.010003 i 2 


02099000 T 


00101000313 


02099500 T 


001010005*2 ^ 


02100000 T 


00101000512 


02J00500 T 


0010J0005;2 


02101000 T 


00l0l0006il # 


02101500 T 


00101000610 


02102000 T 


0010I0008I0 ^ 


02102500 T 


00101000610 W 


02lQ3Qfl0 T 


00 10 10009 12 


02103500 T 


00101000913 


02104000 T 


00101000913 # 


021.045DQ T 


001.0100.0913 


02105000 T 


O0lOl00Uf2 


02105500 T 


0010«OOUI2 # 


021Q60DO T 


00 1.0 !QQ 1211 


02106500 T 


00101001211 


02107000 T 


00101001312 # 


02107500 T 


001010013 1.1 


02108000 T 


00101001410 


02106500 T 


00101001411 # 


02109Q0Q T 


i)0l0i0i)i41.1 


02109500 T 


00101001411 


02110000 T 


00101001411 # 


021105^0 T 


00101001512 -.-. 


021U000 T 


00101001512 ^ 


02U1500 T 


0010(001513 W 


O2U2O0O T 


ooioioairi2 . .. 


02112500 T 


00101001611 _ 



IF sc««aLPha then 

BFGIN 

fRrori 

END 

fLSf go exit 

COMMENT ?F WE ARRtVE 
jN AN tDENTI 

numbeRSi 
prt{472) c ♦List, label, or serment d 

COMcOUNTfTAL 
IF 

60 error; 
exit I 

ST, i«TallY» 



at error we have more than 63 CHARACTERS 

fifR or number? 

sjbLit "s"; 
fScRiptor* 

lyj«tally+i; 

sc <''0''ThEn jump out to exiti sn«si + i)j 



TaLLYipTALLY 

Dll«*C0uNT» S 
COMMENT THIS CODE UP 

DII«ACCUM| S 
COMMENT THIS CODE PL 

DII«DI+C0UNT 

SII«NCRV; ds 
COMMENT MOVE CHARacT 
FiNlSl 

OfieNcR; STl 
PRT{«73) n *LlST, LABEL, OR SeRMeNT D 

COMMENT RfSeT "NcR" 

ENd Or SCAN? 



% "ST," COnTAImS nUmBEr of CHARACTERS WE ArE 

% GOING TO MOVE INTO THE "ACCUMULATOR", 

+COUNTV; ST2l«TALLYj 

Il«LOc St2| DS!*WDS| 

DATED "COUNT"! 

I J-SI-3; 0Sl*3 CHRI 

ACES "COuNt" IN "ACCUMw AS WELLj 

v> % POSITION "Di" Past characters already 

2 IN the "ACCUMULATOR"* IF ANY, 
«*ST1 CHR> 

eRs into "accum"; 

««sn sn«LOc sn; ds«wwds> 

escRiptor* 

TO location Op Next character to be scanned? 



0211 
0211 
0211 
0211 
0211 
0211 
0211 
0211 
0211 
0211 



3000 
3500 
4000 
4500 
5000 
5500 
6000 
6500 
7000 
7500 



osiiaooo 

02118500 
02119000 
02119500 
02l?0000 
02120500 
02121000 
02121500 
02122000 
02122500 
02123000 
02123500 
02124000 
02124500 
02125000 
02125500 
02126000 

02126500 
02127000 



00101 
00101 
00101 
OOIOI 
OOlOt 
OfllQl 
OOlOl 
00101 
00101 
OOlOi 



001912 
0019J3 
001913 
002010 
002112 
002112 
002113 
002113 
002113 
002113 



00 10 
0010 
OOiO 
00 10 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 



1 0025 M 
1002410 
1002513 
100-3513 
I0025J3 
t0026t0 
1002610 
1002712 
1002713 
1052713 
1002811 
1002811 
J 00291.2 
1002912 
tO029t3 
1002913 
1002913 



0010100 3112 
0010(0031)2 



L» 



LABEL l''% 

SCAwCNCR.CoUNT.ACCUMfiJ.e^-CoUNT.RESULT, 

RESULT. C0UNT»0»NCr»05' 
IF NCRsLCR THEN 
BEGIN 

READACaRD; 
IF LlBlNDEX'tO THEN 

IF REC0UNT«FINISHPT THEN 

BEGIN 

SEARCHLIB(FALSE)> 

READACARD) 

NORELEASEt*PALSEI 

ENDI 
GO TO L) % GO DIRECTLY TO L, OO NOT PaSS GO, 

% do not collect $200, 
endj 

END SCANNeRi 



10 IS 



02127500 T 
02i?8000 T 
021?8500 T 
02129000 T 
02129500 T 
02130000 T 
02130500 T 
02131500 T 
02132000 T 
02l325aa T 
02133000 T 
02133500 T 
02134000 T 
02134500 T 
02135500 T 
02 136000 T 
02136500 T 
02137000 T 
4ft tONa.. 



OOlO 
OOlO 
OOlO 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 

00 10 

OOlO 
0010 
0010 
0010 
0010 

NIXT 



1003112 
1003112 
»0032»0 
1003411 
1003610 
1003712 
»0037 1 3 

1003010 

t0038tl 

10.04010- 

1004011 

1004112 

lfli)illl3- 

1004211 

(004211 

1004.312 

(004312 

(0043(2 

.S.EG 3.. 



DEFINE wRlTpLlNp a IF SINqLTOr THEN WRi TEC Ll Ne » 15, Ll N[ * 1 ) 



02181000 T 0003(0316(1 



ELSE WRlTECLlNrEoebJ.lSaiNt*])*. 

makcast s begin 

CARDCALL.I*tF LASTUSeD«5 then true else FALSE! 
SEARCHLiB(TRUE)> 
END *f 
PRINTCARD « BEGIN 

EDlTulNE(LIN»FCRa.[36llO]» 

SGNOf LiCa5i2]f MEOIUMf OMiTTiNG)) 
IF NOHEaDInG then DATIMEi WRiTELlNEl 
END *i 
STREAM PROCEDURE ED ITU NE(Ll NF» NGR' R' S^ L» SYMBOL* OMI T ) J 
PRT(*r4) » FDITLINE 

VALUE NCR»R»S'L»SYMBOL»OMITI f 

BEGIN 

DI !• LINE I D5 l» 16 LjT " " ; 
SI I* NTR; OS !■ 9 WOSi 
OS |» 8 LIT " ♦♦I 
DS |» WDS» % SEQUENCE NUMrERi 
OSl»LlT" "I SIIkLOC SYMBOL! SIt»Sl+6} 
DS»k2 CHRJ OSI^LIT" "I 
SlIsLOr RJ Sll'sSI+^J 
IF SC*" " THEN DSI«12 LIT" " ELsE 
RFGIN 

SI«»LOf: S> DSl*'^ DEO nS««LlT " « •» » 
Sl»«LOc Rl DS«»4 DEC! DS»«LIT "I"! 
Sll«LOC LJ DStsl DECl DSIpLIT •♦ «! 
END* 
0MIT(DI Is DI - 1?! OS I. i? LIT ♦• lOMlTl 

DS t* 8 LIT '• lOMlT}")! 
END EDITLINEI 



Xlt4- 
X114- 



J!114- 
XIH- 



"J 01 «« LINE! 



1114- 
X114- 
«114- 
XIH-' 
X114- 
X114- 
XlH- 
XlH- 



02181250 
02181500 
02181750 
02182000 
0218225Q 
02! 82500 
02182750 
02lft27^0 
02183000 
02183250 
02183500 

02183750 
021B4QQD 
02184250 
02184500 
02184^50 
02185000 
02185250 
02185500 
02185750 
02186000 
02186250 
02186300 
02186400 
02186500 
02186600 
02186750 
02186760 
02187000 



T 
T 
T 
T 
T 
T 
P 
C 
T 
T 
P 

P 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 

C 
C 

P 

c 
p 
c 

T 



OOOSt 
00031 
0003» 
00031 
OOQil 
00031 
000 3 » 
OOOlt 
00031 
00031 
00031 

0003? 
00031 
00031 
00031 

00031 
00031 
00031 
00031 
00031 
000 J 1 
00031 
00031 
00031 
00031 
0003» 
00031 
00031 



031611 

03 1611 

031611 

031611 

Q11611 

031611 

0316U 

0J1611- 

031611 

031611 

031611 

031611 

031611 

031712 

031913 

032010 

032112 

032113 

032211 

032312 

032313 

032610- 

032610 

032712 

0328 to 

032912 

032912 

Q332M 

033410 



COMMENT COMPARE COMPARES SEQUENCE NUMBERS OF TAPE AND CARD, IF 
TAPE IS SMALLER THEN RESULT » ELSE IF CARD IS SMALLER 
RFSULT « 1 ELSE RESULT » 2| 
REAL STREAM PROCEDURE COMPaRE( TaPE* C ARD ) 1 VALUE TAPE^CARDl 
PRT(475) ■ COMPARE 

BEGIN 

SI |s TaPEI DI I* CaRDI 
IF 8 SC ^ DC THEN 
BEGIN 
SI 1» SI-81 DI »« DI-6> TALLY 1« ll 

if 8 sc » dc then tally 1» 2 
eNoi 
compare i" tally 

END cOMPaREI 



02187250 T 
02187500 T 
02187750 T 
02188000 T 



02188250 
02U-85XJ-0 
02188750 
02189000 
02189250 
02189500 
02189750 
021900i)0 
02190250 



0003103341-0 
00031033410 
00031033410 
00031033410 

00031033410 

00034Q33itZ. 

00031033513 

00031033610 

00031033610 

00031033712 

00031033713 

QQ031.a33fllQ 

00031033810 



PROCEDURE OUTPUTSOURCEl 
PRT(476) • OUTPUTSOURCE 

BEGIN 

LABEL lCArD,lTApE»AWAYj 



02 1 9<»500 T OOO 3l4339-» 2 



02190750 

02191000 

START OF SEGMENT 



T 0003*033912 
T 0003.1033912 



SWITCH SWtBLCARD»LCARD»tTAPE»AWAY.LCARD.LTAPE; 
ir srOTOG THEN X RESEOUENCInG» 
BEGIN 

IF T0TaL.no « -lO OR nEWBASE THEN 
BEGIN 

NeWBaSE «s FaLSeJ GTli;« TOTALNO I »BASENUM 
END 
ELSE GTIH« TOTALNOi* TOTALNO + AODVALUE; 

changeseO(gtii»i.cr); 
end; 
IF newtog Then 

IF iNSeRTDEPTH > AND INSERTCOP*! OR I NSERTDEPTH»0 THEN 

IF WRlTNEWfllNfFCR) THEN wR I TF C NeWTAPf* 1 Oi U I N[ * ] ) | 
IF OMfTTlNfi ThfN IF NOT LfSTATOa ThEN qO AWAY? 
60 SW[LASTUSE01I 

lcaRd» 

IF LlSTpR OR LiSTPTOG ThEN PRiNTCARDJ 

GO away; 
ltapej 

IF i.iSTER Then printcard; 

% Go AWAYJ 
AWaYj 

END OUTpUTSoURCEl 



X107' 



02191250 
02191500 
02191750 
02192000 
02192250 
02192500 
02192750 
02193000 
02193250 
02193500 
02193750 
02193600 
02194000 
02194250 
02194500 
02194750 

02195000 
02195250 
02195500 
02195750 
02196000 
02196250 
02196500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



11 IS 68 LONG* 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
004 
001 
001 
001 
001 
001 
001 
OOl 
001 
001 
001 
001 
NEXT 



lOOOOlO 
1000610 
1000713 
lOOOBiO 

1000913 
I 001 QIC 

1001112 

1001210 

i 001411 

f00l5i3 

I00l5t3 

I QO-lfi 10- 

1002011 

1002713 

1003010 

10032*0 

»0032«0 

J 004 9-1 Z 

1004913 

toosoio 

I006«i0 
10066)0 
1006712 
SEG 3 



PROCEDURE beginprint; 

PRT(477) ■ beginprint 

BEGIN 

STREAM PROCEDURE STUFF(NtL)J VALUE N) 



PRTC500) ■ STUFF 



BEfilN 



ENn; 



START 



DpaL) DSfS LIT " "; Sn»>Lj DSl*13 WOS; 
Slt«L0C N; DSJ«8 DEC* 



02196510 T 00031033912 



02196520 
02196530 

OF SEGMENT 

02196540 
02196550 
02196560 
02196570 



T 00031033912 

T 00031033912 

♦ ♦♦♦♦*♦♦♦♦, 12 

T 00121000010 

T 00121 000 010 

T 0012J0002I0 

T 0012t0002tl 



STUFFfBE6lNSTACKtBSP0INT]»LlN); 
IF NOHEADING THEN DATIMEJ WRiTELlNEI 
END BEGlNPRlNTJ 



12 



02196580 T 

02196590 T 

02196610 T 

IS 17 LONGf 



00121000211 

00121000411 

0Ol2ia0l61Q 

NEXT SEG 3 



PROCEDURE rEADACARDi 

COMMENT rEADACaRD rEaDS CarDs FROM EITHER THE CARD READER OR THE 
TAPE MERGING AS REQUESTED AND CREATING A NEW TAPE AND 
LISTING IF REQUESTED, READACARD AWSO INSERTS A PERCENT 
SIGN AS AN END OF CARD SENTINEL IN COLUMN 73 AND SETS 
FCR»NCR»LCR»TLCRt AND CLCRl 
BEGIN 
PROCEDURE ReADTAPE(LCR.MAXLcR»LIB)I VALUE LIBI BOOLEAN LIB! 



02196750 
02197000 
02197250 
02197500 
02197750 
02198000 
■02198250 
02198500 



T OOOaiOilSLlZ 

T 00031033912 

T 00031033912 

T O0a3lii33^94Z- 

T 00031033912 

T 00031033912 

T OX>031044512 

T 00031033912 



PRTC501) » READTAPE 



START Of segment ♦•♦•*♦♦♦** 13 



BEGIN 
L.ABFU 



Real lcR» maxucrj 



endRfadtape* fOft; 



IF 



PRT{5o2) 
PRT(503) 



Lib thfn 
bfgin 

RfcOunt««recount*i> 

IF LcR««LC«+ll>MAxLCR ThEN 
BEr T N 
READrLlBRARYrFIUElNX]); 

MAXlCR««46 + LCR««MKABS(|^IBRARY[F1LEINX3(0)) + 10I 
ENDJ 
ADDEr(SEQSUm.LCr«TRUE»TrUE); 

End 
else begin 
READ (Tape* io» tbuffc*j)[eoft3i 
eoft 

GO To solver 

MAXLCRl«LCRJ«MKABSCTBUFFt9])» 

GO TO emdreadtape; 

EOFTI 

0EFlNEARRAY[25)ta"N0JENDt"R "E^r 1 » 43 5 5 ] ; 

DEFlNEARRAYt3ft]l*''9999'* S "9999'' t H ?5 t 23] | 

TLCRS* MKABS{DEFlNEARRAY[3<t])| 

PUTSEQNO (DEFlNEARRAY[33J»TLCR-8)f 

TURNONStOPLIGHTC*"* TLcR"8); 

endreadtapfi 

ENDJ 

END READTAPEi 



J!105' 
»105' 



1(105- 



X105" 
1105- 
«105' 
X105" 
XlOS- 
X105' 
X105' 
X105- 
X105« 
X105' 



02198750 T 001 

02198755 C 001 

02198760 C 001 

START Of SEGMENT ♦*♦**♦ 

02199000 T 001 

02199250 T 001 

02199500 T 001 

02199750 T OOl 

02200000 T 001 

02200250 T OOl 

02200500 T 001 

02200750 T OOl 

02201000 T 001 

02201250 T 001 

02201500 T OOl 

02201750 P 001 



02202000 P 001 

02202010 C 001 

02202020 C 001 

02202030 C 001 

022020fl0 C 001 

02202050 C 001 

02202060 C 001 

02202070 C 001 

02202080 C 001 

02202090 C OOl 

02202250 T 001 

43 LONGf NEXT 



H IS 



31000010 
31000010 
31000010 

««*« 14 

4t0000l0 
41000010 
4100001 1 
41000210 
4 J 00 04 10 
4»0004ll 
41000811 

41001513 
41001513 
41001713 
41001713 
41001610 



41002312 
41002610 
4J.QQ26.J1 
4l0027t2 
41002912 
4100-3113 
41003313 
41003512 
41 003611 
41003712 
41003712 
SEG 13 



PROCEDURE SEQCOMPARECTLCR.CtCR. LiBJ; VALUE LIB; BOOLEAN LIB* 
PRT(504) » SEQCOMPARE 

REAL TlCR» ClCR I 
BEGIN 

MEDIUMis^C "I % CARD READER. 

IF G'T1|«C0MPARECTlCR#6LCR)»»0 THEN % TAPE HAS LOW SEQUENCE NUMB 
BEGIN 

LCRI«TLCR{ LaSTUSEDi»1F lib THEN 6 ELSE 31 

MEDIUM»«IF LIB THFN "C A" + F ILE I NX ELSE '*T " > XCAi CB. CC . OR T, 
END 
ELSE BEGIN 

IF GTl # 1 THEN % TAPE AND CARD HAVE SAME SEQ 
BEGIN 
MEDIUMU-'P •♦l SK CARD PATCHES TAPE, 

IF LIB THEN IF F I N I ShPT-RECOUNTs I THEN 

lastcrdpatch»«thue ELSF 

READTApFCLTLcRfMAXLTLcR#TRUEi FLSe 
Re ADTaPf(TLcR»MAXTLcR. FALSE)* 
pNo) 

LcRIbcUcRj 

Lastused««if lir then 5 eL.Se 2» 



02202500 T 00l3»0000l0 



02202750 
02203000 
02201250 
02203500 
02203750 
02204000 
02204250 
02204500 
02204750 
02205000 
02205250 
02205500 
02207750 
02208000 
02208250 
02208500 
02208750 
02209Q0O 
02209250 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0013» 
00131 
00131 
00131 
0013« 
00131 
00131 
00131 
00131 
00l3t 
00131 
00131 
00131 
00131 

OOl a I 

00131 
00131 
OOlil 
00131 



0000)0 

OOOOiO 
000010 
OOOOil 
000312 
000313 
000611 
000913 
Q009I1 
001312 
001313 
001410 
001512 
001712 

ooiaio 

002112 
002312 
002312. 
002410 



end; 
FND or seqcompahe; 



02209500 
02209750 



T 00131002610 
T 00l3»0026»0 



labfl cardonly* cardlast» tapel 
e0f» usetheswitch* 

C0MPAR»XIT»LIBEND» LIbTLA 

Label copylib. copyeofi 

SWITCH USESWITCH J« CAR00NLY»CA 

LIBCLAST» 

BOOLEAN 00LLAR2T0GJ 
STACK(F+2) 9 00LLAR2T0G 

IF rRRORCOUNT>ERRMAX THEN ERR(6 
USETHESw!TrH» 

GO TO USESWiTCH[LASTUSED3l 

MOVF(l.TEXTrLASTUSED»LlNKR#LAST 
DEFINEaRRaY [DEFINE I NnEX-2] 

l-ASTUSEH «■ LASTUSED * II 

NcR ta LcR^U 

GO tO xit; 
FiRSTTIMFt 

REAn(CARD»lO.CBUEFC*])| 

FCRl«NCR«»CLCRl»MKABS(CBUrF[9]) 

MeDtUMI»'»C "I 

IF fxamincfcR)j»''*'' and LISTeR T 

PUTsE0N0CINF0[lASTSEQR0W.|,AST5E 
CARDnUmBERI«ConV(InFO[lASTSEQRO 
TUrn0NST0PLIGHT(-X".LCR)> 
GO XITl 

COMMENT WE HAVE JUST INITIALIZED C 

CARDONLYJ 

IF norelease then go to exit; R 

LCR la MKA8S(CBUFF[93); Go EXIT 

CARDLAST5 

IF NORFLEASE then go to EXIT» R 
PRT(505) » EOF 

CLCR «» MKABS(CBUFFr93); 
60 rOMPAR; 

EOF I 

0EFTNEARRAY[25]t«-NDJEND.''&''E''t 
DEF?NFARRAYt34 3l"''9999«|''9999"[ 
CLCR««MKflBStnEFlNEARRAYt343); 
PUTSEONO(DEFlNEARRAYC33 3,rl-cR'8 
TURN0NST0PLighT(''X'''CI-cR-8)| 

% 



AST* EXIT. FIRSTTIME* 
ST.LIBCLaST) 

rdlast.tapelast»firsttime» 
libtlast. copylib; 

IDJ % ERR limit exceeded - STOP, 



USED.LlNKC]. 

); 



)-9; 

hen printcardi 
quence]»lcr); 

W»lASTSEqUEnCE-i3.5»8)) 



ard Input; 

EADCCARDf lOiCBUFF[*]); 
J 

EAD(CARD»10.C8UFFt*])tEOF3l 



1M3J5]| 
11251233; 



GO cOMPAR; 

comment This Releases the prfVious card from card reader and 
SETS Up clcr; 

TAptLASTi 

READTAPE(TLCR»MAXTLCR»FALSE); g 

COMMENT this RELEASES THE PREVIOUS 
LIBCLASTJ 

IF FIRSTIMEX THEN 

BEGIN FIRSTIMEXI»FALSE; GO COMPAR END; 

READ(CARDflO»CBUFFC*3)tEOF3j 

CLCR l« MKABS(CBUFF[93); 



TO cqmpar; 

CARD FROM TAPE AND SETS UP TLCR; 





02210000 


r O013IO026fl 






02210250 


r 0013«0026ll 






02210500 


r ooi3;oo2^i4 




X107- 


02210600 ( 


: 00131002611 






02210750 ' 


r 00131002611 




3S107- 


02211000 f 


» 0013^002913 






02211250 ' 


r 0013I0033«3 




f 


02211500 ' 


r 00131001113 






02211750 ' 


r 0013(003610 






02212000 1 


r 0013«0036IO 






02212250 1 


r oouiooiajo 






02212500 1 


r 00131004112 






02212750 1 


r 0013(004210 






02213000 1 


r 001 31 00431 3 






02213250 1 


r 00131004411 






02213500 1 


r 00131004512 






02213750 1 


r 00131004610 






02214000 1 


r 00131005010 






02214100 1 


r 0013«0053«3 






02214200 1 


r 001310054! 1 






02214250 1 


r 00l3»0074«0 






02214260 1 


r 00t3»0076»0 






02214500 1 


r oouiooaoio 






02214750 1 


r 001310081(2 






02215000 1 


r 0013(0081(3 






02215250 1 


r 001310081(3 






02215500 1 


r 0013(0082(0 






02215750 1 


r 0013(0087(2 






02216000 1 


r 00131008913 







02216250 1 


r 0013(0090(0 






02216500 1 


r 0013(009610 






02216750 1 


r 0013(0098(0 






02217000 1 


r 0013(0098(1 






02217250 1 


r 001110099(2 






02217500 1 


• 0013(0101(2 






02217750 1 


' 0013(0103(3 






02218000 1 


r ooiiioi^ti 






02218250 1 


' 0013(0107(2 






02218400 1 


' 0013(0108(1 






Q2Z165Q0 1 


f 0Ql3lQ10ftll _ 






02218750 1 


' 0013(0112(0 






02219000 1 


r 0013(0112(0 






02219250 1 


' 00111011210 


. _ , , .,., 




02219500 1 


0013(0112(0 




; 


02219750 1 


0013(0113(3 






022200a0 T 


' 00111^41-111 






02220250 1 


' 0013(0114(0 






02220500 1 


• 0013(0114(0 






02220750 1 


OOlllOllAli)- 






02221000 1 


0013(0121(2 













m 



PRTf506) * COPYEOF 



IF lastcrdpatch Then 

BEGIN 

lastcRdpatch«»false) 

RrCOUNTl«RECOUNT+l J 
GO TO XIT 
FNDI 
GO yO cOMPAR) 

LIBTI-ASTI 

IF firstimex ThfN 

BEGIN FlRSTlMEX«»rAUsE; 
REAnTAPECLTLcR.MAXUTUcRiTRUF) 
IF RFCOuNT«FINtSHPT THPN rO T 
60 fOMPARf 
COPYLlBl 

READfLFr INSeRTiNXIsINSeRTiNX* 



READ SEEKCUFCInSERTI 
IF(CMPD(lNSERTSEe#LB 
LCRi«MKABSfL,BUFFl93) 
GO TO fXlU 
COPYEOFi 

CLOSE(LF»RELEASE); 
IF(f INSERTDEPTHI«INS 
BEGIN LASTUSEDI* 

GO usetmfswitchj 
end; 

Fill LF WITH INSERTM 
GO COPYUIBJ 
COMPAR« 

IF LASTUSEO * 2 OR L 
FLSE SfOCOMP 

exih 

NcR J«s FCR«« LcR " 9 

COMMENT SFTS UP NcR AND 

IF CHECKTOG AND EXAM 

TF COMPaRe(MKABS(I 

IF SEOERRTOG THE 



NX+i])| 

UFF193) « 
t 



ERTDtpTH- 
SAVrCAROI 



60 TO COMPaR eNDJ 

; 

XIT* 



n»lO,LBUFFf ♦lUCOPYEOFJI 
0) THEN Go COPYEOF; 



n s 0) THEN 
MEDIUMl»MEDIUM.(24n2]J 



ID, INSeRTFiDI 



«107" 
«l07» 
j;i07- 

X'l07- 
X107- 
X107- 
X107- 
X107- 
«107- 
X107- 
X107- 
«107- 
1107- 
1:107- 
1107* 



FLSE 



IF 



BEGIN 

blanke 

SEOUEN 

IF NOH 

IF NOT 

NUMSEQU 

end; 

FXAMIN( 
BEGIN 
IF L.I 
IF EX 



% SEQUENCE 
TC14»LIN5J 

cewarmngc 
eading the 

LISTER TH 
ENCEERRORS 



ASTUSfO ■ 
ARrdTLcR 

{ 

FCRl 
lN(FCR),t" 
NFOtLaStS 
N BEGtN F 

numsequ 
Warning 

LiNtni)) 
n datime; 
En printc 
cnumseou 



3 Then seocompaRe(tlcR»clcr»faLse) 
»clcr»true)» 



f the"^ X s-caRds don^t count, 

EOROWpLASTSE8UENCE3),LCR)»l ThfN 
LAG(6iO)| 

ENCEERR0RSi»nUM5EQUENCEERR0RS+i>END 



WrITELInEi 

ard; 

ENCEERRORS + U 



FCR)«''$*' then 



COMMENT 



STPTOG OR 

AMIN(NCR«» 

norelease 

forget tha 

etheswitch 



.ARTOG THEN ?RINTCAR0I 

i)****" THEN MAKCAST ELSE DOLLARCARDI 




DONT 

GO US 

CNDI 
IF fX-aMiNC 

jr DOLLAR2T0r,j«EXA 

BFGlN 

OUTPUTSOURCE* 



PRINTDOLL/ 
NCR+32768: 

«■ FALSM 

T NCR IS NOT WORD MODE, BUT CHAR, MODE POINTER* 

I 



rcR)« 



HEN 

MlN(FcR + 32768)**»S'« THE^ 



02221250 




00 


13 


1012312 


02221500 




00 


13 


(012313 


02221750 




00 


13 


I0l24>0 


02222000 




00 


13 


1012411 


02222250 




00 


13 


|0l26-liX 


02222500 




00 


13 


(012611 


02222750 




00 


13 


1012611 


02223000 




00 


13 


1012712 


02223250 




00 


13 


1012712 


02223500 




00 


13 


1012712 


02223750_ 




00, 


13 


LOl 2512 


02224000 




00] 


13 


1013010 


02224010 




00 


13 


I013H3 


02224020 




00 


13 


10 13210 


02224030 




00] 


13 


1013210 


02224032 




00] 


13 


I0U1J3 


02224040 




00 


13 


1014811 


02224050 




00] 


13 


10152U 


02224060 




00] 


131 


1015411 


02224070 




00 


13 


1015512 


02224080 




00] 


13 


I0155J2 


02224090 




00] 


13 


I015-6U 


02224100 




00] 


13 


1015811 


02224102 




00] 


13 


1016112 


02224104 




00] 


L3 


1016113 


02224110 




00] 


13 


1016113 


02224120 




00] 


13 


1016712 


02 22 4 250, 




OQ] 


L3. 


! 0167.1.3 


02224500 




00] 


13 


I0168J0 


02224750 




00] 


13 


r0l7ll2 


02225000 




001 


1.1 


! 0173 12 


02225250 




00] 


13 


1017410 


02225500 




00] 


13 


1017513 


022257iQ 




OP] 


L,3. 


IP175U 


02226000 




003 


13 


1017811 


02226250 




001 


13 


1018312 


02226300 




00] 


13 


101.8513 


02226500 




00] 


[3 


1018611 


02226750 




00] 


13 


1018712 


02227OO0 




00 ] 


13-1 


lil^MJl 


02227250 




00! 


13 


1018913 


02227500 




00] 


[3 


1020112 


0222760Xi. 




00] 


13-J 


1021713 


02227750 




001 


i3( 


021811 


02228250 




001 


i3l 


021811 


0222A500. 


,.,|.„. _ 


003 


L3-1 


\Si2Z0ll 


02228750 




00] 


131 


1022112 


02229000 




00] 


L3I 


0238U 


022291OO 




OO] 


L31 


024711 


02229250 




00] 


31 


024810 


02229500 




00] 


131 


024810 


02229150 




00] 


^3-1 


024-8-11 


02230000 




00] 


31 


024BU 


02230100 




00] 


31 


025011 


02230250 




003 


13.! 


Q?53.fJ 


02230500 




00] 


31 


025410 




y 



tr E:XAMlNI(NCR|8NrR + 65536)»«»S»' THEN MAKCAST ElSE 
DnLLARCARD» 
EnD} 
IF VOIDING OR VoIDTAPt THEN 
BEGIN 

IE COMPARE<LCR'VOIDCR)»0 THEN 
BEGIN 
IF VOIDTAPE and UaSTUSED»»3 OR NOT VOIOTAPE THEN 

GO USETHESWITcH; 
END 
ELSE BEGIN 

VOIOCR«*VOIDPUACE:«0; 
V0lDINGi«FALSE; Vo I DT APE « "FALSE 
ENDJ 

END? 
CARnCOIJNTJ»CARDCOUNT + l; 
IF n0LLAR2T0G THEN 

BEGIN D0mAR2T0G«rN0REUEASEI«FALSEJ GO USETHESW I Tch; FNO; 
PUTSEONO(lNpOlUASTSEQROW.UASTSE9UENCE3»LcR)J 

CARDNUMBERt»IF SEOTOg THEN TOT ALNO+addVALUE EUSE 

CONVClNFO[UASTSEQROW»LASTSEOUENCE''n#5,a); 

outputsouRcf; 

IF OMtTTtNg ThfN gO USfTHfSWITchS 
TURNONSTOPLiGHTCX'M-CR); 

IF buildline Then 

IF LASTAOORESS # flASTAoORESS i^ L.t36JlO]) THEN 
BEGIN 

ENILSPoT la tASTADDRESS K CARDnUmBER t 1 » ?0 I ?fl ] ; 
IF CENILPTR «« ENILPTR+l)il023 ThEn 

BEGIN FlAGC80)J ENIUPTr J» 5l2J ENDJ 
ENDJ 



XITl 



END READACARDJ 



O223O75O 
02231000 
02231250 
02231500 
02231750 
02232000 
02232250 
02232500 
02232750 
02233000 
02233250 
02233500 
02233750 
02234000 
02234250 
02234500 
02234600 
02234650 
02234750 
02234800 
02234900 
02235000 
02235250 
02235500 
02235750 
02236000 
02236250 
02236500 
02236750 
02237000 
02237250 
02237500 
02237750 
02238000 
13 IS 309 LONGi 



00l3«0254«l 
00131026113 
00131026411 
00131026411 

00131026610 
00131026611 

00131026611 
00131026912 
001310^7210 
00131027312 
00131027312 
00131027313- 
00131027411 
00131027712 
00131027615 
00131027810 
00131027913 
00131027913 
0013(026210 
001310264(0 
00131028611 
00131029010 
00131029011 
00131029210 
00131029210 
0013J0293I2 
0013 J 0293 J 3 
00i3»0295«3 
0013»0296«0 
00131^30010 
00131030210 
00131030410 
00131 QJ04 JO 
001310304(0 
NEXT SEG 3 



PROCEDURE fNCl.UDECAROJ 
PRT(507) u tNCLUDECARD 

BEG?N 

Real vj 



X107. 



STaC»<(F + 2) m V 



PRT(5iO) c scNN 



LabfL ffxit.again,getem»fof»exit»dontscaNi 
Real stream procedure scnn(a»b); value bj 

RFT T N 

Si('«AJ DI««L0C SCNNJ dS(«8 LIT'^O 

D|«»DI-7I Sil»Si+3l DS«rB ChRJ 

ENDJ 



"J 



02238100 C 000310339(2 



j;i07- 02238110 C O0Q3lQ339l2 
«107- 02236118 C 000310339(2 
START Of segment ♦♦*♦♦♦♦*** 15 



X107- 

X107- 

«107- 
1107- 
X107- 
J!l07- 



02238120 C 
02238130 C 

02238140 C 
02238150 C 
02238160 C 
02238170 C 



0015(0000(0 
001510000(0 

0015(0000(0 
0015>0000(0 

aoisifl^ua 

0015(000211 



PRT{5ll) B mVE 



STREAM PROCEDURE MVEC A , B . C t D) J VALUE BtCJ 



i;i07* 



02238180 C OOiSiOOOm 






BEGIN 

skba; siimSU3J Dii»D> crDs;sLiT«*o»}] dsibB chri 

End; 



1107' 
1107- 
X107" 



02P38190 
02236?00 
02238210 



C 0015>0003I3 
C OOISIOOQAIO 

C 0015»0007»2 



PRTC512) • MVEWD 



STREAM PROCEDURE MVEWD(A*B); VA^UE a; 
BEGtN SlIsA; diibb; DS|«iO wds; endj 



X107' 
Xl07< 



02238212 C 00151000712 
02238214 C 00l5»0007l2 



DEFtNe SKaN 



BEGI^* 
COUNT 



DEFtNe 

IFfrlNS 

INSfRTM 

inserts 

AGAiNt 

SkAki? 
OONTSCAnI 

IF V*"* 
IF V«"/ 
IF rESU 
BEG 
MVE 
SKA 
IF 



END 
GO 
END 
IF V"* 
BEG 
SKA 
IF 



EUS 
GO 

END 
IF INSE 

eLsf if 

GO aGAI 

geteMi 

IF NOT 
IF tXaM 
IF rOOL 



s-RfsultisaccumcOji.o; 

SCANNpRl 
Vl«SCNN(ACCUMrl]#MlN(C0uNTi7)3; 

fnd#j 

ERR(eRRI) s begin FlAGCERRD* GO TO EEXlTJ END#; 

eRtoepth'-insertdepTh*!) > insertmax) Then erR(6i2: 
id;«insertfid«binseRtinxi.insertcop;»oj 

EQ«*«''9999'«&«9999'«Ii »23] f 



»• THEN Go GETEm> 

" THEN GO AGAIN? 
LT83 THEN % SEO RAn^E 
IN 
(ACCUMCl 3 » COUNT |«MIN(C0UnT»8)»8-C0UNT» INSERT INX)I 

n; 

Vs"- ♦♦ THEN 
BEGIN 

skan; 

IF RESULT * 3 ThEn ERR(614)I 

MVE{ACCUM[n»C0UNTl«MlN(C0UNT»8)»8-C0UNT.lNSERTSEQ)i 

ELSE GO TO DONTSCANi 
AGAIN) 
; % SEQ RANfiE 

" THEN * WE HAVE COPY FORM 
IN 

n; 

v«»»copy •♦ then 

IF EXAmIN(I.,CR-9)»««'»" THEN 

iNSERTCoPl-lNSERTlNFOtlNSERTDEpTH'lfA] 

El.SE ERRf6l7) 
E ERR(616)| 
AGAINI 
J 
RTMlD»0 THEN INSERTMlDt«V 

IN5eRTFID*0 THEN lNsERTFlD»»V ELSE ERRC616)| 
Nj 

roolfaN(inseRtcop) and nfwtog thfn 

IN(FCR) »» "»" THEN % ONLY IF "S" IS IN COLUMN ONE 
EAN(lNSFRTlNF0[iNSrRTDEPTH*l»4n THEN X ONLY IF LAST 



X107- 


02238220 c 


00l5l0009t2 




X107- 


02238230 C 


00151000912 




X107- 


02238200 C 


00151 000912 




X107'' 


02238250 C 


00151000912 




X107- 


02239260 C 


00151000912 




X107- 


02238270 C 


0015! 00091 2 




i X107- 


02238280 C 


00151000912 




X107- 


02238290 C 


00l5»00i2ll 




Xl07* 


02238300 C 


OOiSiQ0i9l3 




X107- 


02238330 C 


00l5l0022»l 




X107- 


02238340 C 


0015I0023»2 




Xl07» 


02238342 C 


00151003010 




X107- 


02238350 C 


00151003112 




X107- 


02238360 C 


0015J0032I0 




XI 07- 


02238370 C 


0015100^313 




X107- 


02238380 C 


00151003410 




X107» 


02238385 C 


00151003411 




X107- 


02238390 C 


00151QO4QM 




X107- 


02238400 C 


00151004810 




X107- 


02238410 C 


0015(00461 1 




X107- 


02238420 C 


00151004912 




X107- 


02238430 C 


0015*005611 




*107- 


02238440 C 


00151006312 




X107* 


02236AS0 C 


0015IQQ&.9J2 




X107- 


02238460 C 


00151006912 




X107- 


02238470 C 


00151006913 




X107- 


02238480 C 


0015JQ0A9U 




X107- 


02238490 C 


00l5t0070l0 




X107- 


02238500 C 


00151007011 




Xl07» 


02238510 C 


001510078(0 




X107'' 


02238512 C 


OOl5(6b78il 




X107- 


02238514 C 


0015I008U3 




X107- 


02218520 t- 


X).01 5100841-1 




X107- 


02238522 C 


00151008912 




X107- 


02238530 C 


0015t'0091l2 




X107- 


02238540 C 


0015iM9-113 


_,.. „.„._ ,_ 


X107- 


02238550 C 


00151009113 




X107- 


02238552 C 


00151009512 




xior- 


0223A555 € 


am^ixunziQ 




X107- 


02238560 C 


00151010211 




1107* 


02238570 C 


00151010312 




X107- 


02238572 C 


0.0 ISJ 01 05 J J - 




HAD COPY 


02238574 C 


00151010713 





PRT(513, « EEXlT 



BEGIN MvEWnCrcR»UBUFr[0]); 

PUTSEONO(UBUFFt9 3.MKARS(lNFO£LASTSEOROW.LASTSEOUENCEn)| 
WRITECNEWTAPE»ir)»lBUFFC*J)l 
FNOI 
IF INSERTMID«0 THEN ERR(6i3)> 

IF tnseRtfid«o then inseRtfidi-timeci); 

IF tNSERTFID»0 THEN 

BEGIN TNSeRTFiDJ-INSERTmiDI I NSERTMtO t .01 ENDI 
IF TNSERTDEpTH > i THEN ClOSEclF .RELEASE ) ; 
Fill, l,F WITH InSErTmID»InSErTFIOJ 
READ(UF[o3MO»LBUFFr*])CEEXlT]| 



» 00 THE Following so that 



1107' 
%\07' 
%107' 
%107' 
%\07' 
%107' 
!K107« 
«107. 
XI 07, 
1107" 
X107' 



insfRtmjdj-lfiMfid; 

INSFRTFIDt"LF,FID| 
IF 



EEX 



EXIT» 



X IF THE OPERATOR IL-ED US X107' 

* WE WILL HAVE THE PROPER NAHESt 

-tl %107' 

INSFRTINX > THEN 1107- 

BEGIN X107* 

DO RFADCLFtVt*V+n»10»LBUFF[*])tEEXlT] «107" 

UNTIL CMPD(INSERTINX.LBUFFC9]) i II iio7^ 

V«»V-1I 1107- 

ENni X107« 

lNSrRTlNX»«Vf X107" 

IF tNsfRTDEPTH «= 1 THEN xi07- 

BEGtN SAVECaRDI«LaSTUSfd; LaSTUSED«*7j ME0IUMj«''L "& MEDlUMr24ll2]; 

f'^Pi j:io7* 

GO tO FXITI «107- 

IT» 1107" 

IFC(INSERT()EPTHl«INSERTDEPTH-n > 0) THEN X107- 

BEGIN ,107- 

cLOSEtLF. Release); %i07' 

FILL LT WITH I NSERTM I D» I NSERTF I D; %y07* 

END) Xj07- 

Ol^^MtoOOO » X107" 

ENdV X107' 



02236580 
02238582 
02238590 
02238600 
02236602 
02236610 
02238620 
02236630 
02238640 
02238650 
02238652 

02238654 
02236656 
02238658 
02238660 
02238670 
02238680 
02238690 
02238700 
02238702 
02238704 
02238710 
02238720 
02238730 
02238760 
02238770 
02238780 
02238790 
02238800 
02238810 
02238820 
02238830 
02238832 
02238840 



C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 



toiioio 

I0UH3 
t Oil 5 1 2 
1011912 
t 011912 
I0l22tl 
1012713 
1012913 
1013512 
1013810 
t0143l3 



15 IS 203 L0N6« 



00151015010 
00l5t0l5«ll 
OOISI 015912 
0015(016010 
0015J0162I0 
0015I0162M 
00151016913 
00151017410 
00151017513 
00151017513 
00151017713 
0015I0178IO 
00151018210 
00151018210 
0015I0186J0 
00151018610 
0015I0167J3 
00 151 0186 10 
00i5l0i90l0 

00l5«0i95«3 
0015ID195I3 
OOI51OI961O 
0015t0l96ll 
NEXT SEG 3 



REAL PROCEDURE CONVERTJ 
PRTC514) • CONVERT 



STACKfF+3) « T 
STacK(F*«) 3 N 



BEGIN Real t; integer ni 



TLO*0| THI* 

T* Cf>NV{ACcUMtU»TcOUNT»N*(cOuNT-TCOUNT)MOD 8); 
eOR N* TcOuNt+N STfP 8 UNTiL cOUNT- 1 qO 

If dptOg then 

BEGIN 

OOUBLfC TH I » TLO »1 00000000,0,0. K,cONv( AC CUMC 11 »N, 8 ),0,+,*, 
THI.tLO); 

T-THII 
END eUSE 

t* txiooooo0oo4 c0nv(accumru»n,8)) 
conVeRT«.t; 

EnDJ 



02248000 T 00031033912 

02249000 T 00031033912 
START OF SEGMENT *♦♦*»*♦♦♦♦ 16 



02250000 
02251000 
02252000 
02253000 
022540 00 
02255000 
02256000 
02257000 
02258000 
02259000 
2 26 000 Q 
02261000 



T 00161000010 

T 0016I..OOQOU 

T 00161000512 

T OOI6IOO1OIO 

T 00161001.010 

T 00161001011 

T 00161001512 

T 0OldtXX046i« 

T 00161001611 

T 00l6l00l6»l 

T Qi346lftfti4ia- 

T 00161002411 



16 IS ?fl LONG» NEXT SEG 



PRTC515) • FETCH 



REAL. STREAM PROCEDURE FeTCHCFj? VALUE F; 

BEGIN SH»F; Sn*SI-8t D1I«L0C FETCHj DSl»WDS END FETCH; 



02262000 T 0003l0339l2 
02263000 T 0003t0339l2 



PROCEDURE OUMPlNFOl 
PRT(5l6) • DUMPJNFO 

BEGIN 

ARRaY AfOllftl; INTEGER JEDEN»DWa» 

STACK(r*2) » A 
STAcK(F+3) ■ JEDFN 
STacK(F*<I) » DWA 

STRfAM PROCEDURE OCT ALwORdSCSi D» N ) j VaLUE N| 
PRT(5l7) m OCTALWORdS 

BEGIN 

SfJsSI DllmO; 

N(?(efDSU3 RESET? a^F SB THEN OSlsi SET ELSE 

osui RESET; Skip i SB)); Dsui lit •♦ ••);ds»»? lit« •♦); 

EniD oe octalwords; 



02264000 T 00031034210 

02264050 T 00031034210 
02264100 T 00031034210 
START OF SEGMENT *****-*«*•« 17 



02264400 T 00171000113 

02264450 T 00l7li)00ll3 

02264500 T 00l7l0003»2 

02264550 T 00l7l0003»3 

02264600 T 00171000611 

02264650 T 00171000912 



STRFAM PROCEDURE AUPHAW0RDSCS»D» N) ; VaLUE NI 
PRTC5205 » aLPHaWORDS 

BFGIN 

sii»S; dii»d; 

N(2(4(DSm1 LIT" •♦; dSi»1 CHR); DSf«l LIT" "); 0St«2 LIT" "); 

END OF alphawords; 



02264700 T 00171000912 



02264750 
02264600 
02264850 
02264900 



T 00171000912 

T 00 17 I 0010 1.Q 

T 00171001011 

T 0017 I 00141 1 



IF nOHEADING then DATIME;wRlTE(LINEtDBL3«<//'»ELBAT">); 
PRT(521) ■ ♦FORMAT DESCRIPTOR* 

FOR JFnENj«0 STEP 6 UNjlL 7l DO 

BEGIN 

BLANKET(14tA)J OCTALwOROSCeUBAT C JEDENlt At 6 ) ; 

WRITEaiNEtOBL]»15tAC*])» 

END? 
BLANKET(14tA)I OC TALWORDSf ElBAT[ 7? j t A, 4) ; 
WRlTEfLlNEtOBL3»15»Ar*]); 
FOR JEDEN«»0 STEP 1 "JnTr NE^TInFO DIV ?56 DO 

BEGIN 

WRlTE(LlNEtD8L3»<//"lNF0C"»l2»"»*3''>»jEDEN); 
PRT{522) ■ ♦FORMAT DESCRIPTOR* 

PRT(523) B *LIST. LABEL* OR SEGMENT DESCRIPTOR* 



18 IS 



02264950 T 00l7|00l4il 
6 LONG* NEXT SEG 17 



19 IS 



02265000 
02265050 
0226.51.00 
02265150 
02265200 
0226S250 
02265300 
02?65350 
02245450 
02265450 



T 00171001912 

T 00171002010 

T Q01.71Q020IXJ 

T 00171002312 

T 00171002712 

T 00171002913 

T 00l7«0032«l 

T 00l7«0036ll 

1 QiJl7Ji)flAi!2 

T 00171004112 



a L0NG.J NEXT SEG 17 



FOR 



END 



dwaj»o 

BfGIN 



STEP 6 UNTIL 251 DO 



BLANKET (HM); aLPHAWORDS C INFOC JEDEN» DWA3 » Af 6 
WRITE(LlNE»15#Ar*])J 



){ 



BLANKET( U»A); OCTALWORDSC I NFOt JEDENi DWA 

WRITE(LlNElDBL].l5»At*J)J 

ENDI 

BLANKET (ia» A) I ALPHAWOrDS( iNFO [ JEDEN. 2523 » A » 4 ) I 
WRITeCLINc,15»AC*]); 

RLaNKET(14»A)I 0cTALw0RDS(lNF0CJEDENf252]»A»4)j 
WRlTF<LlNr[DBL3»15»A[*3); 

fnd; 

Of nUMPlNFOl 



]*A»6}I 



02265500 
02265550 
02265600 
02265650 
02265700 
02265750 
02265800 
02265850 
02265900 
02265950 
02266000 
0226605Q 
02266100 



17 IS 88 LONG* 



001 
001 
001 
001 
001 
001 
001 
OOl 
001 
001 
001 
001 
001 
NEXT 



71004610 
71004912 
7» 00491 2 
71005211 
71005712 
71006011 
71006512 
71006712 
71 00711 2 
71007512 
71007912 
7l00«3l2 
71006313 
SEG 3 



DEFINE SKAN « BEGIN 

CoUNT»»RESULTl«ACCUMH3laO< 

Scanner; 

9|sACCUM[l3l 

End #j 

COMMENT DOLLARCARD HANDLES THE COMPILER CONTROL CARDS, 
ALL COMPILER- AND USeR-DEF INED OPTIONS ARE KEPT 
IN THE ARRAY "OPTIONS". 
EACH OPTION HAS A TWo-WORD ENTRYi 

WORD CONTAINS 

■iiw* cBsina Mai ao 

1 ENTRY FROM ACCUMtUl OOXZZZZi WHERE 
X IS THE SIZE OF THE ID AND 

ZZZZZ IS THE FIRST FIVE CHARS OF THE ID. 

2 PUSh-DOWN, 47-bit STACK CONTAINING THF 
HISTORY Op THE SETTINGS OF THIS OPTION. 

IN "fINdOPTION'S all COMPILER-DEFINED OPTIONS ARE USUALLY 
LOCATED BASED UPON A UNIQUf NUMBeR ASSIGNpO TO EACH. 
FOR ALL USeR-OEFINeD OPTlONSt A SEQUENTIAL TABLE SEARCH IS 
INITIATED USiNg "USEROPINX" AS THE INITIAL INDEX INTO THE 
"OPTIONS" ARRAY, IF THE NUMBER Op COMPi LER-DEF I NED OPTIONS 
IS CHANGED* THEN huSeRqPINX- MUST BE ACCORDINGLY CHANGED, 
THE NUMBER OF USER DeFiNED OPTIONS ALLOWED CAN BE 
CHANGED BY ChAnGInG THE DEFINE "OPARSIZE", 

THE VARIABLE "OPTIONWOrD" CONTAINS THE CURRENT TRUE OR FAiSE 
SETTING OF ALL OF THE COMPILER-DEFINED OPTIONS* ONE BIT PER 
OPTION, 
» 
BOOLEAN PROCEDURE F I NDOPT ION( Bl T) > VALUE BITI INTEGER BITI 
PRT(524) « FINDOPTION 

BEGIN 

LABrL FOUND? 



STaCK(F+3) « ID 



REAL id; 

0PiNXt«2>«BIT"4| 

WHILE IDI»OPTlONS[OPINXf»OPlNX+?J#0 DO 
IF Q"In THEN GO FOUNnJ 



START 



02277000 T 
02278000 T 
02279000 T 
02280000 T 
02281000 T 
02282000 T 
02283000 T 
02284000 T 
02285000 T 
02286000 T 
02287000 T 
02288000 T 
02289000 T 
02290000 T 
02291000 T 
02292000 T 
02293000 T 
022940Q0 T 
02295000 T 
02296000 T 
02297000 T 
02298000 T 
02299000 T 
0230Q000 T 
02301000 T 
02302000 T 
02303000 T 
02304000 T 
02305000 T 
02306-000 T 
02307000 T 



02308000 

02309000 

OF SEGMENT 

023tOa04} 



000310342*0 
000310342*0 
0003 I 0342 JO 
0003t0342«0 
0003l0342t0 
0003*034210 
00031034210 
00031034210 
000310342(0 
0003I0342>0 
00031034210 
0003-1034210 
00031034210 
00031034210 
Q0Q3IQ34ZIQ 
00031034210 
00031034210 
0003(034210. 
00031034210 
000310342(0 
0003 1 0342 1.0 
00031034210 
00031034210 
0QQ3IJD342I0 
00031034210 
0003(034210 
0003- J 034210 
00031034210 
00031034210 
00 i 1034210 
00031034210 



T 000310342X0 
T 00031034210 

iti««i|i**«i|t4c* 20 

T 0020104^00*0- - 



02311000 T 
02312000 T 
02313000 T 



00201000010 
-00201000113 
0020(000512 



OPTlONsfOPlNXJi.Qi % New IjSFR'DEFlNtD OPTION, 
FOuNOI «103- 

IF OPINX ♦1>0PARSI2E: then rLAG(602) ELSE % TOO MANY USFR OPTIONS 
FlNnOPTlONI.BOOLEAN(OPTlONSrOPlNX + l ])l 
END F?NOOPTiON» 



02314000 
02315000 

02316000 
02317000 
02318000 



T 00201000611 

P 002OI00O6J0 

P 0020J0006IO 

T 0020l00l0«l 

T oogoiooiaii 



20 IS 15 LONG. NEXT SE6 



PROCEDURE OOLLARCARDI 
BEGIN 
PROCEDURE SWITCHIT(XBIT); VaLUE XBIT; INTEGER XBlTl 



PRT(5?55 » SWnCHlT 



STACK(r42) a B 
STACK(F*3) « T 

STACK(F+4) « SAVEINX 



xmodeOi 



PRT(5265 » 



D 



xmodei J 

DYNAMIC DlALs 
XM0DE2I 

XM0DE3I 



XMODE^t 



ALONGI 



BEGIN 
BOOLEAN Btli 



INTEGER SaVEINXJ 



02 319000 

02320000 

02321000 

START OF SEGMENT 

02322000 

02323000 

START OF SEGMENT 



T 0003*0342^0 
T 00031034210 
T 0003t0342t0 

**«***.****.. .. ...21 

T 00211000010 
T 00211000010 



Label xmodeo#xm 

SWITCH SW:«XMOo 
SFTTlNGt»FlN00P 

fiO swrj(MOnF+i]; 

% FIRST OPTION 
OPTlONwORni*BOO 
FOR SAVEINXIpI 
IF BUlLDLlNE;f4 

BUlLOLINE.r* 
XmoDEI«1I IF LA 
% NOT FIRST OPT 
OpTTONStOPlNX*l 
IF XBIT<USER0PI 

GO ALONG) 

X RESETi 

OPTIONSCOPINX+l 

IF XBlT<USEROPI 

GO ALONGI 

% SET, 

SAVEINX««0PINXJ 

BI»1F Q«''1»0000 
OPTlONStSAVEiNX 

IF xbit<useRopi 

60 ALONGI 
% POP, 

OPTlONstOPlNX+1 
IF XBIT<USER0PI 

END switchit; 



0de1iXM0DE2iXM0DE3iXM0DE4»aL0Ngi 
E0,XM0Df1»XMOde2»XM0DE3«XMODE4» 
TlONCxBiT)! SKaN; 

ON cARD» but not SETi RESET* OR POP. 

LEAN(0)| 

STEP 2 UNTIL OPARSIZE DO OPTi ONSC SAVEINX3 t .01 

5»n THFN JI108. 

/»ni.SEQXEQTOG««FALSE» «l08. 

STUSED < 5 AND UASTUSED t 3 THEN LASTU5ED|»iI 

Ion and not being set. reset, or popped. 

3i*rEaL{TRUE)| 

NX THEN OPTIONWOROI«OPTIONWORD & TRUEt Xr I T 1 1 1 1 



3»»REaL(FALSE & SETTING[l»2i46])l 

NX THFN OPTIONWORDI-OPTIONWORD & F ALSE [ XB I T I U ; 



% REMEMBER OPTION WE ARE SETTING. 
" THEN bOOLEXP ELSE TRUEI 
+ n»«REAL(B & SETTlNGtll46])| 
NX THfN OPTIONWORO«»OPTIONWORO 8i B tXBlT«l]| 



ll»REAL(B««SETTlNG.n;463); 

NX THEN OPTlONWORDlwOPTlONWORD & B [XBlTll]l 



02324000 T 00221000010 



02325000 
02326000 
02327000 
02328000 
02329000 
02330000 
02331000 
02331050 
02331060 
02332000 
02333000 
02334000 
02335000 

02336000. 

0213 70QO 

02338000 

02339000 

02340000 

02341000 

02342000 

021A1Q0O 

02352000 

02353000 

02334.0.Q0 

02355000 

02356000 

02357000 

02358000 

02359000 



T 
T 
T 
T 
T 
T 
T 
C 
C 
P 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



22 IS 65 4»0J4a# 



0Q22lQQ0Qi0 
00221000010 
00221000513 
00221001112 
0022I0013J3 
00221001410 

00221i)044l 1 

0022t00i9l3 
0022t0020f0 
00 221 01123 1 2 
0022<0026il 
00221002712 
0022lOfl2fla 

0022t0032tl 
00221003312 
00221003410 
00221003611 
00224 0040.11 
00221004112 
00221004210 
QQ221iiaiL2!l 
00221004513 
00221004811 
Q0221QQ52I.I 
0022(005410 
0022t0054f0 
00221005T12. 
00221006112 
00221006210 
N£XJ SCG- 21 



LABEL FXIT.AGA1n.SKANAGAIn»LENGTHi.LEnGTH2»LEnGTH3,LEnGTH4. 



02360000 T 00211000010 




IE NGTH5aENGTH6aENGTH7» LENGTHS* UENGTH9» 
WHATISIT» 

CARDOPTION»MERGEOPTION| 
SWITCH OPT I ONLENGTH: "LENGTH 1. WHAT 1 SI T»LENGTH3.LENGTH4. LENGTHS. 

LENGTH6.LENGTH7* LENGTHS »LENGTH9iWH ATI sit; «106' 
INTEGER SRESULT»SCOUNTj 
STACK(r+2) « SRESULT 
STACKCF+3) s SCOUNT 

INTEGER SAVEINXj XlOS- 

STACK(F+«) n SAVEINX 

DOLLARTOr,J»TRUF; 

MOVrdOiACCUMtOJtDEFlNpARRAYtO]); % SAVE INFORMATION FOR 

ScOilNTt.cOUNTl SRESUtT I «RfSuLT J % "TABLe" TO RESUME SCAN. 

XMOnE«»0» 

PUTSFQNO(iNfOILaSTSeOROW.LASTSeQUFNCE3.LCR3I 

tuRnonstoplight(''x''.lcR); 

SKaNASAiNi 
SKANJ 

againi 

GO OPTlONLENGTHfMjNcCOUNT, 10)31 

lengThi t 

IF Q « "liKOooow Then go exit; 

IF Q ■ ••isoooo" Then 

BFGiN switchiT{printoollarbit); go again endj 

IF • "I'Oooo** Then go skanagain; 

go whatisiTi 
length2i x no options of this length are currently implemented, 

LENGTH3J 

IF Q » "aSETOO** THEN 

BEGIN XM0DE«=3; GO SKANAGAjN END! 
IF « "SPOPOO" THEN 

BEGIN XM0dE»»«; GO SKANAGAiN END; 

IF Q ■ "aNEwoo** Then 

BEGIN 
SWITCHIT(NEWBIT); 

IF Q » "ataPeO'' Then go skaNagain; 

GO AGAIN; 

fNd; 
IF Q s '♦3SE000'' Then 

begin SWITCHIT(SEQBIT); GO AGAIN END; 
IF Q * ♦♦3PRtOO« THEN 

BEGIN SWITCHIT(PRTBIT); GO AGAIN ENOi 

IF «5 «3MCpoow Then 

BEGIN SWlTCHlTfMCpBIT); Go AGAIN EnD; 
Go WHATlSlTi 

lEngthaj 

IF « "flLlSTo" THEN 
BEGIN. 
SWITCHIT(LISTBIT)i 

GO again; 
end; 
if » "avoido" then 

BEGIN 

IF XMOdE»0 THEN 

BEGIN 

GETV0ID(V0IDPLACE»NCR»V0IDCR»LCR» 

INF0[LASTSE«R0W.LASTSE0UENCE3); 

XMODEI»i; SWiTCHlTCVOlDBiT); 



02361000 ■ 


r 0021 


iOOOOlO 


02362000 


r 0021 


> 0000 10 


02363000 


r 0021 


100^010 


02364000 


r 0021 


tooooto 


02365000 ( 


' 0021 


1000211 


02365100^ 


r 0021 


lOOOBlO 


02365200 1 


: 0021 


J 000810 


02366000 ' 


r 0021 


loooeto 


02366100 ' 


r 0021 


i00O9t3 


02366200 ' 


r 0021 


1001113 


02367000 ' 


r 0021 


1001312 


02368000 1 


r 0021 


1 0044 10 


02369000 1 


r 0021 


1001610 


02370000 1 


r 0021 


1001712 


02371000 1 


r 0021 


1001712 


02372000 1 


r 0021 


1002011 


02373000 1 


r 0021 


1002112 


02374000 1 


r 0021 


J0025I2 


02375000 1 


r 0021 


IOO26IO 


02376000 1 


r 0021 


1002712 


02377000 1 


r 0021 


1002810 


02378000 1 


r 0021 


I0032t() 


02379000 1 


r 0021 


t0033t2 


02380000 1 


r 0021 


1003512 


02381000 1 


r 0021 


I0035«2 


02382000 1 


r 0021 


1003512 


02383000 1 


r 0021 


100351a 


02384000 1 


r 0021 


1003912 


02385000 1 


r 0021 


1003913 


Q23A6000 1 


r 0021 


1004312 


02387000 1 


r 0021 


1004313 


02388000 1 


r 0021 


1004410 


02389000 1 


r 0021 


10045.12 


02390000 1 


r 0021 


1004610 


/02391000 1 


r 0021 


1004912 


02392000 1 


r 0021 


1004912 


02393000 1 


r 0021 


1004913 


02394000 1 


r 0021 


1005312 


02395000 1 


r 0021 


1005313 


02396000 1 


r 0021 


1005712 


02397000 1 


r 0021 


1005713 


fi 2 39 WO 1 


r 0^2-4 


100-6412 


02399000 1 


r 0021 


10061 13 


02400000 1 


r 0021 


1006210 


024O1OA0 1 


r 0021 


1.0062X1 


02402000 1 


r 0021 


1006312 


02404000 1 


r 0021 


1006410 


024050QQ 1 


r 0021 


1006610 


02406000 1 


r 0021 


1006610 


02407000 1 


r 0021 


1006611 


Q2aD.afiA0 3 


C 0021 


lJ>flt7J-2 - 


02409000 1 


' 0021 


1006810 


02410000 1 


' 0021 


1006811 


02411000 1 


r 0021 


l.007aiO - 


02412000 1 


0021 


1007113 



GO exit; 

SWITCHITCVOIOBIT)! 

V0TDPLACE«e"9999''s"9999''tH23]J!82 B COMPATIBLE W/B-5700 VOjOS 

VOincRlsMKABSCvOloPLACr)' % AND FAKE OUT READACARD. 
GO AGAtNJ 

FNDI 
IF Q « "i^XREFO** THEN BEGIN SW I TCHI TC XREFB I T ) ? IF BOOUEANC XMODE ) THEN 

OFFINING I* B00LEAN(REAL(DEFlNlNG)4ltl«47» 13)» 

GO AGAIN END! 
IF » "flBENDO" THEN BEGIN SW I TCH I T( BENDBI T ) } GO AGAIN ENDI 

IF « "doMiTo" Then 

BFGIN SWITCHIT(OMITBIT); Go AGAIN ENDl 
IF « "ACARDO" THEN 
BEGIN 

QI^^ATaPEO"! % FAKE OUT SWiTCHiT, 
SWITCHIT(MERGEBIT)» 

IF XM00E»'2 THEN MeRGeTOG I «N0T MERGETOG* 
OPTlONst2xMERGEBlT-n«« % CARD IS 

REALfSETTiNG & CMERGfTOG) [ 47 » U ) > % INVERSE OF MERGF. 

IF meRgetog Then go mergeoption; 

CARdOPTtONi 

IF LASTUSfD<5 then LaSTUSE0»»1' 
rO AGAfNj 

endi 
IP - ♦•4TAPF0'' Then 

BEGIN 

SWITCHIT{MERGEBIT)I 

IF NOT MERGETOG ThEN 60 CARDQPTlONJ 

mErgeoption' 

IF LASTUSED # i THEn Gq Tq AGAIn; XtlO- 

UASTUSfDi»?| * NEXT CArD Is READ FROM READER, 

IF maXtLcr'O then 

BEGIN 

INTEGER STREAM PROCEDURE FEJCF'T); VaIUE T) 
PRT(527) » *SEGMENT DESCRIPTOR* 



02A13000 
O2aiAOO0 
02415000 
02416000 
02417000 
02416000 
02419000 
02419100 
024l9li0 
02419120 
02419200 
02420000 
02421000 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02432000 
02433000 
02434000 
02435000 
0243600.0 
02437000 
02437500 
02439000 
02439000 
02440000 
02441000 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
0Q2 
002 
002 
002 
002 
002 
002 



11007312 
11007512 
1«0075»2 
U0075I3 
11007713 
11007912 

iiooei>2 

II 00 SI 1 2 
1»0083«2 
11008513 
11.008712 
l«009l«2 
1I009U3 
II 0095 1 2 
11009513 
11009610 

11009713 

11010113 
11010312 

Il0l05f2 

11010611 

11010712 
11010912 
11011210 
11011210 
H0112I1 
11011312 
1I0114IQ 
1I0U5I2 
11011610 
11011712 
1(011810 
llOllStl 
11011912 



PRT(530) • FEvl 



START OF SEGMENT ♦*♦*♦♦*»♦« 



23 



BEGIN 

SIt»F» DltsLoC T> DS««WDSI 

SII«TJ SII«SI-16; DII»UOC FEJi OSJbWOSI 

END FEJl 



02442000 
02443000 
02444000 
02445000 



T 00231000010 

T 00231000010 

T OOgil-OOOOM 

T 00231 OOOn 3 



PRTC531) » FIX 



STREAM PROCEDURE FIX(F*T); VALUE T; 



BEGIN 

Sll»FI Slt*'Sl''24i 
Dll'Tf Dn»0I+47> 
2(Dn«DI*48)j DS« 
END FIXI 



DII«L0C Tl DSJ'WDSI 
SKIP 4 DB) DSl"2 RESET} 
i8 LlT^OOfOl+O*"; 



02446000 T 0023i00&2il 



02447000 
02448000 
02449000 
02450000 
02451000 



T 00231000211 

T 00231000312 

T 00231000410 

T 00231000512 

T 0023.1 OOa.7.12. 



IF GTi t»FEJ(TAPE»0)»lO ThEN 



02452000 T 00231000712 



BEGIN 

rEW1nD(TAPE)I fIXCTAPE.O)! 

ENDI 
MaXTlCR«»GT1+TLCRi»9*MKABS(TBUFF[03)| 
RFAD(TAPE»10»TBUFFt*l)| % INITIALIZE TAPE iNPUTt 
UaSTUSEDJ'2; 
ENDI 
PRTC532) » *SEGMFNT DESCRIPTOR* 

GO again; 
end; 

IF Q ■ "APAGEO" THEN 
BEGIN 
IF LISTER THEN Wr ITE(L I NE [PAGE J ) » 

GO skanagain; 

end; 
if q ■ "ainfoo** then 

begin dumpinfoi go skanagain end; 
IF « •'asegso" then 

BEGIN SWlTCHlT(SEGSBtT); GO AGAIN END! 

IF Q » ••4NEST0'* Then 

BEGIN SWlTCHlT(NESTBiT); GO AGAIN END! 

IF B "iiDECKOf Then 

BEGIN switchiT(DeckBiT); go again end; 

Go WHATISIT; 
LEnGTH^j 

IF »■ "sreset" then 

BEGIN XMODEl-2; GO SKANAGAIN END; 
IF « "SUlSTP" THEN 

BEGIN SWITCHITCLIsTPrIT); go AGAIN) END} 
IF * "SVOIDT" THEN 
BEGIN 

IF XMOOE-O THEN 
BEGIN 
6ETVoiOCV0lDPLACE.NCR»VOlDCRaCR» 

I NFO[LASTsEQR0W» LAST SEQUENCE]) I 
XM0DEi»1; SWITCHITCVOIDTBIT); 
GO EXIT; 

end; 

SWITCHITCVOIDTBIT); 

V0lDPLACE:«'*9999''fi''9999''[ll23l;X2 B COMPATIBLE W/B-5700 VOIDS 

VOiDCRibMKABS(VOIdPLaCe)» % AND FAKE OUT READACARD, 

GO AGAIN; 

end; 
IF ■ •♦5CHECK'' Then 

BEGIN SWITCHIT(CHECKBIT)» GO AGAIN END; 
IF e •♦SLlMlT" THEN 
BEGIN 

skan; 

IF RESULTi»3 THEN % SHOULD BE NUMBEr, 
BEGIN FLaG(600); GO aGaIN END; 
FRRMAX|«C0NV(ACCUMtl]»0»ACCUMtn,[12|63); 
GO SKANAGAIN; 
END; 
IF Q « ••5PUNCH'' THEN 

BEGIN switchiT(punchbit); go again; end; 

IF Q - "5PURGE" THEN 

BEGIN SWITCHIT{PURGEBIT)» GO AGAIN; END; 



23 IS 



02453000 1 


r 0023 


lOOlOil 


02454000 1 


r 0023 


(001112 


02455000 1 


r 0023) 


1001410 


02456000 1 


r 0023 


1001410 


02457000 1 


r 0023 


1001713 


02458000 1 


r 0023J 


1002210 


02459000 1 


r 0023 


1002211 


24 LONG< 


, I4CXT SE6 21 


02460000 1 


r 0021 


I0121»2 


02461000 1 


r 0021 


I012H3 


02462000 1 


r 0021 


1012113 


02463000 1 


r 0021 


1012210 


02464000 1 


r 0021 


1012211 


02465000 1 


r 002i 


t-at27U 


02466000 1 


r 0021 


1012912 


02467000 1 


r 0021 


1012912 


02466000 1 


r 0021) 


1012913 


02469000 1 


r 0021 


1013312 


02470000 1 


r 0021 


I0133»3 


02471000 1 


r 0021 


1 013712 


02472000 1 


r 0021 


1013713 


02473000 1 


r 0021 


1014112 


02474000 1 


r 0021 


1014113 


02475000 1 


r 0021 


(0145«2 


02476000 1 


r 0021 


I0145U 


02477000 1 


r 002H 


1014610 


02478000 1 


r 00211 


1014611 


02479000 1 


r 0021 


lOlSOtO 


02480000 1 


r 00211 


tOlSOM 


02481000 1 


r 00211 


1015410 


02482000 1 


r 00211 


1015411 


024B3000 1 


r 0Q211 


1015512 


02484000 1 


r 00211 


1015610 


02485000 1 


r 00211 


015611 


02486000 1 


r 00211 


1015610 


02487000 1 


r 00211 


1015913 


02486000 1 


r 0021 


1016112 


02489000 1 


r O021 


lQl63f2 


02490000 1 


r 00211 


1016312 


02491000 1 


r 00211 


1016313 


024920Q0 1 


r Q021J 


1 0165 13 


02493000 1 


r 00211 


(016712 


02494000 1 


r 0021 


1016912 


02A9SOQ0 1 


r 0Q21. 


104.6512 


02496000 1 


r 0021 


(016913 


02497000 1 


r 0021 


1017312 


02496000 1 


r 0021 J 


1047311 - 


02499000 1 


r 00211 


1017410 


02500000 1 


r 00211 


1017610 


02504000 1 


r 0O21r|-04r?*il 


02502000 1 


r 00211 


|0182t0 


02503000 1 


r 00211 


1018512 


0250AOOO 1 


r 00241 


(0445-1-3- 


02505000 1 


r 00211 


(018513 


02506000 1 


r 00211 


(01I6U 


02507000- 1 


r 0021LQ4»010 


02508000 1 


r 00211019011 



60 

LENr,TH6j 
IF 

IF 

IF Q 



IF Q a '•5LISTA'* Then 

BEGIN 

SWITCHIT(LISTABIT); 
GO AGAIN; 

fmdj 
IF « "sstuff" Then 

BFGIN SWiTCHlTfSTUFFBIT)* 
WHATlSfT; 



r,0 AGAlNj zUOl 



GO AGAIN end; 
AGAIN EnO) 



IF Q 



s "eSFOFR" Then 

BEGIN SWITCHIT(SEOERRBiT); 

• •'6SINGL'' THEN 

BEGIN SWITCHITCSInGLBIT)) GO 

» '•fiSEoXE" THEN 

BEGIN 

IF BUlLnLlNEttAsin THEN 
BEGIN 

IF XMODE ■ THEN 
BEGIN 

OPTIONWORd«'»BOOLeAN(0)| 

FOR SAVfINXI«1 STEP 2 UNTIL OPaRSIZE DO 

OPTIONSCSAVEINX] t»OJ 
BUlUDLlNE.t47:ni=SEQXEQT0Gl»FALSEI 
IF LaSTUSeD < 5 THEN LASTUSEDl«lI 
XM0DE»*1I 
END; 
SE0XEQ10G»«XM0DE # 2 AND XMODE * A> 
BUlLDLlNE:.tz»7jl]|.SFQXEQT0GJ 
ENoi 
fiO SKANAGAiNI 

end; 

» ••6DEBUG'* Then 

BEGIN 
SWITCHIT(DEBUGBIT); 

IF DEBUGToG THEN 

If W0Pt03»0 THEN 
BEGIN 
FIUU WOPt*] WITH 



•'LITC"^' 



10# 

19, 

38, 

65. 

128f 

134, 

?78» 

515» 

550» 

806* 



-dfL 

"LNG 
**BFC 

-ML2 

••div 

"CHS 
"UrC 
"MdS 

"bfw 

"LfU 



"OPnc- 
•♦» n 

«, 21 
•», 39 
•». 67 



''»129 
''»167 
♦'»280 
"#532 
"#561 
♦♦»896 
tO?3»l 



"DESC"# 

"NOP "f 12,"XRT 
♦♦GfQ "# 22, -BBC 
"RTN •♦» «0,"COC 
"UNO "# 68,««STD 
"DV2 -#130.''C0M 
"RTS "'168, •'CnC 
"SSF •♦#?94,''LfC 
"ISO "'SSSt^LEQ 
"EOL "#5B2.-SSP 
"ROV •♦#965»"CTF 
023»l023»l023»i0?3 



16 
24 
48 
69 

131 
197 
3?2 
534 
584 



"ADD 
"INX 
"SUB 

•»neq 

"LQV 

"FTC 
"ZPl 

"bbw 

"ECM 



"# 17,''aD2 
•♦, 35, "LOR 
"* 49, "582 
"» 71»"XIT 
"»132#"SND 
"f260i"lOD 
''»3e4»"IDV 
"»548»"ISN 
••»709«"CTC 



"f 18,"PRU 
♦♦. 37,"GTR 
"f 64f"MuL 
"f 72#''MKs 
♦♦.133f"XCH 
♦•»261#"DUP 
"f453#"FTF 
••»549»"LSS 
"t790»"LBU 



l023f 1023 »1 023*1023 » 1023 » 1023, 



FILL C0Pt*3 WITH X CHARACTER MODE MNEMONICS 
"EXc "."NOP "»"BSD "."BSS ","RDA "»"TrW "."SED "»"TDA ", 



"TBN 



"."SOa "»"SSA "»"SFD "»"SRD "» 





02509000 T 




02510000 T 




02511000 T 




02513000 T 




02514000 T 




02515000 T 




02516000 T 




02517000 T 




02518000 T 




02519000 T 




025?OOO0 T 




02521000 T 




02522000 T 




02523000 T 




02524000 T 


X108- 


02525000 P 


1108- 


02525001 C 


X108* 


02525003 C 


X108- 


02525004 C 


X106- 


02525005 C 


1108- 


0252500* C 


X108- 


02525007 C 


1108- 


02525008 C 


X108- 


02525009 C 


X108- 


02525010 C 


X108- 


02525011 C 


X108- 


02525012 C 


>;108- 


02525013 C 


X108- 


02526000 P 




02527000 T 




02528000 T 




02529000 T 




02530000 T 




02531000 T 




02533000 T 




02534000 T 




02535000 T 




02536000 T 




02537000 T 


START 


Of segment *♦ 




02538000 T 




02539000 T 




02540000 T 




02541000 T 




02542000 T 




02543000 T 




02544000 T 




02545000 T 




02546000 T 




02547000 T 




02548000 T 


?3I 


02549000 T 


24 


IS 110 L0Na» 




02550000 T 




025Si000 T 


START 


OF -SEGMENT *• 




02552000 T 



002 
002 
002 
002 
002 
002 
002 
002 
00? 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 

002 
002 
002 
002 
002 
002 
0021 
002 
002 
002 
002 
002 
NfXT 
002 
002 

0021 



11019410 

110194(1 

11019512 

11019610 

1I.O198I0 

Il0l96t0 

11019811 

I « 02 0240 

11020211 

1»0203«2 

I 102014 3 

II0207«2 

11020713 

1 102114 2 

11021113 

Il02l2t0 

1102 13 I 2 

Il02l3t3 

11021410 

11021411 

11021513 

It02l8t0 

1102214 3 

11022313 

11022513 

1 1 0226 1 1 

l»0226ll 

11022811 

11023041 

11023011 

l«023lt2 

11023112 

1I0231»3 

11023210 

11023312 

11023313 

11023512 

1102354 3 

11023610 
♦*♦♦ 24 
11023713 
11023713 
H0237I3 
II 0.231.1 3 
11023713 
11023713 

10237 13 
11023713 
11023713 
14023713 
11023713 
11023713 

&£6 - 21 
l»023rt3 
11023810 

•A* 25 

1023912 



»• . •» 



'SES 



"CRF 



"»"RSA ♦•^•♦SCA 



•♦ , « T r I »• 
ft 



'JNC 



»"TNE 


ti 


• "TEG "(•••TGR 


" » 


»-TLS 


" 


•"TAN "»"B1T 


M ^ 


."JPC 


o, 


("JhS "»"v)FW 


" • 


♦ "JRC 


If 


."TSA "»"JRV 


"» 


t^BIR 


w , 


."OCV "f^ICV 


"» 


,"TRN 


n 


•"TRZ "i"TRS 


") 



"SRS '♦^"SFS "»" 

"INc "."STC "'"SEC 

"RCA "'"ENS "#"BNS ■' n:>i\ > 

"CEO "r"CNE "."CEG "^"CGR "i"BIb " 

"CEL "»"CUS ".•♦FSU "»"FAO ","TRp •• 



FtLL P0Pt*3 WITH 

"zfn ".'♦zpn "."zfd "»"zbd "'"iso •♦,0."dia "."dib "»"trb "»"cfl ". 

eNd» 

GO AGAIN; 

FNDJ 
IF Q « ''6F0RMA" THEN 

BEGIN SWiTCHlTcFORMATBiT); GO AGAIN* END; 
GO WHATiSiTj 

I.ENGTH7I 

IF « "7INCLU" THEN 

BEGIN iNCLUDECARDj Go E^lTj END} 
X IF Q >» "riNgLN" THEN 

X BEGIN SWlTCHlTCNEWlNrLfilT); QO aGaINj ENd; 
I-ENgTHBi 

IF *"8C00EF" THEN 

BEGIN SWITCHIT(COOEFILeBIT)J GO aGaIN; END; 
GO WHATlSlTj 
LENGTH9J 

IF Q = "9lNTRr THEN 

BEGIN SWITCHIT(INTBIT); GO AGAIN; END! 
WHATISIT* 

IF RESULT«3 THEN 
BEGIN 

BASENuM|8C0NV(ACCUMCn»0»ACCUMt 13,tl2l6]); 
TOTALNOfs-lO; 

nfwbaseibtrue; 

GO SKaNaGAINJ 

eNd; 
if results? then 

BEGIN 

IF Q » "i+oooo" Then 

BEGIN 

Skan; 

IF RESUlT.3 then 
ADDVaUUE,«CONVCACCUM[1]»0#ACCUM[13.C12|63) 

ELSE flag(600); % number expected, 
end; 
GO skanagaini 
end; 
comment did not recognize option; 

IF RESULT^l THEN % NOT AN iDENTlFIERi 

BEGIN FLAGC601); GO SKaNAGaIN ENd; 
SWItCHITCUSEROPINX); % USfROPINX means a USER-DEFINED OPTION. 

GO again; 

EXiTf 

listeR»»debugtog OR listog or listatos; 

MOVF(lOiOEFlNEARRAYtOJ,ACrUM[0]); X ReSTORf iNfORMaTION fOR 



"CFE 



25 IS 



start 



26 IS 



X107' 
X107- 



XJ06- 
X106- 
1106- 
X106- 



02553000 
02554000 
02555000 
02556000 
0255^000 
02556000 

64 LONG 
02559000 
02560000 
02561000 
OF SEGMENT 
02562000 

11 LONG 
02563000 
02564000 
02565000 
02566000 
02567000 
02560000 
02569000 
02570000 
02571000 
02572000 
02573000 
02574000 
02574100 
025742QD 
02574300 
02575000 
02576000 
02577000 
02578000 
02579D00 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 
02591000 
02592000 
02593000 

02594000 

02595000 
02596000 
02597000 
02598000 
02599000 

02400000 

02601000 
02602000 
026Q25.Q0 
02602600 



T 0021 


10239; 


T 0021 


1O2391 


T 0021 


10.239; 


T 0021 


102391 


T 0021 


102391 


T 0021 


102391 


» NEXT 


SEG 


T 0021 


;0239l 


T 0021 


102391 


T 0021 


10239; 


4I****** 


*** 


T 0021 


; 024 11 


f NEXT 


SEG 


T 0021 


102411 


T 0021 


1 0241) 


T 0021 


10243; 


T 0021 


10243; 


T 0021 


102431 


T 0021 


I02«7I 


T 0021 


»0247; 


P 0021 


10248; 


P 0021 


;0248; 


T 0021 


;0252; 


T 0021 


102521 


P 0021 


;0252; 


C 0021 


;02S2; 


C 0021 


102521 


C 0021 


;0256; 


T 0021 


;0256; 


T 0021 


lQ25Tt 


T 0021 


;0257; 


T 0021 


;026i; 


T Q021 


\026U 


T 0021 


;026i; 


T 0021 


;0262; 


T 0021 


; 02 6 Si 


T 0021 


10266; 


T 0021 


;0267; 


T 0021 


;0267; 


T 0021 


;0267; 


T 0021 


;0268( 


T 0X)2i 


103491 


T 0021 


10269; 


T 0021 


;o27o; 


T 0021 


102741 


T 0021 


;0274; 


T 0021 


;0277l 


T 0021 


tD2*«4 


T 0021 


;o2«o; 


T 0021 


;026i; 


T 0021 


102811 


T 0021 


;02ei; 


T 0021 


;0282l 


T 002i 


10283; 


T 0021 


;0284; 


T 0021 


;0285; 


T QD21 


;-02B5; 


T 0021 


;0288; 



2 

2 

2 

2 

2 

2 

21 

2 

2 

3 

26 

2 

21 

2 

2 

2 

2 

3 

2 

3 



I 









1 



1 

2 

3 

2 

2 

3 



3 

I 

2 

J. 

3 

1 
2 

3 



1 

2 
1 
1 
2 

2 
2 


3 
1 
2 

2 





C0UNTl«=5C0UNTJ RFSULTr 

oollaRtogj^faLsf; 
pNo dollaRcaRdi 



^sRfsuut; % '•tabI'E" to Resume scan, 



02602700 T 

02603000 T 

02604000 T 

21 IS 295 LONG. 



00211029010 

00211029113 

00211029211 

NEXT SE6 3 



PRTC533) » TABLE 



COMMENT TABLE iS ThF RoUTfNE ThAT MOST CODE IN THE COMPILER 

USES WHEN IT IS DESIRED TO SCAN ANOTHER LOGICAL QUANTITY. 
THE RESULT RETURNED IS ThE ClASS OF THE ITEM DESIRED, 
TABLE MAINTAINS THE VArIaBLES I AND N^TELBT AnD THE ARRAY 
ELBAT. ELBaT and I ARE PRINCIPAL VARIABLES USED FOR 
COMUNICATION BETWEEN TaBLE AND THE OUTSIDE WORLD, NXTELBT 
IS ALMOST EXCLUSIVELY USED BY TABLE* ALTHOUGH AN OCCASION- 
AL OTHER USE IS MADE IN ORDER TO FORGET THAT SOMETHING WaS 
SCANNED. (SEE» FOR EXaMpLE* COMPOUNdT A IL ) , FOR FURTHER 
GENERAL DISCUSSION SEE ThE DECLARATION OF THESE VARIABLES. 

THE PARAMETER P IS THE ACTUAL INDEX OF THE QUANTITY 
nESlRFD (USUALLY I-l.I. OR 1*1). 
TME GFNERAL PLAN OF TABLE IS THlSt 
I) IF P < NXTELBAT GO ON TO IID, 
TI) PROCfSS one QUANTITY, 
A ) SCAN, 

B) TESt'fOR IDrNTtFtEf^* NUMBERt OR SPECIAL CHARACTER. 
1) IDfNTiFtER - LOOKUP IN DIRECTORY AND PROCESS 

tN special MANNER IF COMMfNT OR DEFINED ID, 
?) NUMBER - PROCfSS INTEGER PART, FRACTjONAL PART. 

AND EXPONENT PART. 
3) TEST IF SPECIAL CHARACTER REQUIRES SPECIAL 

PROCESSING • OTHERWISE GET ElBAT WoRO FROM 

Special. 

CJ LOAD ELBaT AND INCREMENT NXTELBT. 

D) IF ELBAT IS FULL ADJUST ELbaT* NXTELBT* 1» AND P. 

E) GO BACK TO I), 

III) RETURN WITH cLASS OF eLBATCPI, 
FURTHER DETAILS ARE GIVEN IN BODY OF TABLE. 
I 
INTEGER PROCEDURE TABLECP)> VaLuE Pt INTEGER P| 



BEGIN 
LABEL 



PERCENT » SPEC I ALCHAR. COMPLETE* COLON. DOT. ATS I GN» QUOTE* 



STRN6XTfM0VEIT»AR6H.FlNISHNUMBER* 

SCANAGAlN*FPART»EPART,IPART.IDENTfROSE»COMPOST*DOL 
CROSSHATCH* DBLDOLLaRi 
SWITCH SPEC I ALsw I TCH« "PERCENT* DOLLAR fOOj I ATS I GN* COLON, QU 

RtPaREN. CROSSHATCH* DBL00LLaR» 
SWITCH RESULTSWlTCHt«lDFNT*sPECIALCHAR»lPARTI 
WHILE P > NxTELbT 
DO BEGIN 
SCANAGAfNl 

COUNT«*RESULT««ACCUM[n«"Oj SCANNER? 

GO resultswitchcResulTj* 
aRgh« 

OUACCUMtm FLAG(l,4i)l GO SCANAQAlNl 

specialcharj 



LAR.RTPaRENi 
OTE. 



02605000 
02606000 
026074)00 
02606000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 
02625000 
02676000 
02627000 
02626000 
02629000 
02630000 
026.3100.0 
02632000 
02633000 
02634000 
02635000 

026364)00 T 0003 

02637000 T 0003 
START OF SEGMENT ♦*♦♦*♦♦ 

02638000 T 0Q27 

02639000 T 0027 

02640000 T 0027 

0264iaQ.O T 0Q2I 

02642000 T 0027 

02643000 T 0027 

026440Q0 T 0027. 

02645000 T 0027 

02646000 T 0027 

Q26A7_0aQ I 0Q27 

02648000 T 0027 

02649000 T 0027 

02i5QQ00 T 0027 

02651000 T 0027 



00031034210 
00031034210 
OOOJ40442»O 
00031034210 
00031034210 
00031034210 
000310342)0 

00031034210 
(U)«3~t«342t0 
00031034210 
00031034210 
0003l0342t0 
00031034210 
000310342(0 
0003 1 0342 J Q 
00031034210 
00031034210 
00031034210 
00031034210 
00031034210 

00031034210 
0003>0342l0 
000310342*0 
00031 034210 
00031034210 
00031034210 
000310342(0 
0003l0342t0 
00031034210 
00031034210 
0003t0342t0 



LO 34210 

1034210 
*** 27 
iDfljOiiiQ 
lOOOOlO 
lOOOOlO 

lOfljaoiQ 

1000211 
1000713 

10114.214 

1001312 
t00l4f0 
1QQ.UJ2 
1001713 
I00i9»3 
lOQ2fl!Q 
1002210 



COMMENT 
COMMENT 

COMMENT 
COLONI 

DOTI 



ATSigNI 

% 

% 

% 

% ElSF 

comme:nt 
quotei 

X 
X 



GTii«ACCUMtnitl8l6] - 2? 

EnDToG|»GT1 • 57 AND RnDTOGI 

OBTAIN ACTUAL CHaraCtEIr FROM ACCUM> 

Ti^SPEClALCGTUGTlt^pUllB]]! 

NOTICE COMPRESSION TECHNIQUE USED TO SHORTEN TABLE OF 

ELBAT WORDS FDR SPECIAL CHARACTERS; 

IF GT1|»T,INCR • THEN GO COMPLETE! 

GO SPEClALSWITCHtGTUl 

INCR FIELD OF SPECIAL CHARACTER IS NON-ZERO FOR SPECIAL 

CHARACTERS REOUIRING SpECUL HANDLING, INCR IS SWITCHED 

ON TO OBTAIN DISCRIMINATION! 

RrSULT|»7l scanner; COMMENT ELIMINATE BLANKS • CHECKING 

FOR i« IN PLACE OF * I 
IF EXAMIN (NCR) • "•" THEN 

BEGIN RESULTjPO; SCANNER! Tl»5PECl Alt J 33 END! 
RrSULTi»2; GO COMPLETE; 

IF EXAMIN(NCR)>9 OR fNdTOg ThEN gO COMPLETE! 

NhII>NLOI«0! 

ClaO! fSAVE'sO! 60 FPART! 

RESUlTIsO! SCANNER! 

IF C01JnT>i7 then GO ARqH! 

IF octize(accum[i3»coUnT-im7-count#c) then go ARGH 

Go NUMBEREnO! 

NHn«Cf«ii NL0»"FSAVE|»O! 60 EpART! 

Dot and atsign Enter number conversion at correct spot; 

count t» 0! T l» IF STrEAMTOG THEN 63 ELSE 8! 



XUl- 



00 begin 

RESULTI»5! SCANNER! 

IF coUNT»T Then 

IF EXAMIN(NCR) * '••"' THEN GO ARGH! 
END UNTIL EXAMIN(NCR) * •"*••! 
IF NOT STREAMTOG AND C0UNTi»8 AND BOOLEAN ( ACCUM 1 1 3 , 1 18l i ] ) THEN 
BEGIN Q i» ACCUMtn; FLA6(254); qO TO SCANaGAIN; END; XUl' 
Oj*ACCUM[n! PeSULT»»5| SCANNER! COUNT I "COUNT-l ! 
IF COUNT<0 THEN COuNj I »C0UNT + 6'>! 
ACCUMrni.fi! RESULTt«4; 



ACCUMrni.fi! RESULTt«4; 
STRNgXT: TI»C»«"0! 

T.CLASSUSTRNgcON! 

IF COUNT < 8 OR (COUnT « 8 AND NOT BOOLEAN { 

ccuMcnaiatn)) Then x flag bit not seTi full word con 



CA( 



MOVElTl 
ELSE 



X 1 1 1 ' 
ST, 



M0VECHARACTERS(C0UNT|ACCUMt n»3#C»8-CoUNT) 

T,CLASSI"STRING! 

T.lNCRfCoUNT! Go COMPLETE; 



COMMENT CROSSHATCH HANDLES TWO SITUATIONS! 

THE CROSSHATCH AT END OF DEFINE DECLARATIONS AND 
THE CROSSHATCH AT END OF ALPHA REPRESENTING DEFINED IDS. 
THE TWO CASES ARE PROCESSED DIFFERENTLY, THE FIRST CASE 
MERELY PLACES THE CROSSHATcH IN ELBAT. THE SECOND CASf 
CAUSES AN EXIT FROM SCANNING THE ALPHA FOR THE DEFINED ID, 
pOR A FULL DiScUSSlON SEE OEFINEGEN! 

cRosshatchj 



02652000 

02653000 

02654000 

02655000 

02656000 

02657000 

02658000 

02659000 

02660000 

02661000 

02662000 

02A630aO 

02664000 

02665000 

02666000 

02667000 

02666000 

02680000 

02661000 

02682000 

02683000 

02684000 

02685000 

02686000 

02687000 

02686000 

026«9000 

02690000 

02691000 

02692000 

02692500 

02693000 

02694000 

02695000 

02696000 

02697000 

02697500 

02697600 

02699000 

02699000 

02700000 

0270.10-00 

02702000 

02703000 

Q27Q3050 

02704000 

02705000 

0274M0O 

02705200 

02706000 
0270 7 000 

02708000 
02709000 
02 740 000 
02711000 
02712000 
0274 3-000 
02714000 



00271002312 
0027I0025«2 
00271002611 
00271002611 
00271002811 
00271002*11 
00271002811 
00271003112 
00271003312 
00271003312 
00271003312 
0027 10033 J 2 
00271003410 
00271003410 
OD-271D0361Q 
0027100381 1 

00271004010 
00271004010 
00271004312 
00271004410 
0027l0046!O 
00271004712 

0027»0047»2 

00271004712 

00271004712 

0027»0047»2 

0027I0OSOI0 

00271005010 

00271005010 

0O27IO053I2 

00271005312 

00271005312 

0a27l0O5JJ2 

00271005410 

00271005512 

0Q27.I-QO57J3 

00271006010 

00271006211 

O02710Q65I3 

00271006912 

00271007113 

0027 1 007 313- 

00271007512 

00271007712 

0027100761 1 

00271008010 

00271006112 

0027! 06 2 U 

0027IOOeSl3 

00271006810 

a027l00*«-l0^ 

0027t00e6t0 

00271006810 

0027 1-004*-! 

00271006610 

00271006610 

jmaziooeB-iQ, 

00271006610 



— — — — ^ ^ 



s^o' 







OOLLARJ 
PFRCCNTj 



COMMENT 



COMMENT 
RTPaREN, 



IF DE^lNECTRifO JHfN rO COMPLETE) 

PIITSf9N0(gT1»LcR)| 

TURN0NST0PUIGHT(0,LCR)| 

IF defiNetndex » Then go aRgh; 

LcRl«fGTllsOEFlNEARRAYrDErTNEfNOEX*l]) OIV 262H4; 
NcRt«GTl MOO 26ZH4; 

LASTUSEDl«(Tl.0EriNEARRAYi0EFrNElNDEXJ«DEFlNElN0EX-3]):[33tl5]J 
IF fGT2 U T.tiBltSn |t ThEN % ThiS WAS A PARAMETRIC DEFINE 
BEGIN % PURGING PARAMETERS FROM DEFSTACkHEAD IK122- 

GTp t» TAKE(GT?).LINK» % GET POINTER To NEW DEFSTACKHEAD 
DO Xl22^ 

PUT( TEXT tCNEXTTEXTt«(GTl I "TAKE ( DEFSTACKHEAD )),0YNAM-1) 



•U I NKr»NEXTTEXT.U I NKCl» DEFSTACKHEAD) 
% THIS RESTORES THE PREVIOUS ELBAT WORD FOR 

% THIS Parameter in case of nested define. 

UNTIL 

GT2 « (DEFSTACKHEAD !« GT1,LINK); 
ENDI 
GO SCANAGAlNl 

COMMENT THIS CODE HANDLES CONTROL CARDS; 

IF GTl J»EXAMIN(NCR)»«S- THEN GO DBLOOLLaR ELSE DOLLARCaRDI 
IF NCR J» FCR THEN REaDaCARDI 
IF LIBINdeXj'O THEN 

IF recount'FInishpt Then 

BEGIN 

searchlibcfalseji readacaRD; noreleasei«false 

FND» 

GO scanagainj 

most Percent signs acTing as end of card sentinels get to 

PERCENT. PERCENT READS ThE NEXT CARD AND STARTS OVER, A 

Side effect is that all characters on a card are ignored 
after a Free percent sign cone not Imbedded in a string or 

COMMENT)! 

MIGHT BE FUNNY COMMA " HANDLE HERE} 
RESULT|«7) SCANNER! 
IF EXAMIN(NCR) * ""^ THEN 
BEGIN 

Resulti*oi scanner; 

do BFGIN 

RESULTJ«5j SCANNER 

eNo until fXaMINcNcR) 
Rfsult»»oj Scanner; 



X122- 
1122- 
X122- 
X122- 
Sil22- 
X122- 



HHH 



J 



THEN GO ARGH; 
QI«ACCUMtl JJ 



RpSULTt*?! Scanner; 

IF EXaMiN(NcR) ^ "( 

Rfsult««o> Scanner; 

T«<»SPECIALt243 

end; 

RrSULTl»2| SO COMPLETE! 

iPaRti tcOunti«fsaVe«»o; ci^conveRt; 

RESULTi-r; SCANNER; % qEBLaNK, 
IF DEFINECTR*0 THEN 
TF (C»3 OR C»«> AND EX AM I N(NcR J*""" THEN XOcTAL OR 
IF NOT fACCUM[0].CLASS»FlLElD AND I NFOCLAST I NFO, 
LINKR. LASTInFo.LINKC] m accumcodthen 
BEGIN INTEGER SUt 
PRTC534) ■ *SEGmENT DESCRIPTOR* 



HEX STRING, 
X 1641 
X l<i41 



02715000 
02716000 
02717000 
02718000 
02719000 
02720000 
02721000 
02 7 21 SO 

02722000 

02722500 

02723000 

02723500 

02724000 

02724500 

02725000 

02725500 

02726000 

02727000 

02728000 

02729000 

02730000 

02731000 

02732000 

02733000 

02734000 

02735000 

02736000 

02737000 

02738000 

02739000 

O274OOOO 

02741000 

02742000 

02743000 

02744000 

02745000 

02746000 

02747000 

02748000 

02749000 

027513000 

02751000 

02752000 

02753000 

02754000 

02755000 

027S6QD0 

02757000 

02758000 

027S900Q 

02760000 

02761000 

02761500 

02761501 

02762000 



T 00271008810 
T 00271006912 

T 00271009010 

T 00271009112 

T 00271 0092 U 

T 00271009512 

P 00271009610 

C 00271009811 

P 00271010112 
C 0027»0l0l«3 
p 00274 010312 
C 0027|01o4t0 
P 0027J0106I0 
C 00271010912 
P 00271010912 
00271010912 
00271010913 
00271011113 
00271011113 
00271011410 
00271011410 
00271011712 
00271011913 
00271012011 
00271012113 
00271012210 
00271012313 
0027«0124I0 
0027 1 01 2ft »1 
0027t0l24ll 
0027;0i24; 1 
00271012411 
00271012411 
00271012411 
0027 to 124 11 
0027I0126I0 
00271012810 
00271012811 
00271012913 
00271013010 
01)271043-011 
00271013313 
00271013411 
Q027l0iaii0 
00271013810 
00271014011 
00271014011 
00271014113 
00271014211 
QQ27101A512 
00271014611 
00271014712 
00271^1^13 
0027»0t53»3 
00271015712 



START OF SEGMENT *♦♦♦**♦♦** 



28 



STACK(r+3) « SIZ 



PRT(5355 ■ SCANaGAIN 



RCSULTt«5J SCANNER) % SKIP QUOTE. 

COUNTl«OJ 

no BEGIN 

RESULT!* 

IF COUNT 
BEG 



'S; SCANNERJ 

> SlZ«"48 DIV C 
IN FRR(520); GO 



THEN % > I WORD UONq, 
SCANAGAIN ENQI 



PRT(536) • COMPLETE 



END UNTIL eX 

Q»»ACCUM[1]| RESU 

IF C«3 THEN % OcT 

IF OCTIZECaCCUH 

FLAG(521) % N 

ELSE ELSE IF HE^IZECaC 

FUAG(521)| % 

T.lNcR l» COUNT I 

T, CLASS!* STRNgcO 

movecharacTersci* 

IF B00LEAN(ACCUMtn. 

IF streamTog Then 
t, Class ,» st 

ELSE 

FLAG(25«) 
ELSE 

C |« ACCUMtft], 

movecharactersccO 
go to complete? 



aMINCNcR)"""**] 

LTI»5l SCANNER! COUNT I ^COUNT -1 ! 

aL STRING, 

tl]#ACCUMC43»16"C0UNT» COUNT) THEN 

ON-OcTaL CHARACTER IN STRING, 

CUM(n,ACCUMt4 3,12-cOUNT»COUNT) TH 

NON-HEX CHARACTER IN HEX STRING. 
m (C>«C0UNT-1)DIV 6 + 11 « # OF CHA 
N! 

ACCUM[4]»0,ACCUMf l],3)l 
ri8«l]) THEN X FLAG BiT SET, 

RING 



% GET FULL WORD EQUIVALENT OF STRl 
UNT»ACCUMC4]»8-C0UNTiACCUM[U,3)t 



M0VECHARACTERS(8»aCCUM[43»0,ACCUM[1]»3)! 
GO COMPLETE! 

END OCTAL OR HEX STRING! 
PRTC537) » ♦SEGMENT DESCRIPTOR* 



IF 
IF 



dptog then 

REGIN NhH«ThI! 



• " . ♦» 



NLOlaTLO; END! 



THEN 



fpartj 



EXAMINCNCR)« 
BEGIN 

RESULTt«0! SCANNERI 
Cl«J,Ox C! 
TcOUNTt»COUNT! 
IF EXAM1N(NCR)<9 THEN 
BEGIN 

RESUl.T|»o> scanneri 
IF DpToG ThEn 
BEGIN 
D0UBLECC0NVERT»TL0»TENt{C0UNT-TC0UNT)M0D 12]» 

0»/» 1«»THI»TL0)! 
FOR T|"12 STEP 12 UNTIL COUNT - TCOUNT 00 
D0UBLE<THI»TL0»TENtl2]»0»/i!-#THlfTL0)! 
DOUBLeCTHI»TLO»NHI#NLO»+.i»»NHIiNLO)) 
Cl«NH| 
END 
ELSE C1«C0nVfRT+CxTENCFSAVE!»C0UNT-TC0UNT]| 
END 
ENDi 

rfsulti«7! Scanner; 
IF examincncR)'"?'* Then 

REGIN 





02763000 T 


00281000010 






02764000 T 


00281000112 






02765000 T 


002810002(0 






02766000 T 


00281000210 






02767000 T 


0028-lD003t2 - 






02768000 T 


00281000512 






02769000 T 


00281000811 






02770000 T 


00281001011 






02771000 T 


0028i00l4t0 






02772000 T 


00281001512 


, . — 




02773000 T 


0028l00l6«l 




EN 


02774000 T 


00281001913 






02775000 T 


00281004JAI1 


_ ..... , 


RS. 


02776100 C 


0028i0026l0 




Xlll- 


02776200 C 


0028I0030!0 




Xltl- 


02776300 C 


00281003210 




XUl* 


02776400 C 


00281003410 




XlU- 


02776500 C 


0028«0035»2 




xui- 


02776600 C 


00261003610 




Xlll- 


02776700 C 


0028(003712 




xiu- 


02776800 C 


0028(003810 




xiu- 


02776900 C 


00281003912 




NG. 


02777000 P 


00281003913 




«lll- 


02777050 C 


0028(0041(2 




1111- 


02777100 C 


00281004313 






02781000 T 


0028(0046(0 






02782000 T 


002810048(0 






02783000 T 


0028(005011 






28 IS 51 LONG* 


NEXT SEG 27 






02784000 T 


0027(0158(0 






02785000 T 


002710158(0 






02786000 T 


0027(0160(0 






02787000 T 


0027(0162(0 






02788000 T 


0027(0162(1 






02789000 T 


0027(016313 






02790000 T 


0027(0165(2 






02791000 T 


0027(0165(3 






02792000 T 


OO27»0i67l3 






02793000 T 


0027(0168(0 






02794000 T 


002710169(2 






02795000 T 


0027.JQ1&913 


.... 


12]» 


02796000 T 


0027(017010 






02797000 T 


0027(0172(1 






D279B000 T 


0Q27ID171J5 






02799000 T 


0027(0178(1 






02800000 T 


002710183(2 






02801000 T 


005710U512 


. 




02802000 T 


0027(0185(2 






02803000 T 


0027(0186(0 






028a4.a00 T 


0027104894 3 






02805000 T 


0027(0189(3 






02906000 T 


0027*0189(3 






02807000 T 


0O27.1flt9ia- 


., 




02A08000 T 


0027(0192(1 





fPaRTj 



Rfsul 

TcOUN 
Cl*Cx 

resul 

IF T» 
IF T 



ELSE 
RESUL 
IF RE 
Qt*AC 
IF GT 
T>6 
ELSE 



ELSE 



T»»CO 
l.Oi 
T»»7J 
• EXAM 

BZaiH 

RESUL 
TC0U^J 

END 

FLAGC 

Tl«0> 

SULT 

CUMCl 

1 l«Tt 

9 THE 
BEGIN 
T»«TE 
IF A8 

♦ I 
IF OP 

IF 



E-LSE 



ELSE 
Q I ■ A C 

FINlSHNllMRFRJ 
TJsOj 
IF C. 



ELSE 

END 
IF FS 
CUMCl 



CJsIF 

tNn; 



scanneri 
UNt; 

scanner; 
IN(NCR)>9 Then 

or T « ••♦♦' THEN 

TfcO; SCANNER) 
TIpCOUNTI 

473; 
SCANNER! 

* 3 Then flag (47)icomment not a numberi 
]] 

«(IF Ts^-^ThEN -convert ELSE CONVeRTX-46 OR 
N FLAr.C269) 

NCABS(GT3««T-FSAVE)n 

S(0&Ct42f3l6]&C[l«2>n + 0&T[42l3l6]S;GT3ciilill 

2) >63 THEN FLAGC269) 

TOG Then 
GTKO Then 

BEGIN 

GTl l*-GTli 

OOuBl-F(NHI»NLO.TENtGTl MOo 12] ,0 , / , J »,Nh I . NLO ) I 

FOR GT2t«12 STEP 12 UNTIL qTI DO 

DOUnLFCNHI»NLO,TEN[l?],0,/, J«.NhI,NLO)I 
END 
BEGIN 

D0U8LE(NHI#NL0»TEN[6Ti mod l?]#0»x,la#NHl»NLO)l 
For GT2t«12 STEP 1? UnTIL GTi DO 

DOUBtEC NHl»NL0»TEN[123i0»xi l«iNHIiNLO)> 
END 
GT3<0 THEN C/T ELSE CxT; 



AVE " THEN C I ^c/TENCFSAVE 3 1 
}; RESULTJ»3; 



CU37]»0 THEN 
BEGIN T.CLaSSi«LI 
FLSE T.CUASSinNONLlTNO ; 
GO COMPLETE) 
COMMENT THE COdE BETWEEN IDENT A 
IF QUANTITY IS NOT FOUND 
ZfRO. THE SCRAMBLE fQR 
TO BE dONf. THEN A CHFC 

TO deTeRMtNe Whether The 

COMMON RESERVED WORDS. 
CoMPlETEi OTHERWISE THE 

ROSE IS EnTEreoi the la 

IDENTIFIER WHICH IS FOUN 
OF THE ELBATWORD IN iNpO 

aUlows reference back to 

SHOULD THIS BE REQUlREDi 

identi if ti-superstackcscRaMi* 



TNO ) T,ADDRESSI«C end 



ND COMPOST DOES A LOOKUP IN INfO, 

The elbat word expects to be 

APPROPRIATE STACK IS FlRSI THING 
K iS MADE* USINq SUPeRSTACK, 

IDENTIFIER iS ONE Or OUR 
IF IT IS, EXIT IS MADE TO 
LOOP BETWEEN COMPOST AnD 

ST THING Done for Any 

D IS TO STUFF THE LOCATION 

into the link field. this 
Info for additional data* 

t 

(0»"ACCUM[1])M0d 125]#0.THeN 



02809000 
02810000 
02811000 
02812000 
02813000 
02614000 
02815000 
02816000 
02817000 
02816000 
02819000 
02620000 
02821000 
02622000 
02823000 
a2624000 
02825000 
02626000 
02827000 
02828000 
02829000 
02830000 
02631X)00 
02832000 
02833000 
02634000 
02835000 
02836000 
0293700.0 
02836000 
02839000 
02840000 
02841000 
02842000 
02843000 
02844000 
02845000 
02646000 
02847000 
02848000 
02849000 
02850000 
02851000 
026520Q0 
02653000 
02854000 
02655000. 
02656000 
02857000 
02656000 
02859000 
02860000 
0Z6 61000 
02662000 
02663000 
02664000 
02865000 



00271019312 
00271019411 

00271019513 

00271019712 

00271019610 

00271020011 

00271020211 

0027I02Q3I2 

00271020411 

00271020512 

00271020512 

0027I0207U 

00271020912 

00271021112. 

00271021210 

00271021611 

00271021611 

00271021913 

00271022113 

0027 I 0226 JO 

00271022811 

00271022913 

0027 1023 112 

002710231*3 

0027t0232tl 

00271023513 

0027)023712 

0027)024210 

00.21) 0211210 

002710242)1 

00271024513 

0027)02J7)2 

0027)0252)0 

0027)0252)0 

0Q2710256I0 

0027)0256)0 

0027)0256)0 

0027 1 0259 IJ 

0027)0261)2 

0027)0262)0 

00271026211 

0027)0264)1 

0027)0268)1 

00271027011 

002710271)2 

0027)0271)2 

0027102.7112 

0027)0271)2 

0027)0271*2 

00271027112 

0027)0271)2 

0027)0271)2 

0iX2ni)2irli2 

0027)0271)2 

0027)0271)2 

0027)027112 

0027)0271)2 



BrGiN 

IF INF0[GT1|*T,LINKRi 
BEGIN 



ELSl 
ROSn 



COMPOST 
COMMENT 



IF 
Tis 

GTl 

IFt 

IF T 
T 
Tl« 
IF 
IF 
IF 

f T{« 
IF 

X 
CHE 
IF 



T»«1N 
GO CO 
END 
ENDI 
EXAMINELASTf 

stackheadcsc 

l-T.LlNKRj 
CT2|»'T.LINKc 

BEGIN TI«0 
« INF0[6T1» 
l« 0? GO TO 
lNF0fGTl»GT2 
INFOCGTI.GT? 
COUNT < 5 Th 
NOT EQUAL(Co 
T&GTit35«43« 
GTl ''I AND N 
REFlTtT.LlNK 
CK HERE FOR 
NOT ENDTOG T 

BEGIN 

IF GTlt«T, 
BEGIN 
WHILE 

RESUL 
END 



F0[GT1.gT23 

MPLETF 



CGT2!»T.LINKC)*1]«Q THEN 
RTt35|35il3)J 



ACCUMf n» 

ram:j; 



COUNT + 2) » 12 THEN T I "DEFSTACKHEAD 



) + GTl 
i GO 
GT23 
COMPL 
]| 

*n&o 

EN GO 
UnT»5 
5)&GT 
OT MA 

»card 

COMME 
HEN 



• TH 
rOMPLE 
THfN B 

eTf en 
ri»i»i 

COMPO 

,accum 

?U0I4 
CROlD 
NUMBER 
NTs AN 



EN 

TE ENOI 

EGIN 



XlOl" 
«101' 



n ^t Q Then go rosei 

ST I 

C2]»lNF0tGT,,GT2+21)THEN GO ROSEI 

0I83» 

THEN X NOT RESERVED WORD 2116' 
»NORMALREF)j % BUIUD XREF ENTRY XU6' 
D DEFINED IDSJ 



CLASS * COMMENTV THEN 



EXAMJNCNCR 
BEGIN ReSUL 

ti«o?scanne 



COMMENT 



DBLDOLL 

complet 

IF 
IF 

IF 
BEGI 



eNd; 



IF 
IF 
SET 
IF 

G 
IF 

OEF 
LAS 
DEF 
LCR 
PUT 
TUR 
GO 
aRj 
mak 

F« 

ELB 
NOT D 
T.CLA 

BEG 
T.CLA 
N 

IF 

BSP 



ENDI 
STOPDEF 
GTl ^ D 
UP FOR 
BOOLEAN 
TH«GIT 

defiNei 
Begin 
ineaRRa 
tusedu 
inFarra 

J«fNCRl 
SEONOCG 
NONSTOP 
PERCENT 



INE T 
EFINE 
DEFIN 
(T,MO 
(TI*F 
NDEX 

FLAG 
YtDEF 
T.DYN 
YCDEF 
• MKAB 
T4»LC 
LIGHT 
f 



HEN GO 
DID Th 
ED IDS 
N) THE 
IXDEFl 
■ 24 T 
(139)1 
INEIND 
AMI 

iNEiND 
S(DEFf 

R)l 



COMP 
EN GO 

"• SE 
N X T 
NfINF 

hfN 

GO AR 
EX]«* 

FX + 2] 
NEARR 



) # "I* DO 

T»e6l COUNT»«Oj SCANNER ENOJ 

r;go scanagain 



lete; 
complete; 

E OEFINEGEN FOR MORE DETAILSi 

HIS IS A Parametric define 

OCT)) ELSE GTH«Ol 

GH END» 

LASTUSeD & gTI[16»33»15]; 

I»262144><LCR*NCR» 
AYCOEFInEInOEX+i3))*1I 



CR)I define I NDEX I "DEFINE index* 3 J 



CASTI GO SCANAGAINI 



ATtNXTELBTJj«Tj 

EFINING THEN 
SS « BEGINV THEN 
INSTACKtBSPOlNTM 
SS ■ ENOV. THEN 



BSPOINT+1 U-CARDNUMBER ELSE 



LISTER THEN IF 
OlNT««BSPOlNT ' 



BENB THEN BEGINPRINT; 
ReALCBSPOINT > 0)J % 



PREVENT INVALID INDEX 



02666000 T 


0027 


1027512 


021)67000 T 


0027. 


1027&I3 


02868000 T 


0027 


1028010 


02869000 T 


0027 


1028011 


028 7 OX) 00 T 


0027 


1028312 


02871000 T 


0027 


1028313 


02872000 T 


0027 


1028313 


02873000 T 


QHZTi 


1-02831 3 


02874000 T 


0027 


1028712 


02875000 T 


0027 


1028912 


02876000 T 


0027 


1029112 


02877000 T 


0027 


1029313 


02877010 C 


0027 


(029512 


02877020 C 


0027 


1 02971 3 


02878000 T 


0027 


1029811 


02879000 T 


0027 


I0300JI 


02880000 T 


0027 


1030410 


02881000 T 


0027 


1030513 


02882000 T 


0027 


1031010 


02882100 P 


00271 


1031211 


02882200 P 


0027 


031410 


02883000 T 


0027 


1031713 


02884000 T 


0027 


1031713 


02885000 T 


0027 


1031810 


02886000 T 


0027 


I0318U 


02887000 T 


0027 


10320-Ll 


02888000 T 


0027 


1032112 


02889000 T 


0027 


1032312 


02890000 T 


0027) 


1032513 


02891000 T 


0027 


1032713 


02892000 T 


0027 


1032713 


02893000 T 


0027 


1032713 


02894000 T 


0027 


1032811 


02895000 T 


0027 


1032913 


028960QQ T 


0027 


1032913 


02897000 T 


0027 


1033011 


02898000 T 


0027 


1033411 


02899000 I 


0027 


1 03 35. 12 


02900000 T 


0027 


033712 


02901000 T 


0027 


IO338I1 


02902000 T 


0027 


IQ.34O.tO 


02903000 T 


0027 


034211 


02904000 T 


0027 


034610 


02905000 T 


002-7i 


1434X12 


02906000 T 


00271 


034913 


02907000 T 


0027 


035112 


02905000- T 


0027 


I03^M12- 


02909000 T 


00271 


035512 


02910000 T 


00271 


035512 


02910100 T 


0027i 


-035610 


02910200 T 


00271 


035611 


02910300 T 


00271 


035811 


029 V 0400- T 


00274 


034112 


02910500 T 


00271 


036312 


02910600 T 


0027 


1036313 


02910700 X 


0027 J 


103461-0 


02910800 T 


00271 


036713 



STOP0EFTNEt«FALSEJ COMmeNT ALLOW DEFINES AGaINI 
IF NXTfLBTI»NXTELbT41 > 74 TheN 
IF NOT MACROiD THEN 

Begin 

COMMENT FLBAT iS FULL' ADJUST iTj 

M9VEn0tE|^9AT[65]»E:LBAT); 
IlwI-65^ PJ»P-6S» NXTEI,BT»*iO| 

End 

END; 
IF TARI,EJ«ELBATtP3. CLASS b COMMENTV THEN 

BEGIN 
COMMENT SPECIAL HANDLING OF CONSTANTS FOR SAKE OF FOR STATEMENTS* 

C»»INFOtO»ELBAT[P 3, ADDRESS]; 

ELBATCp],CLASS:*TABLE»*NONLITNO 

ENDI 
STOPDFFINE««FALSE» COMMENT ALLOW DEFINE; 
END TABLE t 



02911000 
02912000 
02913000 
02914000 
02915000 
02916000 
02917000 
02918000 
02919000 
02920000 
02921000 
02922000 
02923000 
02924000 
02925000 
02926000 
02927000 



27 IS 394 LONG* 



00271036713 
0O27t036fill 
00271037010 
00271037112 
00274.007413 
OO27I037H3 
0027»0373»3 
0027103774 2 
00271037712 
00271037713 
O02740.3«4)4 
0027f0lB0U 
00271038011 
0027lQ3a3l2 
00271038410 
00271038610 
00271038611 
NEXT SE6 3 



INTEGER PROCEDURE MOVEANDBLOCKC FROM* S IZE » NAME ) I . 
PRT(540) * MOVEANOBLOcK 

valuf size»name; real SIZE, Name* array from[0»o]j 

BEGIN 

INTEGER NSEGS»I»J»KJ 

STACKfF*3) » NSEGS 
STACKfF*4) a I 
STACK(F4.5) « J 
STACKfF+6) a K 



STACK(F*7) a A 



PRT(54l) ■ FMT 



ARRAY A[0I143I 
SWITCH FORMAT FMT s =« 



C/ 
</ 
C/ 

c/ 
(/ 
c/ 
(/ 
(/ 



•♦FILE PARAMETER BLOCK IS CODE FILE SEGMENT*'. 1 5i /) » 



"SEGMENT DICTIONARY IS CODE FILE 

"PROGRAM-LINE DICTIONARY IS CODE 

"PROGRAM REFERENCE TaBLE IS CODE 

"SEGMENT-LINE DICTIONARY IS CODE 

"POWER OF TEN ARRAY iS CODE FILE 



SEGMrNT"»l5t/)» 
FILE SEGMENT". 15»/)» 
FILE SEGMENT"iI5i/)» 
FILE SEGMENT"»15*/)» 
SEGMENT". 15. /)» 



"SEGMENT ZERO".I*f/). 

"SEGMENT NUMBER"»I5.» IS CODE FILE SEGMENT", 1 5. /) ; 



STREAM PROCEDURE OcTaLWORDSCN. W ,S#D) J VALUE N,W> 
PRT(542) m OCTaLwORdS 

bfgin 

DTtwOI DSi^LiT** "J 

St»»LOc N; simsi + 6; 

4fDSi»3 ReSETJ 3(IF SB THpN DS!=SET ELSE DS;sRtSETl SKIP 

Dtl»0l"4J DSU3 FILLI 

OitaDJ Dn«;0l*5» DS|«4 (^iT" "; 

S| tsiS; 

Wt2CB(DS»*3 RESET; 

3(IF SB THEN DSl«SET ELSE DSiwRESET; SKIP SB)I 



X106- 

«106- 
X106- 
X106 



02927100 C 00031034210 



02927110 
02927120 
02927130 



C OOO3I0342I0 
C 0003I0342JO 
C 00031034210 



START OF SEGMENT ♦♦♦»♦♦♦♦♦* 29 



X106- 02927140 C 00291000010 

XI 06- 02927150 C 00291 OOoH 3 
START OF SEGMENT •**♦*♦♦»♦♦ 30 



Jil06- 
X106^ 
X106- 
XI 06- 
X106- 
X106- 
X106- 
X106- 

XI 06- 

X106- 
X106- 
X106- 
SB}}I 

«106» 
Xl06- 
Xl06- 
X106- 
X106- 



30 IS 



02927160 


C 


OO3OJO0O1I3 


02927170 


C 


00301000113 


02927180 


C 


0030IOOOII3 


02927190 


C 


00301000113 


02927200 


C 


00301000113 


02927210 


C 


00301000113 


02921220 


c 


O03Ql0flaiJ3 


02927230 


C 


00301000113 


111 LONG, 


NEXT SES 29 


02927240 


C- 


OQ29J0QO113 


02927250 


c 


00291000H3 


02927260 


c 


0029 1^00312 


02927270 


c 


00291000313 


02927272 


c 


00291000410 


02937280 


c. 


0029.1-00071-2 


02927290 


c 


00291000713 


02927300 


c 


00291000611 


02927340 


c 


002-910009X2 


02927320 


C 


00291001011 



nsi»MT" 

DS»«2 LIT" 
END OF OCTAUWORDSf 



"51 



X106- 
X106- 
X106- 
X106- 



02927330 
02927340 
02927350 
02927360 



C 00291001211 

C 00291001312 

C 00291001313 

C 00291001411 



t^i^mm****** START ***♦**»♦♦* 

NSEGS«B(SIZE*29) niV 30» 

IF Da div chunk < ti«(da+nsegS) oiv chunk then 
da'^chunkxT; 

MOVEaNDBLOCKj«DAI 
IF C00EF!LE THEN 

IF name>o then 

WRITE(LINe»FMT[NaMe3.Da) 
PRT(543) s *LIST» LABEL, OR SEGMENT DESCRIPTOR* 

ELSE 

WRlTE<LINE»FMT[7],ABS(NAME),DA); 
PRT(544) • *LlST, LABEL. OR SEGMENT DESCRIPTOR* 

IF SiZE/0 THEN 

Begin 

For ji«o STEP 30 whi^e j < size do 
begin 

IF CKl»(128-CJ MOD 128))) < 30 THEN 

BEGIN 

M0VECK#FR0MCJ DIV l28»J MOD 128 ] » CODE ( 0) 5 ! 

M0VeC3O-K,FROM[(J DIV 12fl ) + 1 »0 3 » CODECK ) ) f 

END 
ELSE 

MOVE(30»FROM[J DiV 128, J MOD 1 28] » CODECO ) ) | 
IF J + 30 > SIZE THEN J! ZERO OUT UNUSED SECTION 

BEGIN 

K:aO» 

MOVE(l.K»COf)E(SIZF-J))} 

IF CSIZE-J) < 29 THEN % MORE THAN ONE WORD 

M0VE(29-SIZe+J.C0DE(S1ZE-J)»C0DECSIZE-J+1))) 

ENOl 
IF CODEFILE THEN 

BEGIN 

FOR Kl.o STEP 5 WhILE K<25 AND CJ+K)<SIZE DO 
BEGIN 
BLANKET(H»A); 

0CTAlW0RDS(j+K, IF (J+K+5)iSlZE THEN 5 ELSE 
SlZE-J-K»CODE(K)»A)| 

WRlTEfLlNE,i5»AC*}); 
ENDl 
WrITEClINE); 
ENDi 
WRlTE(CODEfDAJ); OAIssOa + II 
ENDl 
EnDI 
END OF MOVEANDBLOCK) 



i;i06- 


02927370 c 


00291001411 


1106- 


02927390 C 


00291001411 


X106- 


02927390 C 


00291001611 


j;i06- 


02927400 C 


00291001913 


X106- 


02927410 C 


0029(002112 


X106- 


02927420 C 


00291002210 


i:i06«» 


02927430 C 


0029 10022 J I 


X106- 


02927440 C 


002910024)0 


X106^ 


02927450 G 


00291003312 


«106- 


02927460 C 


00291003312 


X106- 


02937470 C 


0029(004512 


Xl06- 


029?7480 C 


00291004610 


X106- 


02927490 C 


00291004611 


«106- 


02927500 C 


0029I005W1 


1106- 


02927510 C 


00291005011 


JS106- 


02927520 C 


0029I0052U 


1I106- 


02927530 C 


00291005312 


X106' 


02927540 C 


00291005913 


1106- 


02927550 C 


00291006610 


1106- 


02927560 C 


00291 0066 10 


X106- 


02927570 C 


00291006610 


«106- 


02927580 C 


00291007312 


X106- 


02927590 C 


002910014(0 


X106- 


02927600 C 


00291007411 


«106- 


02927610 C 


0029J0075I3 


1106- 


02927612 C 


00291000010 


X106* 


02927620 C 


00291008113 


1106- 


02927630 C 


00291009113 


i;i06- 


02927640 C 


002910091 13 


!«106- 


02927650 C 


00291009210 


«106- 


02927660 C 


00291009211 


X106- 


02927470 C 


00391-00.9010 


«106» 


02927680 C 


00291009610 


1106- 


02927690 C 


00291009913 


X106» 


02927700 C 


0089101 03 13 


X106- 


02927710 C 


00291010811 


X106- 


02927720 C 


00291011211 


X106- 


029277.22 C 


00291011 31 ^ 


X106- 


02927730 C 


00291011712 


X106'' 


02927740 C 


0029I0U7I2 


1106- 


02927750 C 


00291.012312 


1106- 


02927760 C 


00291012313 


X106- 


02927770 C 


00291012313 




29 IS 129 LONG* 


REXT StG 3 - 



COMMENT NE.XTeNT IS THE PROCEoURE WHICH SCANS FOR THE FORMAT GENERATOR, 



02928000 T 0003t0342»0 



IT usrs The same scanNfR as the table routine, nextent 

PLACES EITHER A CHARaCTER OR A CONVERTED NUMBER WITH A 
NrfiATTVE SIGN iN pLCLASS. NfXTENT SUPPRESSES BLANKS! 

PROCEDURE nfxtent; 

PRT{545) B NfXTfNT 

BEGtN LABEL DEBlANkI 

CoUMTjuACCUMtUJcO) uASTElClASS J bElClASS; 
DEBLANK J 

IF eXAMINCNICR)"" ♦• THEN 
BEGIN 

RESULT|»7| SCANNER! 
ENDI 
IF fXaMIN(NcR) <; 9 THEN % Wr HAVE A NO. (WORD MODE COLLATING SEQ.) 
BEGIN 

RESULT|«3| SCANNER) TCOUNTi*0; 0»"ACCUMtl]» 
IF COUNT>« THEN FlAGCUO) X INTEGER > 1023. 
ELSf if ELcLASSt'-CONVERT < '1023 THEN FLAG(140) X INTEGER > 1023. 
END 
ELSE IF EXAMINCNCR)""*" -THEN 
BEGIN 

READACARDi COUNT » «ACCUMC 1 J « *0l GO DEBLANKI 
END 
ELSE BEGIN 

RESULT|«5| SCANNERI % GET NEXT CHARACTER, 
Q|*ACCUM[13| ELCLaSSi*aCCUM[11.[18j63 
END 
END OF NEXTeNTI 



02929000 T 0003»0342IO 

02930000 T Q003t03«2IO 

02931000 T 0003I0342I0 

02932000 T 00031034210 

02933000 T 000310342*0 

START OF SEGMENT ♦•♦♦**♦♦*• 3i 

029S4000 T 00311000010 

02935000 T 0031I0002»1 

02936000 T 00311000312 

02937000 T 00341 000ft I J 

02938000 T 003it0005i2 

02939000 T 003U0006U 

02940000 T 00311000611 

02941000 T 00311000610 

02942000 T 00311000611 

02943000 T 003110011 13 

02944000 T 00311001313 

02945000 T 00311001712 

02946000 T 0031I0017I3 

02947000 T 00311001913 

02948000 T 00311002010 

02949000 T 003ii0023J2 

02950000 T 003ll0023«2 

02951000 T 00311002313 

02952000 T 003ll002ftll 

02953000 T 00311002610 

02954000 T 00311002712 

NEXT SE6 3 



31 IS 28 LONGt 



PRTC546) « BOOLPRIM 
PRT(547) » BOOLCOMP 
PRT(550) 9 NEXT 



BOOLEAN PROCEDURE BOOLPRlM^ 



FORWARD! 



PROCEDURE BoOLCOMP(8)| BOOLEAN Bl FORWARD; 
INTEGER PROCEDURE NEXT) 



STACK(F*3) » T 



BEGIN 
LABEL EXITI 

INTEGER Tl 

DEFINE ERROR «= BEGIN FLAG(603)I GO EXIT END#I 
SKAN) 

IF ReSULTi.3 THEN ERRORi % NUMBERS NOT ALLOWED. 

!F ReSULT-2 Then % special CHARACTER. 

BEGIN 

TialF Q.wi.OOOO** OR Q«»ix0000» THEN 20 % FAKE OUT BOOLEXP, 
ELSE ((Tue,rl8l6]-2) 4 Tt42t41l31); 

IF TbU OR T«l9 OR T»?0 THEN BATMaNI-SPeC I AL[T ] % (»)fOR ; 

fLSe rLAaf603); 

GO EXiT 

END SPECIAL CHARACTERS! 
COMMENT LOOK FQR BOOLEAN OPERATORS, THEN OPTIONS! 
Tts IF Qs^SNOTOO" THEN NoTOP 



02955000 T 0003«0342l0 

02955500 T 0003I0342«0 

02956000 T 00031034210 

02956500 T 00031034210 

02957000 T 000310^4210 

START OF SEGMENT ♦«♦*♦*♦*•* 32 

02957500 T 00321000010 



02958000 T 00321000010 

02958500 T 00321000010 

02959Q0Q T 0D32-t 000313 

02959500 T 0032t0006»0 

02960000 T 00321000712 

02960SQ0 T 00121 000713 

02961000 T 00321001010 

02961500 T 00321001313 

029A2JDQ0 T OfiJZlOOlZU 

02962500 T 00321002113 

02963000 T 00321002210 

0296 3500 T 00.12 J-P022L0 

02964000 T 0032»0022»0 



ELSE IE Q'^aANDOO" THEN AigDOP 
ELSE IF Q»*'20R0OO" THEN OROP 
ELSE IF Q»"3EQV00*» THEN EOVOP 
ELSE 0» 
IF T#0 THEN BATMaN,CLASS»*T 
ELSf BATMaNj«1 4 B00IDI:2S73 & REALCF INDOPTIONClnCltUi % OPTION. 
EXITI 

NFXTt»MYCLASS!»BATMAN.Cl-ASS; 
END NFXTI 



32 IS 



02964500 T 0032 

02965000 T 0032 

02965500 T 0032 

02966000 T 0032 

02966500 T 0032 

02967000 T 0032 

02967500 T 0032 

02968000 T 0032 

02968500 T 0032 

48 LONG* NEXT 



1002313 
1002513 
I 0027 1 3 
1002913 
i003n2 
I0032U 
1004210 
1004312 
I 0044 II 

SEG 3 



STACK(F4.3) a B 



BOOLEAN PROCEDURE BOOLEXPj 
BFGIN 
BOOLEAN Bl 



BI*B00LPRIMI 

WHILE MYCLASSiEQVOP ANn MYcLASSSANQOP DO flOOLCOMPCB)! 

BOOLEXPlaB 

END BOOLEXPI 



START 



02969000 

02969500 

02970000 

OF SEGMENT 



T 00031Q34210 
T 0003l0342t0 

T 00031034210 
A********* . 33 



33 IS 



02970500 T 
02971000 T 
02971500 T 
02972000 T 
8 LONG* 



00331000010 
00331000112 
00331000411 
0033»0004ll 
NEXT SEG 3 



STacK(F+3) » B 
STACK(F+4) « KNOT 



Boolean procedure bqolprImi 

BEGIN 

boolean 8»KN0T; 



DEFINE SKIPIT » MYCLaSS « "NEXT #; 
IF KNOTJ«(NFXT»NOTOP) THEN SKIPITI 

IF myclass-leftparen Then 

BEGIN 

Bt«BOOLEXP{ 

IF MYCLASS»'RTPAREN then FLAG(604)> 
END 
ELSE IF MYCLASSi^BOOIt) THEN FL*AG(60U 
ELSf B»«BATMAN<0I 

IF KNOT THEN Bt«NOT Bl SKJPIT; 

BOOLPRlMt«B 

FND BOOLPRIMJ 



START 



02972500 

02973000 

02973500 

OF SEGMENT 



02974000 
02974500 
02975000 
02975500 
02976000 
02976500 
02977000 
02977500 
02978000 
02978500 
02979000 
02979500 



T 00031034210 
T 0003101421^ 
T 00031034210 



3a IS 18 LONG* 



00341000010 
003410000 to 
00341000312 
00341000313 
00341000410 
00341000512 
003410007)2 
Oa3Al0007l2 
00341000912 
00341001113 
O034i0X>lAI0 
00341001410 
NEXT SEG 3 



PROCEDURE BoOLCoMPCB)) BOOLEAN BJ 
BEGIN 
REAL OPClASSj 



STACK(F-».2) a OPCLASS 
STACK(F*3) « T 



02980000 

02980500 

02981000 

START OF SEGMENT 



T 0003I03«2»0 
T 0003t0342'0 
T 004 3 1^342 to 

**4>***«4>>l>* 35 



BOOLEAN T| 



02981500 T .04}35-1040^XO 



OPCLASSl»MYCLASS| 

TisBOOLPRlMI 

WHILE OPCLAvSS<MYCLASS DO BOOLCOMP(T)l 

B«» IF OPCLASSbANDOP ThEN CB AND T) 
ELSE ir OPCLASS«OROP THEN (B OR T) 
EISf CB EQV T)l 

fnd boolcompj 



02982000 
02982500 
02983000 
02983500 
02984000 



02984500 T 
02985000 T 



00351000010 
00351000011 

00351000113 
00351000411 

0035I00.06J0 
00351000611 
00351001112 



35 IS 14 L0N6# NEXT S£6 



PRT 


:55i 




PRT( 


:552 




PRT( 


:553 




PRT 


:554 




PRT( 


:555 




PRT 


!556 




PRT( 


:557 




PRT( 


:560 




PRT( 


;56l 




PRT( 


:5A2 




prTi 


:5A3' 




PRT( 


:564- 




PRT( 


:565- 




PRTI 


:566; 




PRTI 


:567: 




PRTI 


:570: 




PRT( 


571: 




PRTI 


:572: 




PRTI 


5733 




PRT( 

V 


574: 





COMMENT#««###l####flfl«fl«l«#llfl««l«lf#lif#««lf«lf#llfff««lff««fii«iff« 

FORWARD DECLARATIONS 
««##f ##|l«)|i|l»###l«#llf##««#«|«f#«l##l|##l##|####|«#|##f If ##ff ##f !«####; 

X 

PROCEDURE AEXPi FORWARDJ 
AEXP 

PROCEDURE ARjThSECI FORWARD* 
ARIThSEC 

PROCEDURE simparith; FORWARDJ 
simparith 

PROCEDURE ARIThCOMPJ FORWaRDI 

aRithcomp 

PROCEDURE PRiMaRYI forwarr; 
primary 

procedure bexpl forward* 

8EXP 

INTEGER PROCEDURE EXPRSSi fORWaRD; 

fxprss 

INTEGER PROCEDURE BOOSeCI FORWaRD* 
BOOSeC 

proceduRf simpbooi forward* 

SiMPBOO 

procedure booCompi forward* 
boocomp 

Integer procedure booprim; forward* 

BOOPRIM 

PROCEDURE RELATION* ForWArD* 

relation 

integer procedure ifexpl forward* 

IFEXP 

PROCEDURE PARSE* FORWARD* 
PARSE 

PROCEDURE DOTIT* FORWARD* 
DOTIT 

PROCEDURE GENGOCELBATWORD)* VALUE ELBATWQRO* REAL ELBATWORO* FORWARD* 
6ENG0 

PROCEDURE OEXPj FORWARD* 
DEXP 

procedure ifclause* forward* 
ifclause 

INTEGER PROCEDURE GET( SYLLaBLf )* VALUE SYLLABLE* REAL SYLLABLE* FORWARD* 
GET 

INTfGfH PROCEDURE f.NATCD* VALUr l** ReaL LI FORWARo* 
r,NAT 



02985500 T 
02986000 T 
02986500 T 
02987000 T 
02937500 T 
03001000 T 

03002000 T 

03003000 T 

03004000 T 

03005000 T 

03006000 T 

03007000 T 

03008000 T 

03009000 T 

O3O1OOOO T 

03011000 T 

03012000 T 

03013000 T 

03014000 T 

03015000 T 

03016000 T 

03017000 T 

03018000 T 

03019000 T 

03020000 T 



0003*0342*0 
00031 (134210 
000310342*0 
0003<0342t0 
00031014210 
0003*034210 

00031034210 

0003*0342*0 

00031034210 

0003*0342*0 

0003*034210 

0003*0342*0 

00031034210 

0003*0342*0 

0003l0342'0 

00031034210 

0003*0342*0 

0003*0342*0 

0003*0342*0 

0003*0342*0 

0003*0342*0 

0003*034210 

0003*0342*0 

0003*0342*0 

00031034210 



prt 

PRT 
PRT 

PRT 
PRT 
PRT 
PRT 
PRT 
PRT 
PRT 

PRT 
PRT 

PRT 

PRT 
PRT 
PRT 
PRT 
PRT 



PRT 



575) 
576) 
577) 

600) 
601) 
602) 
603) 
604) 
605) 
606) 

607) 
6l0) 
611) 

612, 
6l3i 
614) 
615) 
616) 



PANA 



« TFSTmT 
» GOGEn 



SI MP GO 
STMT 

fmit 



procfduRe: pana; forward* 

PROCEDURE IFSTmT) fORWARQI 

PROCEDURE GoGEn(l,ABElBaT.BRAnChTYpE); 

Value label.bat»branchtype* 

real LABEIBAT»BrANCHTYPE| FORWARD; 
boolean procedure SlMPGOi FOrWaRD; 
I 
procedure stmti forward; 

procedure EMlTfSYLLABLE); VALUE SYLLABLEi REAL SYLLABLE; FORWARD; 



Procedure procstmtcfrom); valuf from; boolean from; forward; 
• procstmt 

procedure strmprocstmt; forwaRdj 
w strmprocstmt 

BOOLEAN PROCEDURE GETINT; FORWaRO* 
« GETJNT 

INTEGER PROCEDURE D I V I DE( NUMreRi Pi . P2) J VALUE NUMBER! 
" ntVlDF 

tntegfp pi»p?»nuMbeRi forward; 

PROCEDURE constantcLean; forward* 
b constantclean 

procedure scatterelbat; Forward* 
■ scauerelbat 

procedure EMlT8(BRANCh»FR0M»T0WARDS); VA^UE BRANCH* F ROM» TOWARDS; 

s EMITB 

Integer branch. from»towarOSi forward; 

PROCEDURE VARIaBLeCFROM); REaL FROM; FORWARD; 

■ VARIABLE 
PROCEDURE IMPFUNj FORWARD; 

« IMPFUN 

PROCEDURE STREaMSTMT; FORWaRDJ 

» streamstmt 

PROrEDURE segmentstaRT; forward; 
» seqmentstart 

procedure segment (SI ZE»NO.NoO); 

■ SEGMfNT 
VALUF SIZE»N0,N00; 

Real size'NOiNOO; 

FORWARD'" 
INTEGER PROCEDURE BAE; FORWaRDI 
• RAE 

REAL PROCEDURE PROGnFSCBLDR( A» B» C )» VALUE A»B»C; REAL A»B»C* FORwaRd; 

« progdeScbLdR 

procedure bana; forward* 

■ raNa 

procedure EMjTNUMfA)* VALUE A* REAL Al FORWARD* 
« EMiTNUM 

PROCEDURE FMITD(A,B»T); Val^E AiB.T* INTEGER A»B.T; FORWARD* 
» EMITD 

INTEGER PROCEDURE GETSpACE { S» u) ; VALUE S.l* 
« GETSpACE 

INTEGER L* BOOLEAN S; FORWARD; 
PROCEDURE FORSTMT; FORWARD* 
625) ■ FORSTMT 



PRT( 


:6l7) 


PRT( 


[630) 


PRT( 


:621) 


PRT( 


:6?2) 


PRT( 


•693) 


PRT( 


:6?4) 



03021000 T 

030?2000 T 

030?3000 T 

03024000 T 
03025000 T 
03026000 T 

03027000 T 

03028000 T 

03029000 T 

03030000 T 

03031000 T 

03032000 T 

03033000 T 
03034000 T 

03035000 T 

03036000 T 

03037000 T 
03038000 T 

03039000 T 

03040000 T 

03041000 T 

03042000 T 

03043000 T 
03044000 T 
03045000 T 
03046000 T 

03047000 T 

03046000 T 

03049000 T 

03050000 T 

03051000 T 

03051001 T 
03052000 f 



0003*0342*0 

000310342*0 

0003*0342*0 

00031034210 
0003|0342*0 
000310342*0 

00031034210 

000310342*0 

000310342*0 

0003f0342l0 

0003*0342*0 

000310342*0 

0003*0342*0 
0003 to 342 JO 

0003*0342*0 

0003*0342*0 

000310342*0 
00031034210 

0003 J 034210 

00031034210 

000310342*0 

000310342*0 

0003*034210 
00A3 10342 10 
000310342*0 
0003*0342*0 

0003*0342*0 

OQO 110342 to 

0003*0342*0 

0003*0342*0 

0003*034210 

000310342*0 
00034-034514 



PROCEDUrF FJ FORWARD! 
PRT(6?6) B I 

PROCFDUrF FNTRY(TYPF); VALUF TYPEIREAL TYPEI rORWAROJ 
PRTC627) 9 fNTRY 

PROCEDURE FORMATGENJFORWARO; 
PRTC630) • fORMaTGEN 

PROCEDURE fxplicitformat; forward; 

PRT(631) s FXPLKlTFORMflT 

BOOLEAN PROCEDURE FORMa TPHRASfI FORWARD! 
PRT(632) 9 fORHaTPhRASF 

PROCEDURE PUTNBUMP(P1)> VAUUF Pl^ REAL Pll FORWARD* 
PRT(633) « PUTNBUMP 

PROCEDURE jUmpchknx; forward; 
pRT(6u) * jUmpchknx 

procedure jumpChkX) Forward; 

PRT(6J5) » jUmpCHKX 

procedure dblstmTj Forward; 
prt(636) ■ oblstmt 

PROCEDURE READSTMT; F0RWaRD» 
PRTC637) B rEADSTMT 

INTEGER PROCEDURE F I LE ATTR I BUtEHANDLERC N) ] VALUE N; REAL N; FORWARD ; 

PRTC6flO) » fileattributfhanoler 

PROCEDURE WRITESTMTI FORWARD) 
PRT(6<ll) « WRITfSTMT 

PROCEDURE SPACrSTMTI FORWARD; 
PRTC6«2) s 5PACESTMT 

PROCEDURE CLOSfSTMT; FORWARD; 
PRTC643) « cUOSfSTMT 

PROCEDURE LOcKsTMT; FORWARD; 
PRT(644) * LOCKSTMT 

PROCEDURE Rwnostmt; FORWaRD; 
PRTC645) m RWNdSTMJ 

PRocEniiRf pLOcKfs); value s; boolfan s; forward; 

PRT(646) « rLOcK 

PROCEDURE PURGEfSTOPPFR);VALUF STOPPeR;REAL STOPPER* FORWARD; 
PRT(647) c PURfiF 

PROCEDURE ENTERfTYPEV); 
PRT(650) ■ ENTER 

VALUE TYpEV; 

INTEGER TYpEV; FORWARD; 
INTEGER PROCEDURE pASSTYPE(p)» VALUE P; REAL PI FORWARD; 
PRT(65l) ■ PASSTYPE 

PROCEDURE PASSALPHACP); VALUE P; REAL Pt FORWARD; 
PRT<652) « PASSALPHA 

PROCEDURE listflement; F0RWArD» 
PRTC653) ■ LISTELEMENT 

REAL PROCEDURE LISTGEN; FORWaRd; 
PRTCdS'*) m LISTGEN 

PROCEDURE UNKNOWNSTMT; FORWARD; 
PRT(655) B UNKNOWNSTMT 

PROCEDURE FAULTSTMT; FORWARD! 
PRTC656) • fAULTSTMT 

PROCEDURE faultdec; forward; 

PRT<65/) » fAUUtoEC 

procedure SORTSTMTI FORWARD! 
PRT(660) s SORTSTMT 



03053000 T 0003l0342t0 

0305A000 T 00031034210 

03055000 T 0003I0342«0 

03056000 T 00031034210 

03056100 T 00031034210 

03056200 T 0003!0342IO 

03057000 T 0003|0342l0 

03056000 T 000310342(0 

03059000 T 000310342*0 

03060000 T 00031034210 

03061000 T 00031034210 

03061010 T 00031034210 

03062000 T 00031034210 

03063000 T 0003^034210 

03064000 T 0003t0342t0 

03065000 T 00031034210 

03066000 T 00031034210 

03067000 T O0Q3IO342I0 

03068000 T 00031034210 

03069000 T 00031034210 

03070000 T 0003I0342'0 

034)71000 T 0001*03421 

03074000 T 00031034210 

03075000 T 00031034210 

03076000 T 00031034210 

03077000 T 0003I0342»0 

03073000 T 0003*034210 

03079000 T 000310342*0 

03080000 T 00031034210 

030fil0OQ T 00011 034210 



m 



pkocedliRf MpRgeSTMT* forwardi 

PRTf66l) » MERGESTmT 

PROCEDURE CASESTmTI FORWArDI 
PRTC6«%?5 » CASESTmT 

PROCEDURE." HanDLETHETAIlENDoF AREADORSPACtSTATEMFNTi FORWARD) 
PRTC663) ■ HANDLFTHETaIlFNDOFAREADORSPACESTATeMENT 

ALPHA PROCEDURE BUGGER(S)| VaLuE S| INTEGER Sj FORWARD) 
PRT(664) w HUGGER 

COMMENT THIS SECTION CONTAINS THE EMITTERS. THEY ARE THE AGENTS WHICH 

ACTUALLY PRODUCE CODE AND OEBUGING OUTPUT) 
COMMENT Et"ITL EMITS A LIT CALL) 

PROCEDURE EMITUCLITERADI VALUe LITERAL) INTEGER LITERAL) 
PRTC6651 * fMITL 

EMIT(0iLITERALt36t38Jl0])) 



03082000 T 

030B3000 T 

03084000 T 

03100000 T 

OAOOOOOO T 
04001000 T 
04002000 T 
04003000 T 



0003(034210 

00031034210 

0003l0342t0 

00031034210 

000 3 J 0342)0 
00031034210 
00031034210 
00031034210 



04004000 T 00031034210 



PRT(666j « fMITO 



COMMENT EMITO E^IT AN OPERATOR) 

PROCEDURE EMITOCOPeRATOR)) VftLUE OPERATOR) INTEGER OPERATOR) 

EMITCU0FeRATOR[36»36:10])) 



04005000 T 0003»0344IO 
04006000 T 00031034410 

04007000 T 0003)034410 



PRT(667) ■ EMITC 



COMMENT EMITC IS PRIMARILY FOR USf BY STRMSTMT TO EMIT CHARACTOR MODE 
OPERATORS, hOWfVfR IT ALSO HANDLES DIA, DIB* AND TRB) 

procedure fmltc(repeat,operator)» value repeat » operator » 
Integer pepeat*operatori 

BEGlM 

IF REPEATS64 THEN FlAG(268)I 
EMlT(0PERAT0R«REPE:ATt36»42t6J) END EMITCI 



04006000 T 
04009000 T 
04010000 T 

04011000 T 
04012000 T 
04013000 T 
04014000 T 



0003l0346l0 
00031034610 
00031034610 

OOO3IO346IO 
0003)034610 
0003103^4610 
OOO3IO346IO 



PRT(670) • eMiTV 



COMMENT EMITV EMITS AN OPERAND CALL» JF THE ADDRESS IS FOR THE SECOND 

HALF OF THE PRT. THEN IT ALSO EMITS A PRTEI 
PROCEDURE EMITV(ADDRFSS)> VAlUf ADDRESS! INTEGER ADDRESS) 

BEGIN IF ADDRESS > 1023 THEN EMIT0(PRTE)I 

EMiTc2 & ADDRESS £361381103) END EMiTV) 



04015000 T 
04016000 T 
04017000 T 

04018000 T 
04019000 T 



0003(035010 
00031035010 
00031035010 

00031035010 
00031035210 



PRT(67l) m rMlTN 



comment pmitn f^its a descriptor call. if the address is for the 
Second half of thf pRt» then it also emits a prtei 

PROCEDURE EMiTN(ADDRESS)> VALUf ADDRESSI INTEGER ADDRESS) 

BEGIN IF ADDRESS > ll)?3 THEN • EM iTO (PRTe) I 

EmPO & ADDRESi) C36l38«i0]) END EMiTNi 



04020000 T 
04021000 T 
04022000 T 

040?3000 T 
040940&0 T 



00031035410 
00031035410 
0003I0154J4)^ 

00031035410 
00031035^44 



Comment emItpair emits a litc address Eollowed by operator, if the 



04025000 T 0003)035810 



PRTC672^ » 



PROCEDURE 
rMITPAl« 



ADDRESS ts FOH tHf SlCOND HaLF OF THE PRT» THEN It ALSO 

FMiTs prte; 

FMITPAlR(AnnRESS» OPERATOR)* 

Value aodress»operator) 
integer address, operator) 

BEGIN 

emitlcaddRess); 

if address > 10?3 then emitocprte)! 

FMITO(OPCRaTOR) END EMiTPAiRi 



04026000 T 
04027000 T 
04026000 T 



04029000 
04030000 
04031000 
04032000 
04033000 
04034000 



0003I035BI0 
00031035810 
00031035610 

00031 Q35BJ0 
O0O3I03S6I0 
00031035810 
00031035810 
00031035811 
0003103601 1 



PRTC673> ■ EMITUP 



COMMENT FMITUP IS RESPONSIBLE FOR COMPIUING THE CODE TO RAISE AN 

EXPRESSION TO SOMp POWER IF THE EXPONENT IS A LITERAL 
OR A NEGATIVE LiTeRAL THEN jN LINE CODE IS COMPlLFOt TH 
cOdF CONSISTS OF A SERfES OF DUPS AND MULS, AS WIT 
EMiTLNG TARE MUST BE TAKeN TO AVOID CONFUSION WITh LTNKS 
AND CONDITIONAL EXPRESSIONS, IF THESE SPECIAL CASES 00 

NOT hold# Then a call on an intrjnsic procedure. XTOThEI 
IS Constructed, xtothei produces a series of multiplies 

CAPRoXImATElY LN I MULTIPLIES) If 1 IS An INTEGER. 
OTHERWISE IT CALLS LN AND EXpj 
PROCEDURE EMITUP) 



04035000 T 

04036000 T 

IS 04037000 T 

H 04038000 T 

04039000 T 

04040000 T 

I 040<n000 T 

04042000 T 

04043000 T 

04044000 T 

04045000 T 



STACK(F+2) 
STACKtF*3) 



BACKUP 
CTR 



COMMENT 
COMMENT 



BEGIN INTEGER BACKUP' CTR; 



Label ej 

IF NOT LINKTOG THEN GO TO 
CALL XTOTHFI IF LaST THING IS 

IF GET(L-l) « 537 THEN 
LAST OPERATOR IS CHSJ 

BEGIN BACKUP * U L ♦ L' 



04046000 
START OF SEGMENT 



00031036113 
00031036113 
00034ii36ll3 
00031036113 
00031036113 
00031 0361 1 3 
00031036113 
000310361*3 
00031 0*61 • 3 
0003I036U3 
00031036113 



T 00031036113 

*4>4i4i4t*««i»4i 36 



[46123 



Ei 

LINK; 



1 ENDI 




COMMENT IT 



COMMENT 



TO El 

A branchi 



IF(&T4 ♦ GETCL"!)) 
THEN BEGIN 

IS A literal; 

BACKUP * BACKUP+i; L ♦ L»ll 
IF GETCL-l3.t39|9J . 153 THeN gO 
CALL XTOTHE if ThE LAST OPERATOR IS 
CTR * i; gT4 * GT4 DIV 4* 
WHILE GT4 diV 2 # 
DO BEGIN 

EMITOCDUP); 

If" B00LEANCGT4) THEN BEGIN CTR*CTr*i ; Em I T0( DUP)EnOI 
EM1To(MUL)I 
GT4 «• GT4 OIV 2 ENDI 
IF GT4 «0 THEN BEGIN EMITqCDELJ I EMITLCI ) END 

ELSE WHILE CTR * C7R-1 # 00 EMITO(MUL)) 
IF BACKUP « 2 



THEN BEGIN 
EMITLCl); 
EMIT0(XCH)| 
EMlT0£l2fl3 END 
ELSE BEGIN 



END 



04047000 T 00361000010 

04048000 T 003610000IQ 

04049000 T 00361000011 

04050000 T 00361000011 

04051000 T 00361 0002U 

04052000 T 00361000211 

04053000 T 00361000512 

04054000 T 00361000712 

04055000 T 00361000610 

04056000 T 00361000810 

04057000 T QQ36lDQli)ll 

04058000 T 00361001313 

04059000 T 00361001313 

04060000 T 0036(0013)3 

04061000 T 00361001611 

04062000 T 0036l00i7«3 

04063000 t 0036J0016U 

04064000 T 00361002112 

04065000 T 003610022)0 

04066000 T Q036ia02313 

04067000 T 00361002611 

04068000 T 0036t0030<l 

a40690oo T oowiooaoj i- 

04070000 T 00361003113 

04071000 T 00361003211 

04072000 T 0036100-334-2- 

04073000 T 00361003410 



F» 



L •• b + BACKuP| 
EMpOCMKS)! 

tMlTPAIRfGNAT(lOGl)^UOD)l 
fMlTPAIRCGNATCEXPI )»LOd); 

eMitv(gnat(Xtothe:i)); 

STACKCT * 0> 

ehito(dfL) end fnd emitup; 



%tk 



04074000 
04075000 
04076000 
04077000 
04078000 
04078500 
04079000 



T 00361003411 

T 00361003610 

T 0036IQ037I2 

T 00361003811 

T 0036t0040t0 

T 0036! 0041 12 

T 00361004210 



36 rS 45 LONGi NEXT SEO 



PRT(674) • ADJUST 



COMMENT APJUST ADJUST L TO ThE BEGlNiNG OF A WORD AND FILLS IN THE 

INERVENJNG SPACE WITh NOPS, [T CHECKS STREAMTOG To DECIDE 

Which sort of nop to use; 
procedure adjustj 



BEGIN 

DIALA *- DIALB 
WHILE L. 14612] 

END ADJUST! 



• o; 

# 



DO EMITCIF STREAMTOG THEN 1 ELSE 45) 



04080000 T 
04081000 T 
04082000 T 
04083000 T 

04084000 T 
04085000 T 
04086000 T 
04087000 T 



0003I036H3 
00031036113 
0003*0361 13 
0003»036H3 

0003103611 3 
0003J0361I3 
00031036312 
00031036713 



COMMENT EHITLNg CHANGES A RELATIONAL FOLLOWED BY A NEGATE TO THE 

Negated Relational^ it also changes a negate followeo 
BY a negate to nothing, care must be exercizfd. a link 
rroR constant to be emitted later) might look like an lng 
OR A relational operator, this is The use of linktog, 

not ( IF B then X.Y else Y»Z) 
THIS IS the MEANING OF THE OBSCURE 
♦ L*l FOUND IN IFEXP, BOOSEC* BOOCOMP, 
code serves to set a flag for USE BY 



PRT(675) « 



PROCEDURE 
EMITlnG 



ALSO A CONSTRUCT AS 
COULD GIVE TROUBLE. 
EMITS FOLLOWED BY L 

And relation - that 
Emitlng; 
emiTlngj 



begin label e> 



04088000 
04089000 
04090000 

04091000 
04092000 
04093000 
04094000 
04095000 
04096000 
04097000 
04098000 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003 f 
00031 
00031 
00031 



036811 
036811 
036811 
036611 
0368(1 
036811 
036811 
0368 1 1 
036811 
036811 
036811 



COMMENT GO 



COMMENT 



COMMENT 

ELSE IF 
COMMENT LAST 



IF NOT lINKToG THEn Go To E) 
TO E IF LAST THING IS A LINKi 

IF GETCL) # Then go to It 

EITHER LAST EXPRESSION WAS CONDITIONAL 
LNG OR RELATIONAL OPERaTORI 

IF GTl ♦ GET(L-l) « T7 THEN L * L-1 
LAST THING WAS AN LNG - SO CANCEL IT) 

GTl,C4?l6]«2i AND GTl , t 37 I 2 J>«0 THEN 
THING WAS A RELATIONAL* 

BEGIN L*L-i; EMITOCREALCBOOLEANCGTI 



BOOLeANMF GTl. [4012] 
COMMENT NEGATE THE RELaTIQNaLI END ELSE 
EJ EMITO(LNG) END fMiTLNGJ 



OR THERE IS NO 



X AHA 

t36»10J) EOV 



THEN 511 ELSE 463))) 



04099000 T 00031036811 
START OF SEGMENT *4t4i******* 37 

04100000 T 00371000010 

04101000 T 00371000011 

04102000 T 00371000011 

04103000 T 00371000211 

04104000 T 00371000211 

04105000 T 003-7100021 1 

04106000 T 00371000513 

04107000 T 00371000513 

04108000 T 00a7lQ.Q09!3 

04109000 T 00371000913 

04110000 T 00371001211 

04111000 T 0037100-1513 

04112000 T 00371001513 

37 IS 18 LONGi NEXT SE6 3 



COMMENT EMITB EMITS A BRANCH OPERATOR AND ITS ASSOCIATED NUMbfRI 



04113000 T 00031036811 



STACK(F + 2) m Ti, 



PROCEOdRf FM I Tb( branch. from, TOWARDS) I 

VALUE BRANCH. FROM. towards; 
INTEGFR branch. fROMiTOWARDSI 

Begin 

INTEGER fUJ 



TL ♦ H 

L ♦ FROH-21 

GTl ♦ tqwards-Fromj 

IF TOWARDS. C^6«?J « 
THEN BEGIN 
BRANCH ♦ BRANCHR1C39U7II]; • 
GTl *■ TOWARDS DIV H - CFROM-n DIV « ENOJ 

EMITNUMCABSCGTI))) 

EMiTOCBRANch&cReALCGTU 0) + 1)[42U6»2])) 

IF B00LEAN(BRANcH.t38lU) THEN DIAUA * DIAtB * 

L «. TU 

END emitb; 



01 



04114000 
04115000 
04U6000 
041 J7000 
04116000 
START OF SEGMENT 

04119000 
04120000 
04120100 
04120200 
04120300 
04120400 
04120500 
04121000 
04122000 
04123000 
04124000 
04125000 



T 0003(036611 

T 00031036611 

T 0003»0368ll 

T 00031036611 

T 000|t03^8ll 



4i*4i4>«*««4i4i 



38 



00361000010 
00361000011 
0036t0002t0 
0O36IO003I2 
00361000410 

0036I0005U 
00361000611 

00381000913 
00361001011 
00361001312 
00381001513 
00381001513 
NEXT SEQ 3 



COMMENT DFBUGWORD FORMATS TWO FIELDS FOR DEBUGGING OUTPUT IN 

Octal, namely « 

1, 4 CHARAcTfRS for THE L REGISTER, 
2,16 CHARACTERS FOR THE WORD BEING EMITTED, i 
STREAM PROCEDURE DEBUqWORDC SrQ.CODE.FEl L)I VALUE SEQ. CODE ; 
PRTe6765 m DEBUgWORD 

begin 

DUFEILI Si* LOC SEQI S!* Sl*ni OS * 4 CHRi 
DS * 2 tlT** ♦♦! 
SI •• LOC fioDE J 

16( DS * 3 RESETl 3( IF SB THEN OS*SET ELSE 
OS ♦ RESET ; SKIP I SB)); 
49(0S * 2 LIT " ••)> 
END ) 



04126000 
0412)^000 
04126000 
04129000 
04130000 

04131000 
04132000 
04133000 
04134000 
04135000 
04136000 
04137000 
04138000 



00031036811 
0003103661 1 
00031036611 
00031036611 
00031036811 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1036811 
1036912 
1037010 
1037011 

to3rofi 

1037211 
1037313 
I0374M 



COMMENT EMITWORO PLACES ThE PARAMETER ."WORD". I NTO 



PRTC677) « 



procedure 
fmhwoRd 



debugging is required. "l" 
The printer file in octal 

EMITWORD (WORD)I VAUUE WORD' 



AND "WORD" ARE 
FORMAT, I 
REAL WORD» 



EDOC, IF 
OUTPUT ON 



Begin 

AOJUSTI 

IF Li4092 Then rRRc200) 

ELSE BEGIN 

MOVE (1. WORD. EDOCrL.[ 361 3].U,r 3917]]); 

IF debugtog then 

BEGIN OEBUgWoRDCB2D{L). WORD, LIN); 

writelInE end; 

L*L+4 END 

End emitword; 



04139000 T 

04140000 T 

04141000 T 

04142000 T 



04143000 
04144000 
Q4 145000 
04146000 
04147000 
041480.00 
04149000 
04190000 
04151000 
04152000 



0003l0374il 

0003(0^7411 
00031037411 
00031037411 



00031 
00031 
0Q03J 
00031 
00031 
OQQ3J 
00031 
00031 
QQD3.J 
00031 



037411 
037411 
037513 
037712 
037912 
Q3A2il 
036312 
03*513 
0396Ja 
039712 



the: 



COMMENT CONSTANTCUt.AN IS CALLED AFTER AN UNCONDITIONAL BRANCH HAS 
BEEN EMITTED. IF ANY CONSTANTS HAVE BEEN ACCUMULATED BY 
CMITNUM IN INFOcO,*3r CONST ANTCLE AN WILL FIX THE CHAIN 

OF c-relative opdc s left by emitnum, if c-relativf 

ADDRESSING IS IMPOSSIBLE (I.E. THE ADDRESS 

IF GREATFK ThaN 127 WORDS) THEN THE CONSTANT ALONg WITH 

The 1ST LINK OF THE OPDC CHAIN IS ENTERED IN INfO, 

AT PURGE Time The Remaining opdc s are emitted with 

r -relative addressing and code emitted TO STORE 
CONSTANTS INTO THE PROPER F-ReLATIVE CELLS, i 
PROCEDURE constantclean ; 

TF mrclean Then 
begin 

INTEGER J.TEmPL#D»LINKI 
PRT(700) ■ ♦segment DESCRIPTOR* 

STACK(F*2) « J 

STACK(F+3) s templ 

STACK(F+fl) * D 

STACK(F+5) « LINK 



04153000 
0415«000 
04155000 
04156000 
04157000 
0415B000 
Oft 159000- 
04160000 
04161000 
04162000 
04163000 
04164000 
04165000 
04166000 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



a397l3 
039713 
039713 
039713 
039713 
039713 
03^9713 
039713 
039713 
Q397 1 3 
0397«3 
0397«3 
039810 
O390II 



START OF SEGMENT ik********* 39 



STACK(F-».6) a CREL 



BOOLEAN CRELI 



04167000 T 00391000010 



LABEL ALLThU » 
DIALA * DIALS ♦ 0: 

FOR J * 1 STEP 2 UNTIL LASTENTRY DO 
BEGIN 
ADJUSTI TEMPL*L; L* INFOC 0»255'J+13 I 
CREL ♦ FALSEI 
00 BEGIN 

IF D*CTEMPL-L+3)DIV 4>128 THEN 

BEGIN 
NCII»NCII+1; 
pUTNBUMP(L4NONLITNOt2»4ll7lSCNEXTlNF0»LASTINrO)[27l4Ot63)> 
PUTNBUMP(TAKE(255-J))> LaST I NFO*NEXT I NFO-21 

go to allthu) 
fNd; 

LINK^-GETCL); 
CRfL * TRUEJ 
EMiTvCD f 768)1 
END UNTIL L*- LINK « 4095 I 
AILThUi L ♦ TEMPLI 

if crel then emitwordc inf0[0«255-j ])l 
end; 
lastentry ♦ 0| 

END I 
PRT(701) » ♦SEGMENT DESCRIPTOR* 



04166000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
041760D0 
04177000 
04178000 
04179000 
04180000 
04181000 
04182000 
04183000 
04164000 
04185-000 
04186000 
04187000 
04i*80i){) 
04189000 
04190000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 
T 
T 



00391 
0039J 
00391 
00391 
00391 
0Q191 
00391 
00391 
00321 
00391 
00391 
00391 
00391 
00391 
0Q19» 
00391 
00391 
0039.1 
00391 
00391 
00-391 
00391 
00391 



000010 

ooooto 

0001 1 z 

000210 

000210 

OQMia 

000611 

000712 

000913 

OOIOIO 

001113 

O0i4U 

001713 

OOlBlO 

00181.0 

00J9I3 

002010 

Qflil 1 3 

002312 

002411 

002^-i^ 

OOJOIO 

OO3OII 



39 IS 33 LONG* NEXT SEG 



COMMENT EMITNUM HANDLES ThE EMISSION OF CODE FOR CONSTANTS#BOTH 
EXPLICIT AND IMPLICIT, IN EVERY CASe»EMITNUM WILL 



04 19 1000 
04192000 



T 00034044345 

T 00031040312 



STACK(F+2) » M 



PRODUCE CODE TO GET THE DESlREO CONSTANT ON TOP OF 
THE STACK. IF THE NUMBER IS A UlTERAU A SIMPLE LfTC 
SYLLABLE IS PRODUCED, HOWEVER. NON-L I TERALS ARE KEPT 

IN The zero-th Row of info with the syllable 

POSITIONAL, THE FIRST EMiTNUM ON A PARTICULAR 
CONSTANT CAUSES THE VALUES OF L AND THE CONSTANT 
TO BE STORED IN iNFOCO.*] (NOTEMTEMS ARE STORED 
TN REVERSE STARTING W^H INF0[ 0, 2553 . ETC ,) . THEN 

ITS THE JOB or constantclean To Emit the actual 

OPDC (SEE COnSTAnTClEAn PROCEDURE FOR DETAILS) I 
PROCEDURE EMITnUM( C ); VALUe CI REAL Cl 

BEGIN LABEL F I NI ShED* FOUnD ; rEAl NJ 

IF c,[i i373»o Then ekitlcc) 

FLSE 

BEGIN 

FOR N «■ I STEP 2 UNTIL LASTENTRY DO 
IF INF0C0I255-N] « C THEN 60 TO FOUND > 
INF0[0i?55 -LASTENTRY] * LI 
INF0[0»?55 -LASTENTRY-1 J* c I 
EMITN(10?3)I 

linktog*-falsei 

IF LASTENTRY •■ LaSTENTHY + 2 > 128 THEN 
BEGIN 

C «• BUMPLJ 
CONSTaNTCLFaM 

emitb(Bfw»c.L); 
endi 
go to finishfdi 

FOUNn: eMIT(INf0C0»255 -N+l])! 

LINKTOg*FALSfI 
lNF0tO,?55»Nf 13* L-H 

END? 
FINIShEDIEND rMlTNUM t 



START OF 



40 IS 



04193000 




00031040312 


04194000 




00031040312 


04195000 




00031040312 


04196000 




00031040312 


04197000 




000 31040312 


04198000 




00031040312 


04199000 




00031040312 


04?0ODO0 




00031040312 


04201000 




000310403*2 


04202000 




00031040312 


042030O0 




00O3l04O3t2 


04204000 




000310403*2 


SEGMENT 


**4,«*4i**#« 40 


04205000 




0040*0000*0 


04206000 




004010002*1 


04207000 




00401000^3*2 


04208000 




0040*000313 


04209000 




0040*0005*2 


04210000 




0040*0010*0 


04211000 




00401001211 


04212000 




0040*0015*3 


04213000 




00401 00 UIO 


04214000 




0040*001712 


04215000 




0040*0018*1 


04216000 




0O40I0019I2 


04217000 




004010021*2 


04218000 




00401002113 


04219000 




00401002211 


04220000 




0040*0022*1 


04221000 




0040*0023*2 


04222000 




00401002611 


04223000 




0040*0027*3 


04224000 




0040*0031*2 


04225000 




0040*0031*2 


34 LONG 


1 


NEXT SEG 3 



PRTC702) « SEARCH 



STACKfF+3) s N 
STACKfF+4) a I 



COMMENT SEARCH PERFORMS A BINARY SEARCH ON THE COP AND WOP 

ARRAYS, GJVEn ThE OPERATOR BITS SEARCH YIELDS THE BCD 
MNEUMONIC FOR ThAT OPERATOR. IF THE OPERATOR CANNOT 
BE FOUND SEARCH YIELDS BLANKS. 

NOTE* DIA.0IB»TrB ARE RETURNED AS BLANKS, ; 
ALPHA PROCFDURf SEARCH (0»KEY)I VALUE KEY* ARRAY QtO]l REAL KEY I 

Begin label li 

COMMFNT GTl AND GT2 aRE INITIALIZED ASSUMMiNG THAT Q iS OROCReO 
By PAIRS (ARgUMeNT»FUNCTiON, ARGUMENT, FUNCTION, ETCl) 
AND THAT THE FIRST ARGUMENT IS IN Qt43. FURTHERMORE 
The LENGTH OF IS 126, i 

INTEGER N»I I 



N » 64 I 



0422600O 
04227000 
04228000 
042 2 9000 
04230000 
04231000 

04232000 
START OF SEGMENT 
04233000 
04234000 
04235000 
04236000 
04237000 



T 000310403*2 

T 0003*0403*2 

T 0003*040312 

T 0003 J 04011 2- 

T 0003*0403*2 

T 0003*0403*2 

T 0003*0403*2 

T 0041*000010- 

T 0041*000010 

T 0041*000010 

T 0O41-I0OO.01O 

T 0041*0000*0 



04236000 T 0041*0000*0 



Wi 



For 



* fi6 STEP IF Orn<KEY ThEN N ELSE - N 



WHILE N..N DIV 2 > 1 DO 
IF Qt I ]« KEY THEN Go To L I 

1 ♦O; COMMENT ARGI'MENT not FOUND»SEARCH'»Qll ] ; 

Sr-ARCH*fol I +13 » 

End search i 



04?39000 T 00411000011 



04240000 
04?41000 
04242000 
04243000 
04244000 



T 00411000512 

T 00411000912 

T 004HOOU»2 

T 004tt00UI3 

T 00411001313 



41 IS 16 LONG» NEXT SEG 



COMMENT R2D CONVERTS ThE FOUR LOW ORDER OCTAL DIGITS TO BCD 
CODE » 
ALPHA PROCEDURE B?D(B)J VALUE B> REAL Bl 

B2D*0&Brft5»45«3UB[39«42»33&Br33J39l3]&Br27f36»3] ; 



04245000 
04246000 
04247000 
04248000 



T 00031040312 

T 00031040312 

T 00G3I0403I2 

T 00031040312 



PRTC703) « PACK 



commfnt Pack is a stream procedure which inserts the syllable 

INTO THE EDOc ARRaYi THE SPECIFIC ELEMENT OF EOOC 
is PRECISiLY s EoOCrcL DIV 4) DIV 128, (< DiV 4)M0D 128] 
SyLLABLF POSiTiONwCL MOD 4 ), WHERE L iS THE SYLLABLE 
NUMBER RFLATiVE TO THE BEGINNING OF THE SEGMENT! 
STREAM PROCEDURE PACK ( WORD. PqS t T I 0N» SYLLABLE ) » 

VALUE P0vSlTlnN»SYLLAF3LE; 

BEGIM 

DI*WorD ; DI «- Ol+POSniON t DI * Dl+POSlTlONJ 

Sl*LOC SYLLABLE I SWSI+6* 

DS*2 CHR ; 

End PACK I 



04249000 
04265000 
04266000 
04267000 
04268000 
04269000 
04270000 

04271000 
04272000 
04273000 
04274000 
04275000 
04276000 



T 0003»0411I2 

T 0003I04U«2 

T 0003t04ll«2 

T 00031041112 

T 0003104-11 1^ 

T 00031041112 

T 0003l04ll«2 

T 0003*041112 

T 0003I0411«2 

T 00031041210 

T 00031041312 

T 00031041313 

T 0003J0414I0 



PROCEDURE OEBUGCS); 
PRT(704) s DEBUG 

Value s; real s 
IF strfamtog Then 
IF singltog Then 

WRlTE(LINf>BUG»B2D(L)»C0P[S,c42J6]]iB2D(S,t36»63),B2D(S)) 
PRT(705) s *LIST, label, OR SERMENT DESCRIPTOR* 

ELSE 
WRlTECLlNEt0BL3,BUG»B2D(L)»C0P[S,r'>25 6]],B2D(S,[36»6]), 
PRT(706) ■ ♦LIST. LABEL, OR SEGMENT DESCRIPTOR* 

B2D(S)) 
ELSE 

IF Singltog Then 

WRlTErLlNE.BUG.B?DfL). IF T i*.S , r 46 « 23 *1 ThEN 
PRTt707) « *LIST, label. OR SEGMENT DESCRIPTOR* 

BU6GtR(S,t36ll03) ElSE W0PtTi3»IF Tl»l THEN WflPtU 
ELSE 82D(S,|:36»103).B2DCS)) 
ELSE 
WrITE(LINECDBL].BUG»P20(L)»IF Tl*S,tft6t2l*l THEN 



04277000 T 00031041410 



04278000 
04279000 
04279100 
04279200 

04279300 
04280000 

042810.00 
04282000 
04283000 
04284000 
04284100 
04284200 



04284300 T 
04284400 T 
O42845a0 T 
04285000 T 



00031041410 
00031041410 
0003*4)4-1512 
00031041611 

00031042912 
0003(043312 

00011.044512 
0003t0446t0 
00031044610 
00031045010 
00031045010 
0003I045U3 

00031046011 
0003(046611 

aoo3ia47^n 

00031047512 



PRT(7lO) « ♦LIST* LAREL» OR SEGMENT DESCRIPTOR* 

BUGGER(S.t36tlO]) ELSE WoPtTll.lF Tl»l 
ELSf B20CS.[36I10 3)#B2D(S))J 



THEN W0Ptl3 



04?86000 
04?87000 



T oooaioaaaii 

T 0003»0<>90ll 



CALLS DEBUG FOR 

AND CHECKS F'OR SfGHENTS 



COMMFNT EMIT PLACES SYLLABLES INTO EDOC# 
DEBUGGING OUTPUT ON THE PHINTeR* 
GREATER ThAN 4093 SYLLABLES, 
Pf^OCEDljRr EMIT f S ) ; VALUE S? REAL S i 

Begin 

IF L <4092 Then 

Begin 

LjNKTOG - TRUEJ 

PACKc EDOc[L.C36»3 ] » L. t 3* » 7 ] ] . L, f 46 J 2 ] ,S ) J 

IF debugtog Then pebugcs); 

L«-L4l t 
END ELSL 
ERR(?OOJ 
COMMENT 200 EMIT - SEGMENT GREATER THAN 4093 SYLLABLES 
End EMM I 



*; 



04P8flOOO 
04269000 
04290000 
04291000 
04292000 
04293000 
04294000 
04295000 
04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 



0003 t 
00031 
00031 

aoDii 

0003» 
00031 
0003} 
00031 
00031 
OOA-34 
0003t 
OOO3I 
00031 
0003» 
00031 



0499t3 
049913 
0499U 
04 99 1 3 
049913 
049913 
050011 
0501«2 
050210 
05^51 J 

050713 
050912 
050912 
05ll«2 
051113 



COMMENT The principle function of DEBUG IS TO COMPUTE THE PROPER 

PARAMETEKS FoR STrEAM PROCEDURE PUG> 
COMMENT EMITD EMITS THE DlAfPlBiTHB SEQUENCE OF CODE. 

PREVIOUS SETTING OF ThE G-H AND K-V REGISTERS 

IF THE G-H»K-V or BOTh ARE ALREADY 

syllable(S) are omitted 

TO BE IRANSFERED THEN NO SYLLABLES 



PROCEDURE 

BEGIN 



The current 
The approiate 
if bits are 

EMITTED ; 
EMITD(A,B,T)} 



THE 

IS COMPARED 
SET THEN 



ARE 



LABEL EXiT.nORmAlJ 



Value a,b,t ; integer AfB,T> 



STACKfF+2) a Q 



NORMAL' 



Real o» 

IF T « 15 Then 

BEGIN 

TF A « 33 Then 

ELSE IF A Jf IB 

IF B » i(i Then 

ELSE IF b # 33 
EmITo(Q+197); 

GO To exit; 
End; 



04303000 
04304000 
04305000 
04306000 
04307000 
04308000 
04309000 
043)0000 
04 311000 
04311010 

START OF Segment 

04311020 



Q * 5J2 

THEN f,0 TO 
Q .. 0^256 
THEN GO TO 
COMMENT -- 



NORMAL? 
NORMAL? 

This gets 



OUT FIXED FIELD! 



IF T# THEN 
BEGIN 

IF DiALA^ A Then 

EMITCf (DIALA*A3 

IF 0IALB#B THEN 

EMIT(((DIALB*B) 

EMiTCTRB+64xT3| 

diala*oialb*o; 



DIV 6)x512 + { A* A 
DIV 6)k512 * ( b* B 



MOD 6)x 64 + DIA)I 
MOO 6)x 64 ■»■ DIB)I 



T 0003l05l2«0 

T 00031051210 

T 00031051210 

T 00031051210 

T 0003I0S12I0 

T 00031051210 

T 00031051210 

T 0003«05i2»0 

T 00031051210 

T 00O3»05l2t0 

T 00421000010 



04311030 T 
04 311040 T 
.04311050 T 
04311060 T 
04311070 T 
04311080 T 
04311090 T 
0431114)0 T 
04311110 T 
04311120 T 
04312000 T 
04313000 T 
04314000 T 
04315000 T 
04316000 T 
04317000 T 
0431S000 T 
04319000 T 



00421000010 
0042 1 0000 II 
00421000112 
00421000211 
00421000512 
0042(000611 
00421000912 
0042 1. 0040 11 
00421001112 
00421001112 
00421001112 
00421001113 
00421001210 
0042150131-2 
0042f00l8t0 
0042t00l9t2 
00421 0024 10 
0042(002610 



K 



COMMpNT The PRFCEEDlNf. STATEMENT CAN BE REMOVED FOR OPTIMIZING 
G-H AND K-V ReGiSTERS#OThERWISE NO OPTiMlZlNfi OCCURSI 
END EMiTD ; 

rXiTJ END? 



42 IS 



04320000 T 
04321000 T 
04322000 T 
04322100 T 
31 LONG. 



00421002712 
0042«0027I2 
00421002712 
0042«0027«2 
NEXT SEG 3 



PRT(7iU « EMiTi 



STACK(F+2) = S 

STACKfF+3) « Ti 

STACK(F+ft) s T? 

PRT(7l2) « EMIT21 



PROCEDURE FMiTtcE.A,B)J VALUe E»A,BJ REAL E.A»B) 
BEGIN LABEL E^lT»lS; 

Integer s,Ti,T2> 



04500000 T 0003»0512I0 



procedure EMlT2lCE»B); VALUE E»BJ 

REAL E) 

BOOLEAN 0} 

BEGIN IF E « Then 

BEGIN IF B THEN EMITO(XCH)l END 
ELSE BEGIN gTI i- EtADDRESS* 

IF E *- E. CLASS < INTID THEN 

EMlTVCGTl) 
ELSE IF E < INTARRAYIO THEN 
EMITPAIR(GT1,L0D) ELSE 
EMITN(6T1) 

fNd 
end; 



04501000 

START OF SEGMENT 

04502000 



T 000310512)0 

«««*4<4><»«*« 43 

T 00431000010 



04503000 T 00431000010 



04504000 
04505000 
04506000 
04507000 
04508000 
04509000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 



00431 
004 31 

00431 
00431 
00431 
00431 
00431 
004 31 
00431 
00431 
00431 
00431 



OOOOtO 
000010 
000010 
000011 

040 2 U 
000411 

0006)0 
000712 
000811 
OOlOtO 
0011 12 
001113 



PRT(7l3) ■ LN 
PRT(7l4) ■ pXP 
PRT(7l5) » X TO THE I 



IF B » THEN 

BEGIN EMlT2UE*FALSE)» GO TO EXiT ENDl 
IF STACKtT * THEN GO TO ISI 

IF B « If. Then 

BEGIN IF A X 33 THEN 

BEGIN EHIT21{E»FALSE)I 

LMITCOI EMITOCINX); 
GO TO EXIT? 

END! 
IF A » 18 THEN 

BEGIN EMIICO)! 

FMIT21(E»TRUE)I 
EM1T0(197)J 

GO TO EXITI 
fN[)I 
GO TO ISI 

end» 
if b < ic' and a-».b • 48 then 

BEGIN EMIT21(E»FALSE); 
EMlTL(2*B'"l)) 



04526100 
04526200 
04527000 
0452B0D0 
04529000 
04530000 
0A531000 
04532000 
04533000 
04 514000 
04535000 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
04544000 



T 00431001113 

T 00431001211 

T 0043l00i4«l 

T 0043 too 16 10 

T 00431001611 

T 00431001810 

T 0043100191-3 

T 00431002112 

T 00431002113 

T OQAil 002113 

T 00431002210 

T 00431002313 

T aOA3l0.024Ji 

T 00431002512 

T 00431002513 

T 00434-0 aasi J 

T 00431002610 

T 00431002610 

T 00431002811 

T 00431003010 



TSl 



EMiTOtLNO)! 
GO TO EXITI 

FNDJ 
IF (S * ('»8-A-B) MOD 6) + B < 
BEGIN EMlT2l(E«F ALSE)J 
EMiT(T2*.(TUA DIV 
EMiT(r(A+B-l) OIV 
GO 10 EXlTj 
END? 
EMlTfOi; 

fmit2he»true:)i 

EMITn(A»*a-B»B)J 



39 THEN 

6)x5l2+(A MOD 6)x64*0!A)> 
6 -Tl>nxS12*64xS+37)| 



EXIT I FNni 



04545000 
04546000 
04547000 
04548000 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04555000 
04556000 
04557000 
04558000 



43 IS 57 LONG. 



00431 
00431 
00431 
00431 
00431 
00431 
00431 
00431 
00431 
00431 
004^1 
0043t 
00431 
00431 
NEXT S 



003312 
001410 
003411 
003411 
003810 
0039t3 
004411 
004913 
005010 
005010 
i)05M2 
0052t0 
005313 
Q0S3I3 
EG 3 



ALPHA PROcEDURf BUGGFf»(0P3» VALUE OPJ 
BEGlM tNTFGfR 0> 



INTEGER OPI 



STACK{F+3) X Q 



END) 



START 



W0P[1]*« ••; 

TF BlJr,GER*SEARCHfWOPf OP)*" " THEN 
TF Q*0P,r44J^]i9 ThfN 
BEGIN 8UGGER*P0P[IF Q#iO ThEN 0-5 ELSf 0P,t42«2]3» 

WOPri]»(lF Qsio THEN OP, t 39 « 3 1&0P[ 41 « 38 J I ] ELSE 

0P.[418 3]&0PC39J38I33)&'' •♦[ 24 f 36 I 1 ? 3 1 
END BUGGER) 



04600000 
04601000 

OF SEGMENT 

04602000 
04603000 
04604000 
04605000 
04606000 
04607000 
04608000 



T 00031051210 

T 00031051210 

«4i«*4i4t«>l>>ti* 44 

T 00441000010 

T 0044I0001«2 

T 00441000313 

T 00441000610 

T 00441001011 

T 00441001411 

T 00441001713 



44 IS 23 LONG* NEXT SE6 



PROCEDURE CHECKDISJ0INT(A)| VALUE At vINTEGER AI 
PRT(7l6) • CHECKDISjOfNT 

BEGIN 

?F levfl > sue*level+i then 

BEGIN 

EMIT(O); 
EMlTPAlRtA» STD)) 

end; 

FMlTNf A)> 
END CHErKDlSJOINT) 



04609000 T 0003»05l2IO 



04610000 
04611000 
04612000 
04613000 
04614000 
04615000 
04616000 
04617000 



0003 
0003 
0003 
0003 
0003 
0003 
00.03 
0003 



1051210 
I05l2t0 
»0513I2 
IQ513J3 
1051411 
«0515I3 
1051511 
1051610 



COMMENT This Section contains miscellaneous service routines; 

COMMENT STEPI AND STEPtT ARE ShORT CALLS ON TABLE* 
PROCEDURE STEPiT; ELCLASS * TABLE{I»I+1)I 



05000000 

05001000 
05002000 



T 00031051611 
T 00031051611 
T 0003»05l6ll 



Integer procedure stemj 5TepUelclass*table(I*i + i)i 



05003000 T 0003J0519I3 



PRT(717) ^ STEPl 



COMMENT TAKE FETCHS A WORD FROM INFOI 

REAL PROCFDURE TAKECINOEX)J VALUE INDEX! INTEGER INDEXJ 
TAKE ♦ iNFOtlNDEX.LINKR, INDEX, LINKC3; 



OSOOAOOO 
05005000 
05006000 



T 00031052512 
T 00031052512 
T 00031052512 



COMMENT PUT PLACES A WORD INtO iNpO; 
PROCEDURE PUT(wORd,iNDE)<)> VaLuE WORd»INDEX> 
INFOriNDtX,LTNKR.iNDEX»LlNKC] * 



REAL W0R0»INDEX; 
WORD) 



05007000 
05008000 
05009000 



T 000310531*2 
T 00031053112 
T 000310511 12 



COMMENT FLAG FLAGS ERROR MESSAGES. 

ERROR MESSAGES UNTIL 
PROCEDURE FLAGfERRNUM); VALUf eRRN 

BEGIN 

Comment writerroR is the stream 
The error message on 

STREAM procedure WRI TErROR( RmT » ERR 



PRT(7?0) s WRITERROR 



Value 

BEGIN 



errnum»count* 



DI «»LlNE 
SI *LSTS 
DSisga L 
SI ♦ LST 
DI*L INe; 
IF SC"! 
BEGIN Sl 

n\ 

RMT 
END eL.Se 
DS*H Li 



SI 
DS 
SI 

ds 



♦ LOc 
•• 4 L 

♦ ACC 

COMMe 

♦ Lit 



J llCDSl 

EQJ SI *r 
IT " 

seq; di 

SfRMT; 
" THEN 
-LSTSEO* 
F SC>''0'' 

SI*SI+ 

••tallyj 

Dl*DI*7 
T " fRRO 

erRnumj 

IT " -• 
UM; SI t 
NT PLACE 



COUNTS THEM AND SUPPRESS FUTURE 
THE COMPILER THINKS IT HAS RfCOVEREDl 
UM» INTEGER ERRNUMI 

PROCEDURE WHICH ACTUALLY PRODUCES 
THE PRINTERI 
NUM»ACCUM»LlNE,COUNTtLSTSEQ)| 



• 8 LIT •♦ ")! XBLANK LINE 

Sl-6; DS ♦WDSi 
<<<<<<<<<<<<<<<<<<<<**! iSET FLAG 
«■ LSTSEOI DI ♦ DI-81 OS * WDSI 

SI*SI+7| 

DS«-10 LIT "NEAR LINE "J 

THEN JUMP out; 
n TALUy*TALLY + U> 
DS*8 ChR» DI*-DI-RMTJ 

R NUMBER "« 

DS * 3 DECI COMMENT CONVERT ERRNUMI 
•»? 

Sl+31 DS * COUNT ChRI 

ALPHA IN BUFFER? 



05010000 T 

05011000 T 

O5O12OOO T 

05013000 T 

05014000 T 

05015000 T 

05016000 T 
START OF SEGMENT 



00031053512 
00031053512 
0003»0535t2 

0003»0535I2 
00031053512 
0003»0535«2 
00031053512 



***«4>*«*«l» 



45 



END WRITERROR) 



05017000 T 00451000010 

05018000 T 00451 QOOO 10 

05019000 T 00451000010 

05020000 T 004510002(0 

05021000 T 00431000211 

05023000 T OO45I0006I0 

05024000 T 00451000712 

05024100 T 00451000713 

05024200 T 004St0008tO 

05024300 r 00451001011 

05024400 T OO4Si0a41l3 

05024500 T 0045«00l3l2 

05024600 T 0045l00l4l0 

05025000 T 0045100-1411 

05026000 T 0045I0016U 

05027000 T 00451001712 

Q502&000. T 004510.01713 

05029000 T 0045I0016U 

O5O3OOOO T 0045l00i8ll 

05031000. 1 004S.«Mi9l2 



IF ERRORToG THEN % DO NOTHInG IF WE SUPPRESS mSSGS, 
BEGIN 

SPECTOG \m FALSE; 

ERRORCOUNT Is ERR0RC0UnT*1I COMMENT COUNT ERRORSI 
IF NOTCLISTER OR REMOTOG) THEN 
BEGIN 



05032000 
05033^^0 
05034000 
05035000 
050 36000 
05037000 



T 0045*001913 

I 0045 i -aaaoi-o 

T 00451002011 

T 00451002113 

T 0.0-45lOW21i- 

T 0045l0023«3 



COMMFNT 



IF 
TF 



PRT(7?l) 
PRT(722) s PUNCH 



ir PUNCmTOg 
BE6?N 

STREAM 
♦SEGMENT DESCRIPTOR* 



EDITLiNe(UIN»FCK.« "»0#0»MEDIUM»0)I XIH- 
M0VE(l»INrOlLASTSEflR0W»UASTSEQUENCE].lINrl23)« 
IF NOhfADING THE^ DATIMF* WRITELFNE* 

endj 

PRINT CAROIMaGE IF WE ARE NOT LlSriNQl 

ACCUMtn •■ 0| COMMENT RESTORE ACCUMULATORi 
WRlTERROR{RFM0T0G,ERRNUM.ACCUMtn»LIN»Q.tl2l6], 
INFOrLASTSEOROW(LASTSEQUENCEJ)J 
REMOTOg Then WRiTF(REMOTE»lO.LlNt*]); 

NOT NOheADING THEN BEGIN WRITE (LINE)* WRITELINE) END* 
ERRORTOg «. FAUSEI COMMENT INhIBiT MeSSAGESI 

Then 



PROCEDURE PUNCHfFLfST); 



05036000 
05039500 
05039600 
05041000 
050420X}0 
05043000 
05044000 
05045000 
05045900 
05046000 
05047000 
05048000 
05049000 
05050000 



P 0045 



0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0Q45 
0045 
0045 
004S 



1002410 
1002611 
1002913 
1004210 
10042X0 
1004210 
1004313 
1004610 
1004713 
1005211 
10.06113 
1006811 
t 006912 
1006913 



START OF SEGMENT ****♦♦*♦♦* 



46 



VALUE STI 
BEGIN 
DI ♦ FLI 
SI * ST; 
OS *• 9 WDS 
END PUNCHI 



05051000 
05052000 
05053000 
05054000 
05055000 
05056000 



T 00461000010 

T 00461000010 

T 00461000010 

T 00461000010 

T 00461000011 

T 0046 t 0000 11 



END 
PRTC723) B *SEfiMFNT DESrRlPTOR* 



PUNCH(PNCHC0)»FCR)» 

MOVEClf INF0[LASTSEQR0W.LASTSr0UENCE3f 
WRiTEfPNCH) 



PNCH{9)); 



END END FLaGJ 



46 
45 



IS 

IS 



05057000 
05Q5800Q 
05059000 
05060000 
05101000 



15 
72 



LONG* 
LONG* 



00461000112 
00461000411 
0046t00l0l0 
00461001112 

0046l00l4«0 



NEXT 
Ni:XT 



SEG 
SEG 



45 
3 



PRT(724) m FNOOFlTALL 



LABEL ENoOfITALL; 
COMMENT ERR#IS ThE SAMp AS FLAf, EXCEPT THAT iT MAKES AN 

Recover from eRror situations by searching 
Semicolon, end. or beginj 

PROCEDURE ERR(ERRnUM)1 value ERRNUmJ INTEGER ERRNUM; 
begin FLAGCERRNUM)* 

I ♦ l-ll 

if £RRNUM«200 then go to ENOOFlTALLi 



ATTEMPT 
FOR A 



IF ERRNUM-611 THEN GO TO ENDOF I TALLJ XERRMAX 
DO IF STEPI ■ BEGINV THEN STMT UNTIL 

ELCLASS ■ ENDV OR ELCLASS « SEMICOLON END 





05101100 T 


0003(053512 


T TO 


05102000 T 


00031053512 




05103000 T 


00031053512 




05104000 T 


00031053512 




05105000 T 


00031051512 




05106000 T 


00031053512 




05107000 T 


00031053611 




05107100 T 


000-31053810 


EXCEEDED, 


05107200 T 


00031054113 




05108000 T 


0.0031054512 


ERRI 


05109000 T 


00031054712 



DEFINE ERROR « ERR*» COMMENT ERROR JS A SYNONM FOR ERR? 
COMMENT CHECKER IS A SMALL PROCEDURE THAT CHECKS TO SEE THAT THE 



OSliOOOO 
05111000 



T 00031054913 
T 00031054913 



UPLEVFL. ADORESSyNfi CONVENTIONS ARE OBEYED' 
PROCEDURE CHECKERfELBATWORD)» VALUE EUBATWORDJ REAL ELBATWORDI 

prt(725) « checker 

Begin 

if mode ^ ? then 

IF GTl * ElBaTWQRD.LVL ^ FRSTlEVEL THEN 
IF GTl < SUBlEVEl THEN 
IF ELBATWoRD,[9:2] * i 

then begin flagdodi errortog ♦ true end 

End checker? 



05112000 T 
05113000 T 



05114000 
05U5000 
05116000 
05117000 
05118000 
0511900-0 
05120000 



00031054913 
0003t0549U 



0003 
0003 
0003 

0003 
0003 
4)00.3 
0003 



1054913 
1054913 
1.05501 1 

1055312 
1055410 

«0558»0 



COMMENT GiT IS USED TO OBTAIN THE INDEX TO ADDITIONAL 
GIVEN THE LINK TO THE ELBAT WqRDI 
INTEGER PROCEDURE GITfL)» VAlUe L> REAL LI 
GiT ♦ TAKECD.INCR + L.LINKI 



INFORMATION 



05121000 
05122000 
05123000 
05124000 



T 00031055810 

T 0003J0558I0 

T 0003J0558I0 

T 0003 1 0558 JO 



STACKfF+3) » A 



COMMENT GNaT IS USED TO ObTaiN THE PRT ADDRESS Or A GIVEN DESCRIPTOR, 
IF THE ADDRESS HAS NOT BEEN ASSIGNED* THEN IT USES 
GETSPACE TO OBTAIN THE PRT ADDRESSJ 

INTEGER PROCEDURE GNAT(L); VaLUE H REAL L> 
BEGIN 

Real a; 



IF GNAT *{A»TAKE(L>>.ADORESS«0 

Then PUT(A&C6NATl«GETSPACE(TRUE.L.LINK + l))[l6»37Mn*L) 

END gnat; 



05125000 T 

05126000 T 

05127000 T 

05128000 T 

05129000 T 

05130000 T 
START OF SEGMENT 



00031056410 
00031056410 
00031056410 
0003l0564t0 
00031056410 
00031056410 



«4t4i***4t«4t« 



47 



47 



05131000 T 

05132000 T 

05133000 T 

IS 10 LONG* 



00471000010 

00471000210 

00471000712 

NEXT SEG 3 



PRT(726) « 



COMMENT PASSFIlE COMPILES CODE THAT BRINGS To TOP OF STACK A DESCRIPTOR 

Pointing at the i/o descriptor con top), it handles 

SUPERFILES AS WeLL AS ORDINARY FILESI 
PASSFILEI 



PROCEDURE 
PASSFILE 



05134000 T 
05135000 T 
05136000 T 
05137000 T 



STaCK(F+2) « ADORES 



BEGIN INTEGER ADDRESJ 



CHECKER(ELBATtIl)» 

ADORES ♦ ELBAT[n, address; 

IF elclass ■ supeRfH-eid 
ThfN RrriN 

BANAI EMITNCADDRES)! EMITOCLQD) END 
ELSE BEGIN 

IF NOT BOOLEANCELBATtn, FORMAL) THEN EMITL(5)> 

STEPiT; 

EMiTn(ADORES) end END passfile? 



05138000 
START OF SEGMENT 



00031056410 

00031056410 

00031056410 

. Q003L05A4 ! Q 



T 00031056410 



******.♦♦.*..♦_,. 



46. 



05139000 T 
051 400.011.. I 
05141000 T 
05142000 T 
05l43flQXJ T 
05144000 T 
05145000 T 
05146000 T 
05147000 T 
48 IS 13 LONG. 



00481000010 

0048f0002tl 
00481000211 

ooftaiiJiUiiia 

00481000513 
0048I0006V0 

04 8 tOOOBI 1 

0048(000912 

NEXT SE& 3 



PRT(7?7) » 



procedure 
passmoneile 



PASSMONFILEcADDReSS)! 

VALUE ADDRESS ; 
REAL ADDRESS > 
BEGIN COMMENT PASSMOnFIUE GENERATES CODE TO PASS THE MONITOR 
FILE TO PRINTll 
IF ADDRESS < 768 qR ADDRESS > 1023 

Then emitl(5)> 
emitn(address); 
end passmonfilei 



OSUSOOO T 00031056410 



05l<i9000 
05150000 
05151000 
05152000 
05153000 
05154000 
05155000 
05156000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



t0S64t0 
1056410 
ia564J0 
1056410 
1056410 
105644 

1056810 
1056811 



PRT{730) 



PROCEDURE PASFILEJ 
PASFILE 



BFGIN COMMENT PASFILf 
MfYERS FOR " 
DEFINE ELBA 



SFILf PASSES THE UaST ThREE PARAMETERS TO 

The lOck» cl.ose» and rewind statementsi 
tworq • rri#; comment eubatword contains 



KEN 
THE 



END 



ELBATWORD FOR THE FILE BEING 
OPERATED 0N» 
DEFINE LTEMP » RR?#J COMMENT LTEMP IS USED TO HOLD THE. I 

REGISTER SETT.ING FOR ThE SAVp OR 

release literal that gets passed to 
ken meyers) 
emito(mkS)» l«-cltemp«.l) + i> emitlco); 

EmITlC2)J CHECKEH(ELBATWORD*ELBAT[n); 

IF RRBUCHRB?*- ELCLASS =» SUpERF ILEI D >0R 
Boole AN (ElBAT WORD, FORMAL) 

Then emitoclnoi 

IF RRB2 

Then bana 

ELSE STEPlTl 

EM I TN( ELBATWORD. ADDRESS) J 

IF RRB2 

Then eMito(Lod)i 

IF RRBl 

Then emitocinx); 

FMITL(4); EMiTVtl4); 
PASFILE' 



05157000 T 00031056912 

05158000 T 0003105^912 

05159000 T 0003l0569t2 

05160000 T 0003(056912 

START OF SEGMENT ♦♦#♦♦♦***♦ 49 

05161000 T 00491000010 

05162000 T 00491000010 

05163000 T 00491000010 

05164000 T 00491000010 

05165000 T 00491000010 

05166000 T 0049 t 000010 

05167000 T 00491000010 

05168000 T 0049I0003»2 

05169000 T 0O49(O005t3 

05170000 T 0049I0006»1 

05171000 T 0049I0006U 

OS 172000 T 0049(000913 

05173000 T 00491000913 

05174000 T 00491001010 

05175000 T 00491001113 

05176000 T 0049J0013I2 

05177000 T 0049|00l3t2 

05176000 T 0Q491QO14J1 

05179000 T OO49I0014I1 

05180000 T 00491001610 

051810OQ T 00491 QOl 713 

49 IS 18 LONG. NEXT SEG 3 



COMMENT CHECKPResfNCF CAUSES THE CORRECT COQE TO BE GENERATED TO CAUSE 

PRESfNCE bit INTERRUPTS ON |/0 deScRiPTORSJ 
PROCEDURE CHECKPRfSENCE* 
PRT(731) » CHECKPRESENCr 

BEGIN 

EMlTo(nUP); EMlTO(LOO); EMiTLfO); EMIT0(CDC)I EMITO(DEL)* 
END CHECKPRESEnCEI 



05182000 T 
051B30O0 T 
05184000 T 

05185000 T 
05186000 T 
05187000 T 



0003 10549 I 2 
00031056912 

00031056912 

0003(056912 
0003(0569(2 
000-3105^72(1 



COMMENT PROCEDURE PASSlIST Will BRING THE LIST PROGRAM DESCRIPTOR 



05187500 T 0003(0573(2 



li 



TO TOP OF STACK FOR A SUBSCRIPTED IIST ID OR SIMPLE ID> 
PROCEDURE PASSLlSTi 
PRT(7'32) 9 PASSLlST 

BEGIN 

iNTrfiFR LISTADDRESSJ 

STACKfF*2) a LiSTAODRESS 

COMMENT PASSLIST ASSUMES t POINTlNfi AT LiST IDi 
CHEcKERfELBATt!])! 
L I ST ADDRESS J sEUB AT rn. address; 

IF FLCLASS « SUPERLlSTiD THEN % SUBSCRIPTED LIST ID. 
BEGIN 

BANA; EMlTN(LlSTADDRESS3 J EMIT0(L00)J 
END 

elSf begin emitl(listaddreSs)j stepit endj 

END OF PASSlISTI 



05187510 T 
05187520 T 



00031057312 
00031057312 



05187530 T 0003I0573«2 
05187540 T 0003t0573»2 

START Of Segment ♦♦^♦♦♦♦♦♦* so 



05187550 
05187560 
05187570 
05187580 
05187590 
05187600 
05187610 
05187620 
05187630 



50 IS 10 L0NG» 



00501 
0050} 
00501 
00501 
00501 
00501 
0050J 
00501 
00501 
NEXT S 



0000(0 
OQOOIO 
0001>2 
0002«1 
000112 
000313 
000513 
000513 
0007«3 
EG 3 



REAL PROCEDURE TAkEFRSTJ 
PRT(r33) • TAKEFRST 

TakEFRST *■ TAKEcElBATL n.LlNK + ELBATCn.INCR); 



05188000 T 0003»0573I2 
05189000 T 00031057312 



PRTf734) « STUFFF 



COMMENT STUFFF DIALS ThE F-ReGiSTER INTO THE F-REGISTER FIELD OF A 
DESCRIPTOR, THE DESCRIPTOR REMAINS ON THE TOP OF THE 
STACK! 

PROCEDURE STUFFFCADDRESS)) VaLUE ADDRESS? INTEGER ADDRESS* 



BEGIN 



EMnpAlR(ADDRESS,LOD)* 
EMlTN;5l2)? 
EMITD(33»18#15) END STUFFFJ 



05196000 T 
05197000 T 
05198000 T 
05199000 T 

05200000 T 
05201000 T 
05202000 T 
05203000 T 



00031057810 
000310.57810 
00031057810 
0003(057810 

000310578(0 
0003(0578(0 
0003(058010 
000310580(1 



PRT(735) * LOCAL 



COMMENT 
BOOLEAN 



LOCAL IS 
PRESENT 

PROCEDURE 

VALUE 
BEGIN 



USED TO SEE WHEThER OR NOT A LABEL IS LOCAL TO OUR 
CODEI 
LOCALfELBATWORD)J 



elbatword? real elbatword; 

IF ELBATWoRD.LVl « LEVEL AND 

NOT BooLEANfELBATwoRD, Formal) 

LOCAL * TRUE END LOCAL( 



THEN 



05204000 T 
05205000 T 
05206000 T 

05207000 T 

05208000 T 

052Q90QQ T 

05210000 T 



O0O3»0582>0 
O003t0582t0 
00031058210 

00031058210 
000310562)0 
00041058410 
000310585(3 



COMMENT PASSFORMAT COMPILES CODE THAT PASSES A FORMAT, TWO ITEMS ARE 
PASSED »• THE ARRAY REFERENCING FORMAT TABLE AND ThE 
STARTING INDEX. THE ROUTINE HANDLES SUPERFORMATS ALSOJ 

PROCEDURE PASSfORMATJ 
PRT(7365 « PASSFORMAT 



05211000 
05212000 
05213000 
0521 4QQ0 



T 00031058912 

T 000310569(2 

T 00031056912 

T OQQ 110569 1 Z- 



BFGIN INTEGER AdRfSI 



STACKfF*?) X ADReS 



05215000 T 00031056912 
START OF SEGMENT ♦♦«♦♦♦♦♦♦♦ 5l 



CHECkER(ELBAT[I J)J 

ADRES «. ELBATCn.AOOKESSj 

IF BOOLEANfELBATtn. FORMAL) 

Then begin emitv(Adres)i 



HEN BEGIN EMI TV( ADRES ) I ADRES «. ADRES-1 END 
ELSE BEGIN 

IF TAbLe(I) * SUPERFRMTID 

THEN FMITlcTAKEFRST) ELSE EMI TLCELBATf I ] . I NCR ) 

end; 

IF TABLEd) » SUpERFRMTiD 

Then begin banai i ♦ i*] i 

EMiTOfSSP); EMITO(AOD); EMITV(ADRES) ENDl 
EMlTpAlR(ADRES»LOD) END PASSFORMAT; 



05?i6000 
05?l7(m0 

05?ieooo 

05219000 
05220000 
05221000 
05222000 
052234^0 
05224000 
05225000 
05226000 
05227000 



0051 
0051 
0051 
0051 
0051 
0051 
0051 
00-51 
0051 
0051 
0051 
0051 



tooooto 

1 000 1 12 
1000211 
100021 1 

I04)0tl0 
1000611 

1000712 
lOOiGIO 
1001112 
1001210 
1 00 1 All 
J0017I2 



51 IS 21 LONG* NEXT SEG 



COMMENT STREAMWORDS EITHER RESERVES OR UNRESERVES STREAM RESERVED 

WORDS - IT COMPLEMENTS THEIR STATED 
PROCEDURE STREAMWORDS; 
PRT(737) B STREAMWORDS 

BEGIN GTl * O; 
DO BFGiN 
lNFOri,r,Tl].LfNK*STACKHEAD[GT2*(T..lNFOri.GTl]).ADDRESS3l 
STACKHEADtGT?] * T.LINK* 
GTl * GT1+2J 
END UNTIL BOOLeANCT. FORMAL) END STREAMWOROSI 



0522S000 T 
05229000 T 
05230000 T 



05231000 
05232000 
05233000 
05234000 
05235000 
05236000 



00031058912 
0003t0569t2 
0003 « 0545 ta 

00031056912 
00031059014 
00031059112 
00031059513 
00011059611 
0003(060010 



^„ , ^ STREAM PROCEDURE DFBUGDESCcLiNt PRT* TYP. RELAOi SGNO) ; 

PRT(740) m DEBUgDESC 

VALUE PRT»TYP»RELAD.SGN0; 

begtn LOCAL count; 

DIULINJ DSi«6 LlT'» PRT^; SlULOC PRTi SpsSl + ft; TALLY»a4i 

3(iF sc.-o" Then % oont print leading zeroes. 

BEGIN SIl.SI+l* TALLYJbTALLY+63 END ELSE JUMP OUT); 

counti-tally; dsi«count chR; 

OSif 31 LIT«) m SEGMENT DESCRIPTOR. TYPE » "J 
SIULOC TYPI Sll*Sl + 7; DSiiCHR; % TYPE. 
DSf«2t LIT*** RELATIVE ADDRESS » "I 

SM.Loc relad; sn*si+(i»; ds«»4 chr; % rel. addr, 

DS»«19 LlT"t SEGMENT NUMBER » "; 

SjliLOC SfiNOI Sll»Sl*«| DSi»4 CHR; DSlwLiT".'*; 

END DEBUGDESC; 



05237000 T 00031060U3 



05237500 
05238000 
05238500 
05239000 
05249500 
05240000 
05240500 
05241000 
05241500 
05242000 
05242500 
05243000 
05243500 



0003» 
OOOlJ 
OOO3; 
OOO3I 
OOOS-t 
00031 
00031 
0003^1 
00031 
00031 
00031 
00031 
0003; 



0601 1 3 
060113 
060210 
060410 
06^044 1 
060712 
060713 
061^210 
061211 
061513 
06 011 
061912 
062011 



Real procedure PROGDEScBLDReTyPE»RELAD»SPAC); 

commfnt This procedure builds poprt as described above. it is 

CONCERNED WITH TYPE 1 ENTRIES. ThE INFORMATION FURNISHED 
BY PDPRT ALLOWS A DRUM DESCRIPTOR TO BE BUIlT FOR EACH 



05245000 
05^46000 

05247000 
05248000 



T 000310620*1 

T 0003 1 0620 »1 

I 00031062011 

T 00031062011 



segment and a pse 
The object time p 

TYPE 



RELAD 
SPAC 

ALL PROGRAM OESCR 

PDINX IS THE INOE 

VALUE TYPE»RELA 

BEGIN ir SPAC«0 T 

POPRT[PDINX, 

iiSGNOC 

IF OEBUgTOG T 

BEGIN 

BLaNKeTC 

debugdes 

IF NOhEA 
END' 

pdinx*p 



LJDp 

RT: 



IPTO 

X FO 

D»SP 

HEN 

t37l 

2»»3 

HEN 



PROGRAM DESCRIPTOR TO BE BUILT INTO 
The 3 PARAMETERS FUNCTION AS FOLLOWSJ 

This 2 bit quantity furnishes thf mode 
And argument bit for the program 
descriptor to be built, 
relative word address within segment 
iF«o then a space must be obtained 

IF?<0 THEN space IS ALREADY GOTTEN 
RS REQUIRE A PERMANENT SPACE IN PRT. 
R PDPRT.iT IS GLOBAL AND INITIALLY; 
ACJREAL TYPEiRELAD»SPACl 
SPACJ»GETSPACECTRUE»-2)JJ! DESCR. 
5]»PDlNX,t42»6n*-D4RELAD[l8j36ll03 
8«lO](lTVPE[4M6J2]&SPAC[8l38»103; 



lAtLlN)! 
r(LlN,B20(SPAC)»TYPE»B2D(RELA0).B2nCSGN0))| 

DING Then datime; writeline» 



♦pdinx+iiprogdescbldR*spac end progdescbldRi 



05249000 
05250000 
05251000 
05252000 
052!J3000 
05254000 
05255000 
05256000 
05257000 
05258000 
05259000 
05260000 
05261000 
05262000 
05263000 
05263500 
05264000 
05264500 
05265000 
05265100 
05266000 



T 0003«0620ll 

T 00031 0620 U 

T 00031062011 

T 0003»0620ll 

T 0003 10620 :i 

T 00031062011 

T 00031062011 

T 00031062011 

T 00031062011 

T 00031062011 

T 00031062011 

T 0003J0620I1 

T 00031062410 

T 0003l062l!3 

T 00031063112 

T 0003l0631<3 

T aooaiQ6a2io 

T OOO31O63313 

T 00031063712 

T 00011064814 

T 000310648(1 



PRT(741) • 



COMMENT OOTSYNTAX ANALYSES THE SYNTAX Op A PARTIAL WORD DESIGNATOR. 
IT REPORTS IF AN ERROR IS FOUND, IT RETURNS WiTh THE 
LITERALS INVOLVED; 
PROCEDURE DOTSYNTAXfFIRST. SECOND); 



BOOLEAN 
DOTSYnTAX 



INTEGER FiRST»SfC0ND; 
BEGIN 

LABEL EXIT; 



IF STEPI s FlELDID THEN % GET INFO FROM INFO 
BEGIN 

FIRST IS ELBATtn.SBlTFl 

SECOND »« elbatiu.nbitf; 

GO TO EXjT; 
END 
ELSE 

IF ELCLaSS « LFTBRKET THEN 
IF STEPI ' FIELDIO THEN 
BEGIN 

FIRST l» ELBATt IltSBlTF; 

Second «« elbaTlh.nbitf; 

IF STEPI « RTBRKeT THEN 
GO TO EXIT; 
END 
ELSE 

IF ELCLASS « LITNO THEN 
IF STEPi « COLON THEN 
IF STEPi » LiTNO TheN 
IF STEPi * RTBRKET THEN 
COMMENT TF TESTS ARE PASSfD THEN SYNTAX IS CORRECT; 

IF (FIRST * ELBAT[I-3]. ADDRESS) x 

(Second * elbatc i-n.ADDRESS)#o then 



11 

XI 
XI 
XI 
XI 
XI 
Zl 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 



05267000 
05268000 
05269000 
05270000 

05271000 
05272000 
05273000 
START OF SEGMENT 
05273100 
05273200 
05273300 
05273400 
05273500 
05273600 
05273700 
05273800 
05273900 
05274000 
05274100 
05274200 
0527.4-100 
05274400 
05274500 
05274600 
05275000 
05276000 
05277000 
05278000 
05279000 
05260000 
05281000 



T 00031065312 

T 0003»0653»2 

T 0003I0653«2 

T 0003I0653;2 

T 0003t0653;2 

T O0031065112 

T 0003I0653>2 

C QQ521QQO0J0 

C 00521000112 

C 00521000113 

C 00521000312 

C 0052>0005<2 

C 00521000513 

C 00521-0005-13 

C 00521000513 

C 0052tO006tl 

p 0052 1000810 

C 00521000811 

C 00521001011 

t 00521 0012 10 

C 00521001312 

C 00521001313 

C 0052 to Oil! 3 

P 00521001313 

T 0052(001512 

T 0052-^^01*11- - 

T 00521001810 

T 00521001913 

T 00534-00 -i9-U_ 

T 0052»0022t0 



COMMENT TF 



IF FIRST + Second < 'te Then 

TESTS ARE PASSrD THEM RANGES OF 
GO TO EXiT» 
FRRd 14)1 COMMENT ERROR IF 
DOTSYNTaX * TRUES EX1T» END 



LITERALS ARE O.K. a 

SYNTAX OR RANGE FAILSI 
DOTSYNTAXI 



05?82000 




0052I0025«2 


05?83000 




00521002712 


05P84000 




0052«002!'«2 


05285000 




00521002713 


05286000 




0052IX)028I0 



52 IS 32 UONG, NEXT SEG 



PRT(7«2) m CHECK 



BOOUFAN PROCFOURE CHECK f ELBATcUASS.Ff^fiORNUMBER ) S 

VALUE ELBATcLASS.tRRORNUMBERJ 
REAL ELBATcLASS,rRRORNUMBERl 
REGTN COMMENT CHECK COmPaRES ELBATcLASS WITh lABLEd), TF THEY 
ARE NOT EOUALr CHECK IS SET TRUE AND THE ERROR ROUTINE IS 
CALLED PASSING ERRORNUMBER. IF ThEY ARE EQUAL CHECK IS SET 
FALSE* 

IF CHECK«-(El,BATCLAS8 * TABtEfD) 
THEN ERRCERRORnUMBER); 

end; 



05287000 T 00031065312 



05288000 
05 2890 00 
05290000 
05291000 
05292000 
05293000 
05294000 
05295000 
05296000 



00031 
00031 
00031 
00031 
00Q31 
OOO3I 
00031 
00031 
00031 



065312 
065312 
0653^2 
0653«2 
0653 1 2 
065312 
065312 
065AII 
065712 



PRT(743) * RANGE 



BOOLEAN PROCEDURE RANGE( LOWER. UpPER ) ; 

VALUE LOWER, Upper; 

REAL L0WER#UPPER; 
COMMENT RANGE TfSTS ThE CLASS OF THE ITEM IN EL8AT[!3 TO SEE IF 
IT IS GREATER THAN OR fOUAL TO LOWER OR LESS THAN OR EQUAL TO 

UPPER aNd Sets Range to true or false accordingly, the items 

CLASS MUST BF JN ELCLASS; 

RANr.E*ELCLASS > LOWpR aNd ELCLASS i UPPER? 



05297000 T 00031065912 

05298000 T 0003»0659»2 

05299000. T 00031065912 

05300000 T 00031065912 

05301000 T 00031065912 

0S30200Q T 0001l06S9t2 

05303000 T 0003I0659J2 

05304000 T 0003l0659»2 



COMMENT GET OBTAINS A SYLLABLE FROM EDOC. THE ARRAY INTO WHICH CODE IS 

EMITTED? 
INTEGER PROCEDURE GETCL>> VAlUe l; REAL It 

Q r* r I kj 

INTEGER STREAM PROCEDURE GETSYLCW.S)! VALUE S) 



PRT(7«4) B GETSYL 



BEGIN DI * LOC gETSYL* DI * Dl+6> 

Si * W| Si » S|+S; Si ♦ Si+Sl DS * 2 CHR END! 



05305000 T 00031066410 

O53O6OOO T 0003l0664t0 

053 7.00 T 00 Q 31 066 4 i 

05306000 T 00031066410 

05309000 T 00031066410 

START OF Segment «♦**♦*♦.♦** 53 

05310000 T 0053*000010 

0531.1QQO T 00531000011 



GET * GETSYL(EDoC[L.t36»3J'L»t39l73]»L,[46»2]) END GETJ 



05312000 T 0053J0003I2 
53 IS 1 i ON 6 ♦ NEXT ^£ G - 3 



COMMENT CALL SWITCH PERFORMS THE FINAL MESS OF GETTING A PROPER DE' 



05313000 T 00031066410 



M 



SCRIPTOR TO THE TqP OF THE STACK; 
PROCEDURE CAULSWITCH(H); VALUE Hi REAL H> 
PRT(7(|5) m CALLSWITCH 

RffilN EMlTVfGNAT(H))> fM I TO C PRTE ) I EMITO(LOD) END CALLSWfTCHI 



05314000 T 0003J0664JO 
05315000 T 0003I0664I0 

05316000 T 0003«0664»0 



REAL STREAM PROCEDURE GET ALPHA C I NFO I NDEX # Si ZE ) I 
PRT{746) e GETALPHA 

VALUE SIZE ; 
BEGfN COMMENT gETALPHA PICKS ALPHA CHARACTERS OUT OF INFO AND 
FORMATS The id WORD THAT iS PASSED TO PRlNTj, ThE FIRST 
CHARACTER CONTAINS ThE SIZE. ThE NEXT CHARACTER CONTAINS 

alpha left justified with trailing zerosi 

duloc getalpha; ds*8 ltT"0 ••; dudi-z; 

SUInEoINDEX; Si«.SU3} DS»SIZE CHRJ 

End getalpha; 



05317000 T 00031066810 



THE 



05318000 
05319000 
05320000 
05331000 
053??000 
05373000 
05324000 
053?5000 



00031 
0003 » 
00031 
00031 

0003 > 
OOOsi 

0003> 
00031 



066610 
066640 
066810 
066810 
066810 
066810 
0669»3 
067011 



PRT(747) « 



PROCEDURE 
WRjTEPRT 

BEGIN 
LABFL 



WRlTEpRT(PORS»N»GS)» VALUE P0RS»N»GS; INTEGER PORS»N»GS; 



exit; 



053J»5010 T 00031067113 



PRT(750) • FILLIT 



STRfAM PROCEDURE F I LU I T( L I N, PORS» CELL* N i I 0) 1 

VaLuE PORS'CElLfN; 



HFGIN 
LOCAL 
LABEL 
ST J=L 
IF SC 

ELSE 



Sl««L 

3nF 

COUNT 
D5Js4 
CI U=C 
GO MO 



M0» 



GO 
GO 
GO 
GO 
GO 
GO 
GO 



Ml 
M2 
M3 
M4 
M5 
M6 
M7 



SI»»I 
ni i»D 



COUNT! 

M0»M1» 
Oc P0R5 
B^P" TH 
BEGIN 
BEGIN 
DS>»5 C 
IF Sc5t" 
rOUNTis 
DSt»ll 
END! 
oc CELL 
Scb^O** 
BEGIN 5 
IsTALLY 

LIT-) 

un; 

; 

; 

; 

I 

» 

; 

I 

; 

nt siisi 

14-7; ds 



M4,M5,M6,M7,XITI 

Sl+3; DIt'LiN; % "PRT" OR "STACK", 



M2,M3, 

; SI is 

en 

dS:''3 chr; ds»«lit"(") end 



HR; DS 

6" THE 

Di; Di 

RESET; 

; SI i« 

THEN % 
I ««&!+ 

; Dsi« 
* "; c 



fsLIT^C"; si««LOc CELL; sn«si+5; 
N DSf«2 LIT^F*-" list DS|s2 LlT^F*"; 

i«lOc cell; Dit«oi+4; 

D? UCOUNT; 

SU4; TALLYJsa; % LOCATION, 
DONT PRINT LEADING ZEROES, 
IJ TALLYi»>TALLY + 63 END ELSE JUMP OUT)! 
COUNT CHRJ TALLY»«0; COUNT « »T ALLY 1 
ELLUDI; % SAVE OUR PLACE. 



Sl+2; 

i»CHR; 



DIi»L0C COUNT; 
diibcell; DSiwcOUNT chRj 



05325020 

05325030 

START OF SEGMENT 

05325040 

05325050 
05325060 
05325070 
05325080 
05325090 
05325100 
05325110 
05325120 
05325130 
0S32SU0 
05325150 
05325160 
05325170 
05325180 
05325190 
QS 3 2 52 00 
05325210 
05325220 
05325530 
05325240 
05325250 
05125260 
05325270 
05325280 
05325290 
05325300 
05325310 
0532.5320 
05325330 



T 00031067113 

T 00031067113 

**ti******* 54 

T 00541000010 

T 005AIOOOQ1Q 

T 00541000010 

T 00541000010 

T 00541000010 

T 00541000010 

T 00541000011 

T 005.41000112 

T 00541000211 

T 00541000211 

T QQ54100Q4IQ 

T 00541000513 

T 005410006U 

T a054 10007 12 

T 00541000712 

T 00541000713 

T 00541000811 

T 00541001112 

T 00541001210 

T 005.41004312 

T 00541001313 

T 00541001410 

T Q054l5Qi4!0 

T 00541001411 

T 00541001411 

T 00541001.512 

T 00541001512 

T 00541001513 

T QOSft-LQilliia 

T 00541001611 



PRT(r51) 
PRT(752) 
PRT(753) 
PRT(754) 



GO XITI 
Mil nilsCELL) DSIW19 L I T"*TEMPORaRY STORAGE**** GO XITi 
M2l Dfi^CELLj 

DSl-36 LIT"*LIST» LAREl'* OR SEGMpNT DESCR I PT0R*"> GO XIT) 
M3l nUffCELL; dSI»27 LiT»'*cASE STATEMENT DEScR I PTOR*** J 60 XITI 
Mft» f)T«eCELL» nSJ»iy UIT^ + fORMaT descriptor*"! go XITI 
♦LIST, LABEL, OR SEGMENT DESCRIPTOR* 

M51 DTtmCELLJ DSl»?n LIT«*OUTeR BLOCK DESCRIPTOR**! GO XlT! 
♦LIST, LABEL, OR SEGMENT DESCRIPTOR* 

Ott-sCELL! DSl«?0 L IT«*SEGMF"MT DESCR I PTOR^"! GO XjT! 
OR SEGMENT DESCRIPTOR* 

oii-cell! DSiaiB lit«*label DESCR I ptor*'*; 

OR SEGMENT DESCRIPTOR* 



M6t 
♦LIST, LABEL, 

M7« 
♦LIST, LABEL, 

XITI 



05325340 
05325350 
05325360 
05325370 
05325380 
05325390 



PRT(755) • ♦LIST, LABEL, 



END riLLlT! 

OR SEGMENT DESCRIPTOR* 



053?5ftO0 T 

05325410 T 

05325420 T 

05325430 T 
05325440 T 



00541001810 
00541001810 
00541002210 
00541002312 
00541002610 
00541003312 

0054100371:2 

00541004113 

00541004512 

00541004811 
00541004811 



BLaNKfTCH.LIN)? 

IF Nal Then FILLIT{LIN,P0RS»GS,0,ACCUM[1]) 

ELSE IF N>1 Then F?LLlT(LlN,PORs»6S,O,lNF0tN.LlNKR,N.LiNKCl) 
ELSE FILLlT(LlN,PORS,GS,ABS(N),N)! 

IF nohfadinq Then datime! writeline! 

END WRiTEPRT! 



05325450 T 00541004912 



05325460 
05325470 
05325480 
05325490 
05325500 



T 0054»0051»2 

T 005410055^3 

T 00541006312 

T 00541006713 

T 00541007912 



54 IS 80 LONG. NEXT SEG 



PRT<756) B MASK 



COMMENT GFTSPaCE MAKES ASSIGNMENTS TO VARIABLES ANp DESCRIPTORS IN 

The stack and prt; Permanent tells whether it is a 

PERMANENTLY ASSjGnED CELL (ALWAYS IN PRT) OR NOT. NON 
PERMANENT CEllS ARE EITHER IN STACK OR PRT ACCORDING TO 
MODE. CARE IS TAkEN TO REUSE NON PERMANENT PRT CELLS! 
INTEGER PROCEDURE GETSPACEf PERMANENT* L ) ! VALUE PERMANENT»L! 

BOOLEAN PERMANENT! INTEGER L! 
BEGIN LABEL Lia2,EXiT| 

BOOLEAN STREAM PROCEDURE MASKCK); VALUE K! 

BEGIN DI«-L0C MASKi 01*01+2! SKIP K DB! DS*SET END MASK! 



05326000 
05327000 
05328000 
05329000 
05330000 
05331000 
05333000 
05334000 
START OF SEGMENT 
0534-1000 



0003 
0003 
0003 
0QQ3 
0003 
0003 
0003 

0003 

******* 

T 0055 



»067l«3 

1067113 

!067lt3 

1067113 

I067H3 

»067l»3 

1067113 

1067113 

♦ ♦♦ 55 

t 0000 10 



05342000 T 00551000010 



STACK(F+3) m M 

STACKeF*4) ■ Q 

STACK(F+5) s ROW 

STACK<F*6) u col 

STACK(F+7) n GS 



BOOLEAN M*Q> 



INTEGER ROW»COL,GSj 



IF Permanent 

THEN BEGIN 
IF PRTIMAX>1022 ThEN FLAG(148)!X 



05343000 T 00551000210 



05344000 T 00551000210 



05345000 T 00551000210 
05 346000 T 005^10003 12 
05347000 T 00551000313 



SPRTrGS*PRTiMAX;[38«5]] ♦ MaSk( PRT j MAX . f 43 « 5]-35 ) 

OR spRTrcS]; 
prtimax * (gs ♦ prtimax)+1 end 
flse if mode • thEn begin 

Q * SPRTlKOW ♦ PRT1»[38?5J]J 
M *■ MASKCCOL «• PRT I , r 4 3« 5 3-35) I 
COL * COL+35; 
Hi IF REALCM AND Q3 # 

Then begin 

IF REAUB00LfAN(GS*4294967296-REALCM)) AND Q) a GS 
THEN BEGIN 

COL * 0| M ♦ TRUEI 
IF ROW * ROW+1 > 31 

THEN BEGIN FLAG(146); GS ♦ PRTlMAXl 
GO TO L? ENdI 
Q •■ SPRT[ROW]> 

GO TO Li end; 

COL ♦ COL+ll M * BOOLEAN(ReaL(M)+REAL(M))J 
GO TO LI END; 
PRTl •• (GS ♦ 32xR0W + C0L) + lJ 
IF PRTI > PRTIMaX then PRTIMAX •• PRTl END 
ELSE BEGIN 

IF STACKCTR > 767 THEN FLAGClfl9){ 
STACKCTR «. (GS * STACKCTR) + 1I Q * FALSEI 
GO TO EXIT end; 
L2I IF.GS > 512 THEN GS ♦ GS+l02«; 

Q * true; 

EXITJ GETSPACE * GSJ 

IF GS > 1023 Then gS - GS-1024| 
IF PRTOG THEN WRlTEPRTflF Q THEN "PRT « ELSE "STACK", L. B2D( GS) ) I 

END getspace; 



55 IS 



05348000 T 
053*9000 T 
05350000 T 
05351000 T 
05352000 T 
05353000 T 
05354000 T 
05155000 T 
05356000 T 
05357000 T 
05358000 T 
05359000 T 
05360000 T 
05361000 T 
05362000 T 
05363000 T 
05364000 T 
05365000 T 
05366000 T 
05367000 T 
05368000 T 
05369000 T 
05370000 T 
05371000 T 
05372000 T 
05373000 T 
05374000 T 
05375000 T 
05376000 T 
05376100 T 
05378000 T 
67 LONG. 



0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
D055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
0055 
NEXT 



>0005I3 
(000912 
lOOlOtl 
1001211 
J00l4t0 
I00l6t0 
1001913 
1 0020 1 1 

1002113 
I0022tl 

1002411 

1002513 

1002712 

I0O2810 

1003011 

1003312 

|O04i(lO 

f0034U 

1003712 

1003714 

1004010 

1004210 

ia042l| 

1004411 

1004712 

1004713 

1005011 

I005l«2 

» 00521 I 

1005512 

1005913 

SEG a 



COMMENT ARRaYCHECK CHECKS A PARaMETER-I NFO WORD FOR SORT/MERGE; 
BOOLEAN PROCEDURE ARRAYCHECKf AAW ) J VALUE AAW» REAL AAWI 
PRT(757) s ARRAYCHECK 

ARRaYCHECk*-AAW.CLASS<BOOARRaYID or AAW,CLASS>INTARRAYID 

OR AAW.INCR ^ii 



05379000 
05390000 

05381000 
05382000 



T 00031067113 

T 0003106711a 

T 00031067113 

T 00.031067410 



COMMENT COMMAChECK LOOkS fOR COMMAS AND STEPS A«0UN0 THEMI 
BOOLEAN PROCEDURE COMMAChECKI 
PRT(760) m COMMACHECK 

BEGtN IF NOT(COMMAChECk*(STePIsCOMMA)) THEN ERR(350)I 
STEPIT 

END commacheck; 



05393000 T 0003l0679l2 

05384000 T 00031067912 

05395000 T 00031067912 

053960a0 T OOO31O4AII 2 

05387000 T 0003l0683>2 



COMMENT HVCHECK CHECkS VALIDITY OF HIVALU PROCEDURE FOR SoRTi 
BOOLEAN PROCEDURE HVCHECK( ELBW ) ; VALUE ElBw; REAL ELBWI 



05388000 
05399000 



T 000-3^1 04fi51 2 
T 00031069512 



PRT(761) 



hvchtck 



IF FLBW,CLASS?»PROCID ThEN f:RRC356) ELSF 

TF BOOlEAN(ELBW, FORMAL) THEN HVCHECK*TRUE ELSE 

IF TAKE(GTl*GlT(ELBW)),ti ThEN ERR(357) ELSE 

IF arraycheck(Take(gtui)) Then errosb) else 
hvcheck*truei 



05390000 
05390100 
05391000 
05392000 
05393000 



T 00031066512 

T OOO31O66611 

T 0003»0691«2 

T OOOH-0-69512 

T 00031069811 



PRTC762) w OUTPROChECK 



COMMFNT OUTPROCHECK CHECKS SORT/MERGE 
BOOLEAN PROCEDURE OUTPROCHECK (ELBW ) ; VALUE 



OUTPUT PROCEDURE,; 
ELBW; REAL ELBW; 



IF elbw.class#procid Then fRROsd else 

IF BOOlEANcELBW, FORMAL) ThfN 0UTPR0ChFCK*TRUE 

TF TAKE(GTi*GlT(ELBW))/2 ThEN ERRC352) ELSE 

IF TAKECGTi*1).ClaSS#B00ID Then ERR(353) ELSE 

IF ARRAYChECK(TAkE(GT1+2)) THEN ERR{35<>) ELSE 

outprochfck*truei 



ELSE 



05394000 T 
05395000 T 



05396000 
05396100 
05397000 
053 98 000 
05399000 
05400000 



00031070210 
00031070210 

0003 1 070210 
0003»0705«3 
00031070810 
00031074210 
00031071610 
0003»07l9l3 



PRT(763) • EQLESCHECK 



COMMENT EQLESCHECK CHECkS THE COMPARE ROUTINE FOR SoRT/MErGEI 

Boolean procedure eolescheckcEubw); value elbwj real elbw; 



IF ELBW.CLASS^BOOPHOCID THEN ERR(359) ELSE 

IF BOOLEAN CELBW . FORMAL) THEN EQLESCHECK «• TRUE ELSE 

IF TAKECGTl*GIT(ELBW))i*2 THEN ERRC360) ELSE 

IF ARRaYCHECKCTAKECGTUD) TyEN ERRC361) ELSE 

if arraycheckctakecgtu2)) then err(362) else 
eqlescheck*true; 



05401000 T 
05402000 T 



05403000 
05403100 
05AO4000 
05405000 
05406000 
05407000 



00031072312 
00031072312 

00031072312 
0003J0726il 
0QO310729I2 

00031073312 
00031073611 
00031074010 



COMMENT Routines 

COMMENT AEXP IS THE 
PROCEDURE AEXPl 

BEGIN 

IF elclass * 

THEN BEGIN 
ELSE BEGIN 
END AEXPI 



IN THIS SECTION COMPiLE CODE FOR ALL EXPRESSIONS; 
ARITHMETIC EXPRESSION ROUTINE; 



IFV 

IF IFEXP t» ATYPE THEN ERRC102) 

ARiTHSEc; SimpaRith end 



END 



06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



074312 
07 4 31 2 
074312 
074312 
074312 
074410 
074713 
074912 



Comment arithsec compiles first primary in an arithmetic expression 

In particular it handles P» ^Pt -P» AND -P^Q WHERE P 

And q are primaries; 
procedure ariThsec; 
begin 

IF ELCLASS m aDOP 

then begin 
stePit; 

IF ELBATrl'll. address « ADD THEN PRIMARY 



06008000 
06009000 

06010000 
06011000 

060 1 2000 
06013000 
06014000 
0601500O 
O6O16OOO 



T 0003l0749«2 

T 00031074912 

T 00031074912 

T 00031074912 

T .0003-L0749^U- 

T 00031074912 

T 00031075010 

T 00031^7-5112 

T 0003I075H3 



primaRyi 
While elcuass * factor do 

BEGIN STEPfTf PRIMARY; EMlTUP END» 
ENDTOG ♦ LlNKTOGI rMlTO(CHS)| 
LINKTOg «• ENDTOGJ ENDTOG ♦ FALSE END END 

ELSE PRIMARY END ARlTHSEC* 



XWF 

XWF 



06017000 
06018000 
06019000 
06020000 
06021000 
06022000 
06023000 



0003t 
00031 
00031 
00031 
00031 
00031 
00031 



075410 
075512 
075513 
075712 
075912 
076011 
076210 



COMMENT STMPARfTH COMPjLES SiMpLE ARiTHMeTjC EXPRESSIONS ON THE 

ASSUMPTION That an arithmetic primary has ALREADY BFEN 
COMPILED. IT AlSo HANDLES THE CASE OF A CONCATENATE 

Where actualparapart caused the variable routine to 

COMPILE ONLY PArT OF A PRIMARY, MOST OF THE WORK OF 
SimPARITH IS DONE BY ARlTHCOMPi AN ARTIFIAL ROUTINE 

Which does the hierarchy analysis using recursion, 
arithcomp is a subroutine only to get this recursioni 
procedure simparith» 
begin 

while ELCLASS « AMPERSAND 

do begin STEPITJ primary; PARSE ENDI 

while elclass>adop and elclass<factop do arithcomp enoi 



0602AO00 
06025000 
06026000 
060P7O00 
06026000 
060?9000 
06.030000 
06031000 
06032000 
06013000 
06034000 
06035000 
06036000 



00031 
0003» 
0003t 
00031 
00031 
00031 
00031 
00031 
0003* 
00031 
00031 
0003( 
00031 



076313 
076313 
076313 
076JJ 3 
0763»3 
076313 
0763»> 
076313 
076313 
Of 63i 3 
076313 
0764J0 
076712 



COMMENT ARITHCOMP iS ThE GUTs OF ThE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS, IT CaLLS PRIMARY AT APPROPRIATE TjMES AND 
EMITS The ARITHMETIC OPERATORS, THE HIERARCHY ANALYSIS 
IS OBTAINED BY RECURSION* 

PROCEDURE ARiThCOMP' 

BEGIN INTEGER OPERATOR. OPCLASSi 



06037000 
0603B000 
06039000 
06040000 
06041000 
06042000 



T 00031077113 

T 00011 077 U 3 

T 0003l077l»3 

T 0003»077l«3 

T 0003.1077113 

T 0003»0771«3 



STACKfF+2) 
STACKfF+3) 



OPERATOR 
OPCLASS 



START OF SEGMENT *♦♦♦♦♦»♦♦♦ 56 



DO BEGIN 

OPERATOR * 1 & ELBATtn [36117110]; 

COMMENT THIS SETS UP THE OPERATOR WHICH WILL BE EMITTED, 

ORDER TEN BITS qF THE OPERATOR ARE LOCATED IN 

OF The elbat word; 
opclass ♦ elclass; 

STEPIT; PRIMARY; 

IF opclass s factop then emitup 

ELSE BEGIN 

WHILE OPcLaSS < ELCLASS DO ARITHCOMP; 
comment THE CLASSES ARE ARRANGED IN ORDER OF HIERARCHY* 

STACKCT «. 1; 
EMlT(OPERATOR) END 
END UNTIL OPCLaSS * ELCLASS END ARITHCOMP; 



The HIGH 
117110] 



XA 



56 IS 



06043000 T 
06044000 T 
O6O45OOO T 
06046000 T 
06047000 T 
O6O48OOO T 
O6O49OOO T 
06050000 T 
06051000 T 
06052000 T 
060510.00 T 
06053500 T 
06054000 T 
06055000 T 
14 LONG, 



00S6I00OOI0 
0056 1 0000 10 
00561000210 
0056(000210 
005610^510 
0056I0002>0 
0056(000211 
00541004X31 3 
0056(0005(2 
0056(0006(0 
0056 1000 a JO 
0056(0006(0 
0056(000912 
005610009(3 
NEXT SEG 3 



COMMENT iMPfUN HANDLES ALL OF THE SPECIAL FUNCTjONSl 

PROCEDURE impfun; 



06056000 
06057000 



T 0QQJI0771I1 
T 0003(0771(3 



BFGIN 



Real ti»T2iT3 i 



STACKfF+2) a Tl 

STACKfF+3) m T2 

STACKfF*4) m T3 

5TACK(F*5) « B 



O6O58OOO 

06059000 

START OF SEGMENT 



T 00031077113 
T 00031077113 



L3» 



L2« 



Ul« 



Boolean b » 



DEFINE E 
LABEL AB 
MAX 
LABEL ER 
SWITCH S 



DEFINE M 
IF T2*(T 
T2#25 

stepi 

T2<2'» 

BEG 
IF 



IF 
IF 

IF 



RRX(E 
S, Si 

Af^DMI 

ROR»L 

♦ OT 

MA 

AXV • 

1*EL8 

THEN 

jtLEFT 

THEN 
IN 

TABLE 
IF 



ELSE 



AEX 
AEX 
END 
BEG 
IF 
IF 
EMI 
END 
n. T2<23 
ELSE IF 
STEPIT t 
IF T2<21 
BEG 
B*-E 

IF 

ELS 



p; 

IN 



RRX1)»BEGIN Tl»ERRXlJ 60 ERROR END #; 

GN« ENTIER* TIME* STATUS*! 

N« DELAY* OTHERS* EXiTiX 

1»L2.L3 ) 

HERS, ABS. SIGN. ENTIER, TIME* STATUS** 

xandmin. MAXANOMIN* DELAYIX 

6*1% 
ATriJ),[27t6]<9 THEN GO ScT2+l] ; 

EMITO(MKS) I 
PAREN THEN eRRX(105)> STePIT I 



(U1)»C0MMA THEN 

elclass>booid and elclass<booarrayid thfn 

BEGIN 

CHFCKER(T3«-ELBATtl3)J STePIT; STpPlT I 

AEXPJ EMlTV(T3, ADDRESS)! GO LI I 

fNd i 
r fLclass#comma then errxcso); steptt i 

F T?<24 THEN EMITO(XCH) t 



AEXp I 
EMITPAIR<9*5N0) t 



T2«24 ThEn go L2* EMITL(0)I 
ElCUASS^CoMMA then ERRX(eO); 
T0(l*l»8)> STEPIT; AEXp t 

i 

THEN BEGIN IF ELCLASS)<C0MMA THEN ERRX(80) END 
ELCLASS#RTPAREN THEN ERRX(104) J 



OR B Then 

IN EMITV(G 
LcLASS«iNt 

ELCLaSSSRf 

BEGIN EM 

E IF ELCLA 

IF E 

ELSf 

ELSE IF 



NAT(Tn) I 

ID OR ELCLASS«INTARRAYID 

OR ELCLASS«INTPR0CID il - 
ALIO AND EL.CLASS<INTID THEN 
iTNCELBATtn. ADDRESS)! STePiT END 
S5<B00lD AND ELCLASS>BOOPR0C 10 THEN 
LBAT[Il,LlNKi*PROlNFO,LlNK THEN FLAGf211) 

BEGIN EMlTL(5l4)l STEPiT END 
ELCLASSSLABELID AND ELCLASS>B0OaRRAYIO 

Then variable(fl) 

E ERRXC185) ! 

paren Then frrx(io«)i stepit t 

EN ISD ELSE STD)! EMITV(l7); gO EXIT J 



fLS 

IF ELCLASSiiRT 

EMiTOdF B Th 

END J 
IF T2<23 THEN ■ 

BEGIN % DMOD* DARCTAN2 

8»TRUEI Go L3 i 

END ! 
IF T2<25 THEN BeGIN EM I TV( GnAT ( Tl ) ) I GO EXIT END | 



O6O5905O T 0057»0000»0 



06059100 
06060000 
06060100 
O6O6O11O 
06061000 

060611 ao 

06061200 
06062000 
06042110 
06062120 
06062125 
06062130 
06062135 
06062140 
06Q6214S 
06062150 
06062155 
06062160 
06062165 
06062170 
06062175 
06062180 
06062185 
06062190 
06062195 
06062200 
06062210 
06062220 
06062230 
06062280 
06062285 
06062290 
06042295 
06062340 
06062350 
06i) 62370 
06062380 
06062385 
0606-2^90 
06062400 
06062420 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
X 

T 
T 



06062430 T 
06062435 T 
06062440 T 
0404347-0 T 
06062480 T 
06062500 T 
061)42535 T 
06062540 T 



00571000010 
00571000010 
0057lD-0ai)Ji) 
00571000010 
0057f0000t0 
OJ057lQilD2ll 
00571000713 
00571000713 
00571004 313 
00571001513 
00571001811 
0057l00i9»3 
00571002010 
00571002113 
005710024 JO 
00571002411 
00571002712 
00571002912 
00571002912 
0057I0033»3 
0057-1003410 
OO571OO36IO 
00571003611 
00571003912 
0057I0042»1 
0057J0044U 
0Q57.«PO44«l 
0057(004811 
00571005113 
00571005210 
0057»0053«3 
005710055*2 
0057 1 00541 a 
00571006811 
00571006010 
0057 tQQ42!-l 
00571006512 
0057«0068«0 
.0X)57lQfl-7ill4 
00571007210 
00571007313 
01)571.00X513 
00571007811 
0057I0082«0 
01X5710 Q42J a.. 

0057I0083»2 
00571 0083 » 3 

oosriOQaMi 

00571008411 



ERRORJ 

othfRSj 



ABSl 
SIGN« 



ENTyFRt 

maxanomin 



EMITD 
ERR(T 
EMITO 

panai 

EMITV 

Panai 
pana; 

FMITO 
EMITD 

Panai 

EMITP 

ir ST 
Begin 



delayi 



TiMf« 

statusj 



1)1 

(MKS) 

(GNAT 
EMIT 

(DUP) 

(1»1* 

EMIT 

AIRCJ 

EPfL 

STEP 

WHILE 

BEGIN 



M)l EMITVC9); 
GO EXiT ; 
I 



EMIT0(ADD)J GO EXIT I 



(Tn)j gO to EXITI 
0(SSP)J GO TO eXITI 

I fMlTU(0)l EMiTO(Nf-Q)J 

1)1 GO TO exit; 

NUMf.5)> EMiTO(SUB); 
UNK.ISN); GO TO EXiTI 



EMiTO(XCH)> 



EFTPAREN TheN ERR(105) EUSeX 
iTf AEXPa 

elclass»comma OOX 

STEPfTj EMIT0CDUP)> AEXP;« 
EMlTPAlR(JUfgK. SnD);X 

IF T2»maxv then emitoclss) else 
EMITPAIRC2» bfoj emitocdedi 



EMITO(GTR) I 
EMITV(JUNK)I 



END»X 

IF ELCLASS#RTPAREN THEN ERRClOA) ELSE STEPlTjX 



endu 

GO To 
IF ST 
BEGIN 
STEPI 
BEGIN 
STEPi 
BEGIN 

stept 

BEGl 
EMITP 
GO TO 
PANAJ 
GO TO 
IF ST 
IF ST 
BEGIN 

END E 



EXIT 

EPI)«U 
ERRC 

t; a 

ERRC 

T> A 

ERR( 

t; a 

N EfR 

AIR(3 

EXIT 

EMIT 

EXIT 

EPif'U 

EPI'S 

EMIT 

EMITP 

lSE B 

IF El 

BEG 
IF Ti 

BEGIN 
END E 



EXIT« END 



ENDi end; 

GTIUOI 
DO EMlTO(D 
IF ELCLASS 
GO TO EXIT 
IMPFUNI 



EFTPARE 
105)» 
EXP) I 
165)1 
EXPJ I 
165)» 
EXP I I 
(104)1 
1* COM) 

n 

li\}i E 
f 

EFTPARE 

upeRfil 
C16); 

AIR(3?» 

EGIN EM 

class>b 

IN TuF 

■Fi The 

EMiTpA 

LSE BEG 

BEGIN E 

ELSE BE 

EM 

IF 

BE 

ST 

ENDI 



N THENI 

GO TO EXIT ENDIX 

F ELCLASS#COMMA THEN* 

GO TO EXIT ENDIX 

F ELctASS^COMMA THEN* 

GO TO EXIT ENDIX 

F ELcLASSltRTPARfN ThENX 

GO TO EXIT END ELSE STEPlTlX 

I FMITOCDEDI EMlTO(OEL)IX 

MlTO(COM)l 

N THEN BEGIN ERRC105)I GO TO EXtT ENDI 
FID OR ELCLASS.FILEID ThEN 
EMIT(0)I EMIT(0)I PASSFILEI 

COM)J Ti*3l 
IT(/|)| EMIT(0)I Ti«-0> 
OOARRAYID AND ELCLASS<I NTARRAY ID THEN 

II VARlABLE(Ti); END ELSE AEXPI 

N 

lR(Of XCH)J EMITPAIR(32» COM)l Tl*3 

IN IF ELCLASS»RTPAREN THEN 

MIT(0)I EMITPAIR(32? COM)l Tl*3 END 

GIN EMIT0(XCH)I EMIT0(DEL)I 

ITOCXCH); EMITOCDEDI 

ELCLASS>*COMMA THEN 
GIN £:RRC129)| GO TO EXIT ENDI 
FPITI AEXPi eMITPAIRC28«C0M)| TUll 



EL) UNTiL 6TI1*GTi1*1«T1IX 
I'RTPAREN THEN ERRClOA) ELSE STePITI 
I 



06062560 
06062565 
06064000 
06065000 
06066000 
06067000 
06066000 
06069000 
060rOOOX) 
06071000 
06072000 
06072010 
06072030 
06072040 
06072050 
06072060 
06072070 
06072080 
06072090 
06072100 
06072U0 
06072120 
06072130 
06072200 
06072210 
06072220 
06072210 
06072240 
06072250 
06072260 
06072270 
06072260 
06072290 
06073000 
06073100 
06073200 
06073250 
06073300 
06073150 
06073400 
06073450 
06073500 
06073550 
06073600 
06073650 
06073700 
06073750 
06O73Bfl0 
06073810 
06073820 
06073830 
06073840 
06073845 
06073-85^0 
06073860 
06073870 
060740X)0 
57 IS 193 LONG* 



0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
QD57 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 

oasT 

0057 
0057 



006713 
0091*2 
009210 
009313 
009410 
A096IO 
009713 
009611 
010413 
010312 
010610 
010912 
010912 
011112 
Oll^M 
011410 
011610 
011712 
012010 
0l22il 
012412 
012610 
012610 

012611 
0l26t0 
012913 
013113 
013312 
013512 
01-3611 
013611 
014112 
014313 
014410 
014712 
014713 
015011 
0152*1 
015610 
0l57«3 
016011 
Q1621Q 
016512 
016610 
Ql^Bll 
017011 
0173U 



X)0571A17513 
00571017712 

00571017713 
00571011913 

00571018210 
0057t0l82«0 
0057iaiB3^l2 
00571018610 
00571018912 
005710445^4 
NEXT SEQ 3 



COMMENT PRIMARY 
Op 

DE 
CA 

procedure: prima 

BE 
lA 



SW 



^ compiles 
The conca 

SiGNATORS, 

SES) 

RYJ 

GIN 

BEL 



ARITHMETIC PRIMARIES, IT HANDLES MOST CASES 
TENATr AND SOME CASES OF THE PARTIAL WORD 
ALTHOUGH VARIABLE HANDLES- ThE MORE COMMON 



COMMENT 



LN 
LA 
GO 
IF 
IF 



L12I L13 
COMMENT 



» L17 

NO P 

IF 

ER 



L20# 
L30» 
ITCH S * 

L20» 
L30» 
IS THE LAB 
BEL EXIT»R 
TO S[ELCL 
ELCLASS * 
ELCLASS'F 
BEGIN 
IF FILE 
GO TO L 
FND I 
L2U L25 
RIMARY MAY 

rel and E 

R(103); GO 



Lll» Ll?» 
L21i L22» 
L31» L32» 



L13# 

L23» 
L33» 



L14' 

L24t 
L34> 



Ll5t 
L25. 
L35» 



L16» 

L26* 



Ll6i 
L26* 



Lll* Ll2f L13« L14« L15i 
L21. L22» L23» L24» L25t 
L31» L32» L33» L34» L35I 
EL FOR THE CLASS Nt 
P»LdOT»LAMPERJ 

ass-pr0cid3i comment go 
unknownid then errclooji 
iletd or elclass»supfrfileid 



117» 
L2T, 



Ll7» 
I27i 



Lie* 

L28* 



lie* 

L28» 



Ll9. 
L29. 



Ll9i 
L29» 



TO PROPER SyNTAXERI 



THEN 



ATTRIbUTEHANDLER(FP)!«ATYPE then FLAG(294J 
AMPfR J 



] L29l L30t 

BEGIN WITH QUANTITIES WITH 
LCLaSS « BOOARRAYiO THEN GO 

TO EXITI 



THESE 
L22) 



CLASSES! 



Lin 

COMMENT 

L14t L15 
COMMENT 
IF aRRa 

L18J Ll9 
COMMFNT 

IF aRRa 

L22« L23 
COMMENT 
IF aRRA 

L32I 
COMMENT 

L31I L33 
COMMENT 

L35« 
COMMENT 



INTRINSIC FUNCTIONS! 

IMPFUN! STACKCT «• STACKCT"!! GO TO LOOTJ 
» L16I 

STREAM PROCEDURE FUNCTION DESIGNATORS! 
YFUAG THEN CHECKBOuNdLVLJ 

STRMPROcSTMT! go TO LoOT! 
! L20« 
ORDINARY FUNCTION DfSIGNATOKSI 

yflag Then checkbouNqlvl! 
procstmt(false)l 6© to loot! 

« L24« L26I l2Tt L28« 

variables, simple and subscripted! 
yflag Then chEckboundlvl! 
vaRiablecfp); go to lampeR! 

literals - i.e. integers between and 1023! 

EMlTfO«ELBATtI] t36fl7ll0])l STEPITIGO TO LAMPERI 
t 

STRINGS AND NONLITERALSJ 

EMITNUM(C)! STEPIT! GO TO LAMPER! 

COULD BE REAL TRANSFER FUNCTION, 
EXPRESSION - OTHERWISE AN ERRORi 
IF ELBATUl. ADDRESS » REALV ThEN 



XA 



IF IT IS COMPILE BOOLEAN 
BEGIN 



06075000 
06076000 
06077000 
0607B000 
06079000 
06080000 
06081000 
START OF SEGMENT 
06082000 
06083000 
06064000 
06085000 
06086000 
06087000 
06088000 
06089000 
06090000 
06091000 
06092000 
06092005 
06092010 
06092015 
06092020 
06092025 
06093000 
06094000 
06094950 
06095OQQ 
06096000 
06097000 
Q609S00O 
06099000 
06100000 
06100100 
06101000 
06102000 
06103000 
06103100 
06J04000 
06105000 
06106000 
06t06l00 
06107000 
06106000 
06109000 
061} 0000 
06111000 
06112000 
061 1 3000 
06114000 
06U5000 
06116000 
06117000 



0003 107711 3 
00031077113 
0003I0771«3 
0003 10771 « 3 
0003»0771«3 
0003I0771I3 
00031077113 

00581000010 
00581 OOOO-IO 
00581000010 
00581000010 
0058100021 1 
00581000211 
00581000211 
0058100 15 J 3 
00581001513 
0058i00l5t3 
00581001811 
00581002011 
0058»0022»0 
005a!Q022U 
005810025J2 
00581002513 
00581002513 
00581002610 
00581002610 
005810.02^X0 
00581002912 
0058I0030J0 
00581003010 
00581003210 
005810033(2 
00581003312 
00581003410 
00581003512 
00581003610 
00581003610 
00581003712 

Dosftieojeu 

005810039(2 

0058(003912 

005.8.1 QQflOl.0. 

00581004113 

00561004210 

Q05aiilQ4210 

00581004512 

0058(004512 

00581004512 

00581004611 

005610047(2 

00541004712- 
0058(004712 






L34I 
COMMENT 



RPl 

LDOTi 
UAMPfRi 



COMMENT 
EXiTi 



ir STePi # UEFTPARtN 

THEN BEGIN ERR(105); GO TO EXiT ENDI 
STEPjTl BEXPl GO TO RP END? 

if elbatli], address = intv then 

Begin pana» fMiTPaiRcjunki iSN); go to loot endj 

ERR(106)> go to EXITI 



steptti aexpj 

STACKCT ♦ STaCKCT-U 
IF ELCLASS / RTPAREN THEN 
STEPlTI 

ooTi COMMENT This checks 
STACKcT ^ stackct*i; 
While elcuass * ampersand 

DO BEGIN STtPlTl PRiMARri PARSE 

This code handles cancatenatesj 
End primaryi 



BEGIN fRR(10«)J go EXIT ENDI 
FOR PARTIAL WOROSI 

ENDI 



XA 



lA 
SA 



58 IS 



06118000 T 0058 

06119000 T 0058 

06120000 T 0058 

06120100 T 0058 

06120200 T 0058 

06121000 T 0058 

06122000 T 0058 

06123000 T 0058 

0612«000 T 0058 

06124500 T 0058 

06125000 T 0058 

06126000 T 0058 

06127000 T 0058 

0612S000 T 0058 

O61285OO T 0058 

06129000 T 0058 

06 J 30000 T 0058 

06131000 T 0058 

74 LONG# NEXT 



(004912 
1004913 
I0051«3 
l0053«2 
1005411 
I0057J2 
1005811 
1005912 
1005912 
1006010 
1006112 
«0064«l 
10065«2 
1006611 
1006810 
1006912 
1007210 
1007210 
SEG 3 



COMMENT BFXP IS THE BOOLEAN EXPRESSION ROUTINFI 
PROCEDURE BEXPI IF EXPRSS * BTYPE THEN ERR(107)I 



06132000 
06133000 



T 0003«0771I3 
T 00031077113 



COMMENT EXPRSS IS A GENERAL 
ANY GIVEN TYPE 
BY GIVING AS A 



EXPRESSION ROUTINE CAPABLE OF 
OF EXPRESSION. IT REPORTS ON 
RESULT EITHER ATYPEiBTYPEi OR 



COMPILING 
ITS ACTION 
DTYPr 



DEPENDING ON WHfThER IT COMPILED AN ARITHMETIC. BOOLEAN, 

OR designaTional expressioni 
integer procedure exprssl 
Begin 

IF ELCLASS . iFV 

Then begin 

IF EXPRSS * IFEXP s ATYPE 

THEN IF FLCLASS * RELOP ThEN 
ELSE IF EXPRSS ♦ BOOSEC s BTYPE 
END EXPRSS; 



ERR(108) END 

Then simpboo 



06134000 
06135000 
Q613600Q 
06137000 
06138000 
061 39000 
O614OOOO 
06141000 
06142000 
06143000 
06144000 
06145000 
O6146OOO 



00031 
00031 
00 Oil 
00031 
0003t 
0003 1 
00031 
00031 
0003< 
00031 
00031 
OOO3I 
0003t 



077411 
077411 
077411 
077411 
077411 

07741 1 
077411 
077411 
077512 
077610 
077712 
078010 
078211 



STACK(F+3) M N 



COMMENT BOOSEC COMPILES EITHER A BOOLEAN SECONDARY OR AN ARITHMETIC 
EXPRESSION OR A OfSI GNAT I ONAL EXPRESSION. IT REPORTS 
AS EXPRSS REPORTSi 

INTEGER PROCEDURE BOOSeC; 

BEGIN BOOLEAN Nj 



IF N •- ELCLASS « NOTOP THEN STePITI 
GT4 * BOOSEC ♦ BOOPRIMI 

IF N THEN BEGIN EMiTLNSl EMlT(O); L * L-lJ 
COMMENT THF LAST LiNe IS PREPARATORY, LATER ROUTINES USE THE 



061470Q0 
O6148OOO 
06149000 
06150000 
06151000 



T QQQ3I078512 

T 00031078512 

T 0003»0785«2 

T 00031078512. 

T 00031078512 



START OF Segment ♦♦*♦**♦*♦♦ 59 



06152000 
061S3000 
06154000 
06155000 



T 00591000010 

T 0059I0002»0 

T 005S-1000 3 13 

T 00591000712 



RESULTS HERE TO ELIMINATE PAIRS Op LNGSJ 
IF GT4 * BTYPE ThEN ERR(1093 
COMMENT AN ARITHMETIC OR DeS I GNAT I ONAU EXPRESSION MAY NOT BE 
LOGICALLY NEgATeDI 

END END BOoSeCI 



59 IS 



06156000 T 
06157000 T 
06158000 T 
06159000 T 
06160000 T 
12 LONGf 



00591000712 
00591000712 
00591000811 
00591000811 
00591000811 
NEXT SEG 3 



\ 
V 

i 



COMMENT SiMPBOO COMPILES SIMPLE BOOLEAN EXPRESSIONS ON ThE ASSUMPTtON 

That a boolean pRimary has already been compiled, it 
alSo handles the case of a concatenate where actualpara- 

PART caused the VARIABLE ROUTINE TO COMPILE ONLY PAST OF 
A PRIMARY, MOST OF ThE WORK OF SIMPBOO IS DONE BY BOO" 
COMP. AN ARTiFIAL ROUTINE WHICH DOES THE HIERARCHY ANA- 
LYSIS USING RECURSION* 
PROCEDURE SiMPBOO; 
BEGIN 

WHILE ELCLASS » AMPERSAND 
DO BEGIN 

stepiti 

if boopr|m# btype then err(109)j 

parse end? 

WHILE ELCLaSS > eQVOP aND ELCLASS i ANdOP DO BOOCOMP 
END BOOcOMP} 



06161000 
06162000 
06163000 
06164000 
06165000 
06166000 
06167000 
06168000 
06169000 
06170000 
06171000 
06172000 
06173000 
06174000 
06175000 
06176000 



T 0QJD3L07fl5.l2 

T 0003(078512 

T 0003«0785I2 

T 0003ia7B5l2- 

T 0003'0765I2 

T 0003»0785I2 

T O0X>3l07d5-l^ 

T 00031078512 

T 00031078512 

T 00031078512 

T 0003i0786i0 

T 00031078712 

T 00031078-743 

T 00031079010 

T 000310791*2 

T 00031079312 



COMMENT BOOCOMP IS THE GUTS OF THE BOOLEAN EXPRESSION ROUTINE ANALYSIS. 
IT CALLS BOOSEC AT APPROPRIATE TIMES AND EMITS THE BOOLEAN 
OPERATORS, THE HIERARCHY ANALYSIS IS OBTAINED BY RECUR- 
SION! 

procedure boocomp; 

Begin integer opclass, operator* label exiti 



STACKfF+2) 
STACKfF+3) 



opclass 
operator 



06177000 T 
06178000 T 
06179000 T 
06180000 T 
06181000 T 
06182000 T 
START OF SEGMENT 



00031079411 
0003 1 0794 «1 
00031079411 
0003«0794»l 
00031 07941 1 
0003*0794*1 



)|i«4i*««»*4i« 



60 



Do 



BEGIN 

OPERATOR * I & ElBATLIJ [36*17*10]* 
COMMENT THIS SETS Up THE OPERATqR WHICH WILL BE EMITTED, 
ORDER TEN BITS oF THE OPERATOR ARE LOCATED IN 
OF THE ELBAT WORDi 

opclass ♦ eLclass; 
stepiT; 

IF BOOSEC # BTYPE 

THEN BEGIN eRR(109)| GO TO EXiT END* 
WHILE OPCLaSS < ELCLASS 

DO IF ELrLASS < ANDOP THEN 
ELSE BEGIN eRRCHO)* qO 
COMMENT THE CLASSES ARE ARRANGED IN ORDFR OF 

STACKCT ♦ 1* 
IF OPCLASS * IMPOP 
THEN BEGIN 

COMMENT Since imp is not i^ 

ONE, NOTICE THAT 



The HIGH 
tl7llO] 



BOOCOMP 

TO EXIT end; 

HIERARCHY* 



%k 



THE MACHINE RePETOIRe We MUST CONSTRUCT 
WE USE EMITlNG in one spot TO OBTAIN 



06183000 T 0060*0000*0 

0618^44)00 T 0060(0000*0 

06185000 T 0060*0002*0 

06186000 T 0060*0002*0 

06187000 T 0O40.100O210 

06188000 T 0060*0002*0 

06189000 T 0060*0002*1 

06190000 T 0A6i0-IO0O3J-2- 

06191000 T 0060*0003*3 

06192000 T 006010006*0 

06193000 T OOAOIQOOMO 

06194000 T 0060*0008*1 

06195000 T 0060*0011*2 

06 1 9-5500 T OOfiflJ 00 1 i 12 

06196000 T 0060*0012*0 

06197000 T 0060*001210 

0619MOO T 00ft0JQ0tat2 

06199000 T 0060*0013*2 



w 



rxiT» 



The canceling or possible multible lngs, 

EMITTED PKOVlDES THE POSSIBILITY Or DOING 
FUTURE, CSEE CODE FOR EmITlnG)! 

emitlngj 

EMiTOfLND); 
EMlTO(LNG)i 
EMlT(0)l 
L 4. L-1 END 
ELSE EMIT(OPERATOR) 
END UNTIL OPCLASS * ELCLASSI 
END BOOCOMP; 



ALSO 

This 



The 
IN The 



06?00000 
06201000 
06?02000 
06?03000 
06204000 
06205000 
06206000 
06207000 
06206000 
06209000 
06210000 



60 IS 23 LONG, 



0060100 
0060100 
0060100 
0060(00 
0060100 
0060100 
0060 too 
0060100 
0060100 
0060100 
0060100 
NEXT SEG 



13»2 
1312 
13«2 
I3t2 
13«3 
1411 
15*2 
1610 
17J2 
1610 
1913 



COMMENT BOOPRIM COMPILES BOOLEAN PRIMARIES* 
DfSIGNATIONaL EXPRESSIONS, IT 
INTEGER PROCEDURE BOOPRlMj 

Begin integer tyPfi 



AND arithmetic OR 

Reports as exprss reportsj 



STACKfF*3) a TYPE 



LABEL 



SWITCH 



L9, 

HO* 

L20. 

L30» 

S «■ 

LIO* 

L20» 

L30* 



Lll. 

L21* 

L31, 

L9, 

Lll, 

L21, 

L31* 



L12» 
L22. 
L32* 



Ll3» 
L23» 
L33» 



L14, 
L24. 
L34* 



Ll5. 
L?5, 
L35I 



Ll6. 
L26. 



Ll7, 

L27. 



Ll8* 
L28, 



Ll9, 
L29, 



L16. 
L26, 



Ll7, 
L27, 



LIS, 
L28* 



Ll9. 
L29, 



L12, Li3» L14, LI. 5, 

L22» L23* L24t L25. 

L32* L33f L34» L3S2 
comment LN IS THE LABEL FOR THE CLASS Nl 
LABEL EXIT.LE»D.To»T> 
LABEL FAH ^ 

GO TO StELCLASS-SUPERFlLEIDlJ 
IF ELCLASS « ADOP THEN GO TO LIU 
IF ELCLASS = UNKNOWNio THEN ERR(lOO); 
IF ELCLASS»FILEID OR FLCLASSbSUPERF I LE I D THEN 
PEGIN 

pOOPRIM*TYPE«-FILEATTRlBUTEHANDLER(FP) ; 
GO FAH I 

END J 
Li2l 

NO BOOLEAN PRIMARy* ARITHMETIC EXPRESSION, OR OES I GNAT lONAL 

EXPRESSION May begin with quantities with These classfsi 

ERRCllDI GO TO exit; 

IF GTl * eLBAT[|]. ADDRESS « BOOV 

Then begin panaj go to td end; 

IF GTl * REALV THEN BEGIN ERRcll2); GO 
L15« Ll6» H6| Ll9l L20I L22t L23t L24« 
L32» L33» 

arithmetic 

AEXP; 
D« TF ELCLASS f RElOP THEN BEGIN BOOPRiM «■ ATYPE;G0 EXIT END; 

relation; 

booprim * btype; go to exit; 

H3« 
COMMENT boolean STREAM PROCEDURE DESIGNATOR; 

IF aRRayflag Then checkboundlvl; 



LE« L10» 
COMMENT' 



L35» 



LH« L14J 
L31 J 
COMMENT 



TO EXIT end; 

L26I L27t L28; 



TYPE stuff; 



06211000 
062 12000 
06213000 
06214000 

start of Segment 

06215000 
06216000 
06217000 
06216000 
06219000 
06220000 
06221000 
06222000 
06223000 
06224000 
06224500 
06225000 
06226000 
06227000 
06227500 
06227510 
0622752Q 
06227530 
06227540 
06226000 
06229000 
06230000 
062 3 I 000 
06232000 
06233000 
06234000 
06235000 
06236000 
06237000 
06238000 
06239000 
0624^000 
06241000 
06242000 
062^^3000 
06243100 



T 0003I0794»1 

T 00031079411 

T 0003«0794»1 

T 00031079411 

*«4i«*«ili«*» 61 

T 00611000010 

T 0061 1 0000 10 

T 00611000010 

T 00611000010 

T 00^11 0000 to 

T 006l»0002tl 

T 006ll0002tl 

T 0061 100021 1 

T 006lt00l6tj 

T 0061l00l6tl 

T O0AII0046II 

T 0061t00l6tl 

T 00611001913 

T 00611.002011 

T 00611002211 

T 00611002411 

T 0061 1 QQ25J 2 

T 006lt0026(l 

T 0061l0027t2 

T 006llQflalLZ 

T 0061t0026l0 

T 006ll0026t0 

T 0061 1002^ 10 

T 00611002912 

T 006ll0031t3 

T oo^iiooiiia 

T 006ll0036t0 

T 00611003610 

T a06H0036tO 

T 006lt0036t0 

T 00611003611 

T 00*11-003^91-1 

T 006lt0040tO 

T 00611004112 

T 00611004210 

T 006lt0042t0 



STRMPROCSrMTl GO TO iDi 
L17» 
COMMENT BOOLFAN PROCEDURE DESIGNATOR; 

IF arRayflag Then chfckboundlvd 

PROcSTMT(FALSE)» gO to JOi 
L21I L?5t 
COMMENT BOOLEAN VARIABLES; 

IF aRRayflag Then checkbouNdlvl; 
vaRiablfcfP); go to t; 

L9l L.29« 

COMMENT LABfLS aND SWITCHfS; 

DEXPJ BOOPRIM ♦ DTYPEJ GO TO rXlTJ 
L30I 

COMMENT TRUr OR FALSE; 

EMiT(:08ELBATri]r*5?26tn); stePit; GO TO t; 

L34J 
COMMENT (; 

STEPlTI TYPE * BOoPRiM ♦ EXPRSSi 
COMMENT COMPILE THE EXPRESSION. WHATEVER IT IS; 

STACkCT *■ STACKCT-i; XA 

IF ELCLASS * RTpAREN THEN BEGIN FRRClOft); GO TO EXIT fND; 

stepit; 

FAH« 

IF TYPE « dtype Then go to exit; 

COMMENT FINISHED IF EXPRESSION COMPILED WAS DES I GNAT I ONAL; 

IF TYPE » btyPe Then begin 

TD« dot; COMMENT HANDLES PARTIAL WORdS; 

TI STACKCT «- STACKcT + i; XA 

While elclass « ampersand do xa 

comment handles concatenate; 
begin 
stepiT; 
if booprim * btype 

THEN BEGIN FRR{109); GO TO EXIT END; 

PARSE end; 

BOOPRiM «. bTYPE; GO TO EXiT END; 
COMMENT IF NOT BOOLEAN OR DeS I GNAT I ONAL , MUST COMPLETE ARITHMETIC 

expression; 

dot; simpaRith; go to d; 
ExiTi end booprim; 



06244000 
06?45000 
06246000 
06246100 
062A7000 
06246000 
06249000 
06?49l00 
06250000 
06251000 
06252000 
06?53000 
06254000 
062S5000 
06?56000 
06?57000 
06258000 
06259000 
06260000 
06260500 
06261000 
06262000 
06262500 
06263000 
06264000 
06265000 
06266000 
06267000 
06267500 
06268000 
06269000 
06270000 
06271000 
06272000 
06273000 
06274000 
05?75000 
06276000 
06277000 
06278000 



61 IS 83 LONG* 



006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
NEXT 



1I0043;2 
11004410 
11004512 
11004512 
11-0046^10 
1(004713 
11004810 
11004810 
11004912 
11005011 
J 1 40 511 2 
110051*2 
11005211 
1100531-2 
11005312 
11005610 
11 0056 10 
1 1005610 
11005810 
11005810 
11005912 
11006113 
llQ062i0 
i;0063t2 
11006410 
11006410 
11006513 
1»0067I3 
11006912 
11007112 

iioon»2 

11007112 
1I0071«3 
1I0072«0 
11007411 
11007513 
11007611 
1 {007611 
11007611 
11007913 
SEG 3 



COMMENT RELATION COMPILES RELATIONS. IT ASSUMES THAT THE LEFThAND 

expression has already been compiled; 
PROCEDURE relation; 
begin 
integer operator; 

stacK(f+2) » operator 

Real a; 

STACK(F+3) 3 A 

boolean signa»constaNa,Simple»many.sigN; 

STACK(F4.4} a SIGNA 
STACKfF+5) n CONSTANA 



06279000 
06280000 
06261000 
06282000 
06282200 



T 0003»0794»1 

T OOQJI079411 

T 00031079411 

T 00031079411 

T 00031079414 



START OF SEGMENT ♦***♦♦♦♦*♦ 



62 



6282 4 T 00 62 1 1 
06282600 T 00621000010 



STACK(F+6) » SIMPLE 
STACKfF+Z) a MANY 

STACKfF+iO) 3 Sign 



PRT(764) « PLUG 



DEFtNF FORMALNAMF = t9j?]a?f) 

PROrFHURE PLUGfc#A,s); vauUe c»a»si boolean c.sj real AJ 



BEGIN 

IF c Then emitnum(A) 

ELSf begin CHECKER(A)I 

IF s Then emito(ChS)i 

END PLUGI 



EMITVcA. ADDRESS) ENDJ 



06282800 T 
06?83000 T 



06283200 
06283400 
06283600 
06283800 
06284000 



0062l0000t0 
00621000010 

00621000010 

00621000010 
006210001 12 

0062)000410 
0062*000513 



DO 



COMMENT 



FLSp 



END 



BEGIN 

opeRator««i 
set up code 
emitted lat 

The HI6H-0R 
ARE TAKEN F 
El, BAT WORD 
TF MANY The 
IF SIMPLE 

signai.fals 
if stepikad 

IF SlGN««EL 
CONSTANAJbE 
AJsREAL(ELC 
AND NO 
SiMPLElsfCO 
IF SIMPLE T 
BEGIN 
IF CON 
PLUGfC 
END 
ELSE BEGIN 

n»i-R 

IF ELC 
FNDI 

STACKCTtBi; 

IF MANY The 
BEGIN 

MANYJaTRUEl 

END UNTIL E 
RELATION) 



SELBATri]t36«l7JlO]; 

FOR Relational operator to be 

ER (AFTER PROCESSING SECOND HALF). 
DeR bits of the BINARY OPERATOR 
ROM THE [l7»lO] FIELD OF THE 

FOR The Relational symbol* 

N 

THEN PLUg(CONSTANA^A,SIGNA) ELSE EMITV(JUNk)* 
EJ 

OP then SiGNA»«ELBATtI].ADDRESS»SUBI 
CLASS. ADOP THEN STEPlTI 

lclass>nonlitno and elclass<strngcon» 

LASS^REALtD and ELCLASS<INTID 

T ELBATtn.FORMALNAME); 

NSTANA OR BOOLEAN(A)) AND STEPl»REL0PJ 

HEN 

STANA Then A«»C else A«bELBAT[I-1]| 
ONSTANA»A,SiGNA) 



EAL(SlGN)-2; STePIT) AEXPJ 
LASSsReLOP THEN EM I TPA I RC JUNKi SND) ; 



emttcopfRatoR); 

N EMITO(LND) 
FMIT(O); Ll»L-l END* 

LCLaSS/RELOP 



0&284200 
06284400 
06284600 
06284800 
06285000 
06285200 
06285400 
06285600 
06285800 
06286000 
06286200 
06286400 
06286600 
06286800 
06287000 
06287200 
06287400 
062876QQ 
06287800 
06288000 
06288200 
06288400 
06288600 
06286800 
06289000 
06289200 
06289400 
06289600 
06289800 
06290000 
06290200 



62 IS 49 LONG. 



00621000513 

00621000610 

00621000^4 

00621000810 

0062tOOoa>0 

0062*000810 

OO62*00oBt0 

0062>0006<0 

006210006*0 

0062*0012*0 

0062*0012*1 

00621001610 

0062*00i8«l 

0062*002011 

006210021*3 

0062*0024*1 

0062*0027*2 

0062*002713 

0062*002610 

0062*0031*3 

0062*003210 

0062*0032*1 

0062(0033*2 

00621003610 

0062*003610 

0062*003610 

0062100391-3 

00621004011 

0062*004313 

00621004.4.1 1 . 

0062*004411 

NEXT SE6 3 



COMMENT IFFXP cOMPiLFS CONDITIONAL EXPRESSIONS. IT REPORTS THE TYPE 

Op EXPRESSIONS aS EXPRSS REPORTS; 
INTEGER PROCEDURE IFEXP* 

BEGIN INTEGER T yPF » THENBRANCHtELSEBRANCH* 



STACKfF+3) 
STACKfF*4) 



TYPE 

thenbranch 



06292000 
06293000 
06294000 
06295000 
START OF SEGMENT 



T 00031079411 

T 0003*079411 

T 00034079411 

T 0003*0794*1 



STACKfF4.5) » ELSEBRANCH 



COMMENT COMPILE 1ST EXPRSS* 



IFCLAUSEJ 

STACKCT * 0' XA 

THENBRANCH * BUMPL? 
COMMENT SAVE L FOR LATER FiXUPl 

IFEXP * TYPE ♦ EXPRSS; 

STACKCT ♦ 01 XA 

ELSEBRANCH ♦ BUMPL; 

eMitb(bfc»thfnbRaNch»L)i 

IF ELCLaSS # ELSeV then eRR(155) ELSE BEGIN 

stePiti 

IF TYPE ■ aTyPE then AEXP eLSe 
IF TYPE s dTyPE THEN DEXP ELSE BEXPl 

STACKCT ♦ il %^ 

COMMENT THtS COMPILES PROPER TYPE SECOND EXPRSSI 
EM I TBCBFW, ELSEBRANCH* L) I 
EMlT(l)> L * L-ll 
COMMENT THIS iS USED BY EMITLNG TO CLEANUP CODE, COMPARE WiTH 

BOOSEC* BOOCOMP, AND RELATIONI 

END END IFEXPJ 



06?96000 
06?96500 
06?97000 
06298000 
06299000 
06299500 
063QQi)00 
06301000 
06302000 
06303000 
06304000 
06305000 
06305500 
06306000 
06307000 
06308000 
06309000 

06310000 
06311000 



63 IS 23 LONG* 



0063 
0063 
0063 
0063 
0063 
0063 
Q063 
0063 
0063 
00^3 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
00A3 
NEXT 



I 0000 10 
iOOOOIl 
1000112 
1000X12 
1000312 
1000411 
L0005I2 
1000712 

loooeto 

tOOlOll 
1001112 
t00i3l2 
1.00 16 10 
1001712 
I00i7t2 
too 1810 
1002010 
1002010 
1002010 
SEG 3 



PROCEDURE PARSE JXCOMPJLES CoOE FOR THE CONCATENATE i 
BEGIN INTEGER F I RST. SECOND, Th I RD; 



STACK(F*2) » FIRST 

STACKfF+3) a SECOND 

STACK?F*4) m Third 

STACK(r*5) s PI 

STACKfF*6) s P2 

STACKCF*?^) s P3 



START 



06312000 

06312500 

OF SEGMENT 



T 0003r0794tl 
T 0003«0794tl 



BOOLEAN Pl*P2»P3l 



LABEL L1.L2*L3,SKiPi,SkiP2,EX1T; 
IF ELCLASS « FIELOID ThEN 
BEGIN 

FIRST l» ELBATt H.SBlTn 

SECOND «* 4B - (THIRD J» ELBAT f 1] .NBl TF ) I 

GO TO SKlPD 

END 
r LS F 

IF ELCLASS * LfTBRKET THEN BEGIN ERR(90)I60 TO EXIT ENoi 
IF STEPI « FIELDID ThEN 
BEGIN 

FIRST tp ELBATrn^SBlTF; 

SECOND «■ 46 - (THIRD I* ELBAT [ n , NBI TF ) > 
IF STEPI # RTbRKET THEN 
BEGIN 

ERR(94)J 
GO TO EXIT? 
END I 
60 TO SKlPlJ 

END 
ELSE 

IF ELCLASS * LITNO ThEN % PREPARE FOR DYNAMIC DIAL 



%\ 




X] 




%] 




XI 




XI 




X] 




XI 




XI 




X] 




X] 




XI 




XI 




XI 




XI 




XI 




X] 




XI 




XI 




X] 




XI 





06313000 T 0064IO000I0 



06313500 

06313550 

06313600 

06313650 

06313700 

06313750 

06313800 

06313850 

0611 4000 

06314050 

06314100 

061141- 5X)- 

06314200 

06314250 

06314300 

06314350 

06314400 

06314450 

06314500 

06314550 

063l46i)0 

06314650 



T 

C 
C 
C 
C 
C 
C 
C 
T 

C 

C 

c 
c 
c 
c 
c 
c 
c 
p 

c 
c 
c 



00641 
0064t 
00641 
00641 
0064( 
00641 
00641 
00641 
00641 
00641 
00641 
00641 
0064t 
00641 
00^641 
00641 
00641 
00641 
00641 
0064t 
0064! 
00641 



OOOOtO 

000010 

0000 fl 

000112 

000211 

00^512. 

000513 

000513 

1)00514- 

000811 

000913 
OXliBli). 

00il»3 

001410 

ao 1-513- 

00l5«3 

001611 

0.01112 

001712 

001713 

&O47I.3 

001713 



GO TO l\; 
FIRST ♦ c; 

IF TABLECI + l) !B COLON THEN 
BEGfN 

STEPlTl 

IF FIRST iO THEN FLAr.C92); 

fnd fuse 

BEGtN 

111 FMlTOfMKS)J 

AEXPJ 

Pi •• TRUE? 

IF ELCLASS # COLON ThEN BEGIN ERR(9UIG0 TO EXIT ENDI 
FMi 

IF STEPI * LiTNO THEN GO TO L2? 

SECOND ♦ C t 

IF GTl • TABLEfI+1) a COLON THEN 

begtn 

STEPlTi 

IF SECOND <0 THEN FLa6(092)J 
END FLSF 
BEGtN 

IF GTl « RTBRKeT THEN 
BEGIN 

STePiTj 

SECOND * 48 • (Third * second)* 

GO to SK1P2I 

endj 

L2» IF NOT Pl THEN BEG I N. EM I T0( MKS) > EM I TL{F I RST ) ENO> 
AEXPl 

Pl *■ P2 ♦ TRUEJ 
IF ELCLASS 8 COLON ThEN 



FLSF 

IF ELCLASS «s RTBRkeT ThEN 

begtn 

EMITO(DUP); 

EMITL(48) IEM|T0(SUB)> 

EMlTOfCHS);EMITOtXCH)> 

P3 - TRUEI 

GO TO SKlPi; 
END ELSE BEGIN ERR(9UIG0 TO EXfT END* 
ENDl 

IF STEPI * LlTNO THEN gO L3 f 

THIRD *- CI 

IF TaRLE(I+1) b RTBRKET TheN 

begin 

STrPlTl 

SKIP?: IF Third so or third > 47 then flag(95)i 

end ELSE 

BEGtN 

L3I IF NOT P2 THEN 

BEGTN 

IF NOT Pl THEN BEGlN EMI TOc MKS ) ; eMiTL(F I RST ) fNOI 
FMITL(SECOND)* 

end; 

AEXP; 



X117' 



06314700 

06315000 

06315500 

06316000 

06316500 

06317000 

06317500 

06318000 

06318500 

06319000 

06319500 

06320000 

06320500 

06321000 

06321100 

06321500 

06322000 

06322500 

06323000 

06323500 

06324000 

06324500 

06325000 

06325500 

06326000 

06326500 

06327000 

06327500 

06328000 

06328500 

06329000 

06329100 

063292D0 

06329300 

06329350 

06329400 

06329450 

06329500 

06329550 

06329600 

06329700 

06329800 

06329900 

06330000 

063305QQ 

O633O6OO 

06330700 

0633.0800 

06331000 

0633U00 

06331200 

06331300 

06331500 

06331600 

06331700 

06331800 

06332000 

06332100 



0064I0018>1 

00641001912 

00641002010 

0064(002113 

00641002210 

00641002211 

00641002411 

00641002411 

0064JOa25l2 

00641002611 

00641002712 

00641002810 

00641003011 

00641003011 

0Q6illQQJ2JQ 

00641003210 

00641003211 

00641003512 

00641003513 

0064l0036t0 

006410^3810 

00641003810 

00641003811 

0^641003912 

00641003913 

OO64IOO4OIO 

00641004210 

00641004211 

00641004211 

00641 004514 

00641004610 

00641004712 

00641004810 

00641004810 

OO64IOO48IO 

00641004811 

OO641OO4913 

OO64IOO5OIO 

0064100511a 

00641005211 

00641005410 

00641005411 

00641005512 

00641005712 

0064 IQ0S7 L2 

00641005811 

00641005912 

QQ641-QQA1J.2_. 

.00641006113 

00641006210 

00641006512 

00641006513 

0X^64 1 006^1 4,-. 

00641006712 

00641006913 

00^4 10^7 010- 

00641007010 



i 
i 
i 
I 
I 
I 
« 
i 
i 

4 

i 

i 



Pi* P?«.P3 ♦TRUE' 

IF FLClASS * RTBRkeT Then begin ERR(94)IG0 to exit ENDl 

ENDl 

SKipi t IF Pi Then 

BEGtN 

IF NOT P2 THEN EMi TL( SpCOND ) J 

IF NOT P3 THEN 
BEGfN 

FMITLCTHIRD>>EMITL(1)I 

FMlTVfGNAT(OlALER))> 

EMiT(TRB » THlR0t36»42l63)) 

END ELSE 
BEGIN 

EMtTL(0)I 

FMITV(6NAT(DIALER))J 

EMlTOfDFL); 
ENDl 
END ELSE 

begtn 

IF FIRST + Third > 48 or Second + third > ^e then flag(0953; 

EMiTDf SECOND. FIRST, Third)* 
ENDl 

STEPlTj 
EXIT! STACKCT » il 
END PARSE) 



64 IS 



063 
063 

063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
063 
9 



32200 
32300 
32400 
32500 
33000 
33500 
34000 
34100 
34200 
34500 
34600 
34700 
35000 
35100 
35200 
35500 
35700 
36000 
36100 
36200 
36300 
36400 
36500 
36600 
36700 
7 UONGf 



0064I0070M 
0064t0Q72i 1 
00641007512 
00641007512 
0064r007^»2 
00641007513 
00641007713 
0064t4)07B10 

00641007611 
00641006010 
O064i008iI2 
0064t00e3>2 
0064t0063<2 
00641006313 
00641006410 
00641008513 
00641006610 
00641006610 
0064l00e6t0 
0064JOQ66I1 
0064(00901 1 

00641009210 
0064lQ<}92JO 
00641009211 
0064(009313 
NEXT SEG 3 



COMMENT DOT COMPILES CODE FOR PARTIAL WORD DES I GNATORS.EXCEPT FOR 

THOSE CASES HANDLED BY ThE VARIABLE ROUTINE I 
PROCEDURE OOTITJ 

BEGIN INTEGER F ? RST . SECOND I LABEL EXiT; 



STACKfF*2) 
STACKfr+3) 



FIRST 
SECOND 



START 



EXiT« fND D0TIT» 



IF DOTSYNTAXCFIRST. SECOND) THEN GO TO EXITJ 

EMlTlfO, FIRST, SECOND); 

STEPIT* 



XA 



06337000 
06337100 
06338000 
06339000 
OF SEGMENT 



T 0003«0794tl 
T 000310794-11 
T 00031079411 
T 00031079411 

♦♦♦#♦♦♦♦»♦ 65 



65 IS 



06340000 T 
06341000 T 
06342000 T 
06343000 T 
06344000 T 
06345000 T 
06346000 T 
7 LONG. 



00651000010 
00651000010 

00651000113 
00 65 1-000113 
00651000312 
00651000312 
00651000313 
NEXT SEG 3 



comment gengo constructs the call on an intrinsic procedure which 

prepares a label descriptor for the mcp, the mcp expects 
The f-register and the blockctr to be in this descriptor. 
So That storage can be properly returned, the blockctr 

IS AN object time COUNTER IN A FIXED CELL IN THE PRT. IT 
IS INCREMENTED aNd DECREMENTED AT ENTRY AND EXIT FROM 

blocks.if necessary. the code to do this is compiled by 
The block routine, in a procedure, the blockctr at entry 



06347Q00 
06348000 
06349000 
06350000 
06351000 
06352000 
06353000 
06354000 



00031 
00031 
00031 

ooa3i 

00031 
00031 
00031 
00031 



079411 
079411 
079411 
0.7941 1 
079411 
079411 
079411 
0794»l 



mf 



IS ALSO STORED tN F+1> 
PROCEDURr GENGOfELBATWORD)! VALUE ELBATWOROJ REAL ELBATWORDJ 
BEGIN INTEGER TlEVELI 



STACKfF+2) a TLEVEL 



06355000 
06356000 
06357000 

START OF Segment 



EMITO(MkS); 

IF TLEVEL - ElBaTWorO.lVL > JUMPCTR THEN 
JUMPCTR ♦ TLEVELi 
COMMENT JUMPCTR iS USED BY THE BLOCK ROUTINE TO THINK ABOUT 

INCREMENTING AND DECREMENTING THE BLOCKCTR. HERE WE TELL 
BLOCK ROUTINE ABOUT THE LEVEL TO WHICH OUR BAD GO TO jS 
JUMPING! 

IF TLEVEL < FRStlEVEL OR MODE » 
THEN BEGIN 
COMMENT OUR BAD GO TO iS jUmPING OUTSiDE OF ALL PROCEDURES* 
EMIT(0)| 

emitl(TleveL) end 
else begin 

EMITNC512)J 

EMITV{513)J COMMENT PRK UP BLOCKCTR AT FNTRV 

FROM F+i; 
IF TLEVEL * TLEVEL - SUBLEVEL -1 # 
THEN BEGIN 

EMITL(TLfVEL)J 

'EMitO(aDd) COMMENT IF JUMP IS NOT TO SAME LFVEL 
AS AT ENTRY TiMEf FUDGE THE COUNTER; 
END END; 
EMlTVcGNAT(GOTOSOLVER)) COMMENT CALL THE INTRINSIC* 
END GENgOJ 



T 0003I0794U 
T 00031079411 
T 0003I0794U 

4i«4ii|i*4>««** 66 



66 IS 



06358000 T 
06359000 T 
06360000 T 
06361000 T 
06362000 T 
06363000 T 
06364000 T 
06365000 T 
06366000 T 
06367000 T 
06368000 T 
06369000 T 
06370000 T 
06371000 T 
06372000 T 
06373000 T 
06374000 T 
06375000 T 
06376000 T 
06377000 T 
06378.000 T 
06379000 T 
063BO0OO T 
06381000 T 
18 LONG. 



00661000010 
00661000011 
006« I 000211 
006610003*3 
00661000313 
00661000113 
00661000313 
00661000313 
00661000411 
006610006(0 
00661000610 
00661000411 
00661000713 
00661000810 
00661 0008J1 
00661000913 
00661000913 
00661Q011I2 
00661001210 
00661001312 
00661001313 
006610013)3 
0066l00i3«3 
Q066<00i4ll 
NEXT SEG 3 



STACK(F+2) 8 S 
STaCK(F*3) s F 

STACKfF*4) » eLBW 



COMMENT DEXP COMPiLES DESi qNaT i ONAL EXPRESSIONS. FOR THE MOST PART 

IT ASSUMES That a communicate IS GOING TO BE USED AGAfNST 
The LABEL DESCRIPTOR iN ORDER TO OBTAIN GO TO ACTiONf 
STORAGE RETURN* AnO STACK CUT BACK. HOWEVER IF IT NEVER 
SETS G0T06 To TrUE THEN THE LABELS ARE ALL LOCAL AND NO 
COMMUNICATE WILL BE DONE; 
PROCEDURE DEXP; 
BEGIN 

LABEL EXITI 

BOOLEAN S»F; 



START 



REAL ELBW; 

IF CS » ELCLaSS 8 SWITCHIP) OR ELCLASS « LABELID 

Then begin 

CHECKERrELBW ♦ ELBATtl])! 

scatterelbaTi 

IF LEVEL * LEVELF OR F ♦ FORMALF THEN GOTOG ♦ TRUE; 
IF FAULT06 ThEN 

IF 5 OR F Then faultlevel*-i else 

IF faultlevel>levelf Then faultlevel*levelf; 



06382000 
06383000 
06384000 
06 385000 
06396000 
06387000 
06388000 
06389000 
06390000 
OF SEGMENT 
06391000 



00031 
00031 
00031 
00031 
00031 
00031 
000^1 
0003« 
00031 

.*«*«.. *«.*!!>. 

T 00671 



T 
T 
T 
T 
T 
T 
T 
T 
T 



0794; 1 

0794»1 

079411 

079411 

079411 

079411 

0794X1 

0794tl 

079411 

♦* 67 

000010 



06392000 T 00671000010 



06393000 
06394000 
06395000 
06394000 
06397000 
06397100 
Q63975i>0 
06397300 



00671 
00671 
00671 
0047; 
00671 
00671 
047 1 
00671 



000010 
000113 
0002M 
00XX4J0 
0004il 
000713 
OOOAJO 
OOiOll 



EXITI 



IF s Then begin 

BANAI EMiTpAlR(jUNK# iSD)» 
EMTTVfGNATfELBW)); 
IF F THEN GO TO EXIT; END 
EUSE BEGIN 
STEPIT? 

IF F THEN BEGIN EM I TV( ADDRSF ) I GO TO EXIT ENDI 
EMiTUcGNATfELBW)) ENDI 

gfngocelbw); 
end else if exprss * dtype then err(115); 

END DEXPJ 



67 IS 



06398000 T 
06399000 T 
06(100000 T 
06401000 T 
06fl02000 T 
06403000 T 
06404000 T 
06405000 T 
06406000 T 
06407000 T 
06406000 T 
29 lONGf 



0067 
0067 
0067 
0067 
0067 
0067 
0067 
0067 
0067 
0067 
0067 
NEXT 



lOOiJtz 

i00iai3 
1001512 
1001611 
1.001713 

tooieio 

1001811 
1002011 
1002113 
1002211 
1002312 
SEG 3 



PROCEDURE IFCUAUSeI 

Begin stepitj stackct * oj bexpi 

IF EUCLASS # THFNV THEN ERR(ll6)EUSE STePIT 
COMMENT PANA COMPILES THE CONSTRUCT: C<ARlT, EXP,>)I 



END 



XA 
IFCLAUSI 



06409000 
06410000 
06411000 
06412000 



T 00031079411 

T 00031079411 

T 0003»0796ll 

T 00031079913 



procedure panai 

Begin 

IF STEPI * LEFTPaREN THEN eRR(105) 

ELSE BEGIN STEPITI AEXPI IF ELCLASS # RTPAREN TheN 

err(i04) elSe stepit end end pana; 



06413000 
06414000 
06415000 
06416000 
06417000 



T O003t0800l0 

T 00031080010 

T 0003»0800»0 

T 0003«0801I3 

T 00031080411 



COMMENT SANA COMPILES THE CoNSTRUCTi [<ARITh, EXP,>]I 

procedure bana) 

Begin 

IF STEPI * LFTbRkET THEN ERR(117) 

ELSE BEGIN stepit; AEXpi IF ELCLASS # RTBRKET THEN 



ERR(lia) ELSE STEPIT END END BANA 



; 



06418000 
06419000 
06420000 
06421000 
06422000 
06423000 



T 0003«0807I2 

T 00031080712 

T 00031080712 

T 0003J0807I2 

T 00031 060611 

T 0003«08lli3 



PRT(765) 
STACKfF*2) m I 



PROCEDURE makealabel; 

MAKE aLABEL 



06500000 T 000310&IA10 



BFGIN LABEL EXjT; REAL U 



STREAMTOG.-FALSE; 

EMiTocMKS); passfile; 

IF ELCLASSjtWiTHV THEN 

BEGIN ERRC3O1); GO TO eXiT ENDI 
FOR I«-l STEP 1 UNTIL 6 DO 

BEGIN IF STEPI'FACTOP TheN 

BEGIN EMlT(4); EMiTO(CHS)J STePIT fND 
ELSE AEXP* 
IF ELCLASS»tCOMMA THEN GO TO EXiTi 



06501000 T O003I0814J0 
START OF SEftMfHT **»*i*-*.#.*« dfl 



06502000 
06503Q00 
06504000 
06505000 
OdSHfiflQa 
06507000 
06508000 
06509000 
06510000 



0068 
0068 
0068 
0068 
.QQA& 
0066 
0066 
0066 
0068 



lOOOOtO 
lOOOQli 
< 0002)0 
1000211 

laooA-n 

1000610 
1000712 
!0OQ913 
tOOlOli 



ENDI 
EXiTi FOR I l*I STEP 1 UNTlU 5 
BEGIN EMlT(ft)IEMlTO(CHS) END* 
EMiTLdi ); 

EMITV(5)> 
ENDi 



DO 



06511000 
06512000 
06512100 
06512200 
06513000 
06514000 



T 006di00ll<3 

T 006BI0014I0 

T 006«l&0i5l2 

T 00661001611 

T 00661001913 

T 006Aia02010 



68 IS 23 U0N6. NEXT SE6 



PRT(766) 



COMMENT This SfCTiON CONTAINS THE STATEMENT ROUTINES! 

COMMENT COMPOUNDTAIL COMPfLES COMPOUNDTA I LS, IT ALSO ELIMINATES 

COMMENTS fOLLOWtNg ENqS. AFTeR ANY ERROR, ERROR MESSAGES 
ARE SUPPRESSED. COMPOUNOTAIL IS PARTIALLY RESPONSIBLE 
FOR RESTORING ThE ABlulTY To WRiTE ERROR MESSAGES. SqME 
CARE IS ALSO TAkEn Tq PREVENT READING BEYOND THE henD,»«> 
PROCEDURE COMPOUNOTAIL; 
COMPOUNDTAIL 

BEGIN LABEL ANOTHER* 



ANOThfR' 



I ♦ I-W 

errortog 

STEPITI 
IF STRea 
IF ELCLA 
IF ELCLA 

Then b 

ERRd 
ENDTOG*TRU 
DO STOPOEF 

STEPI 

OR NO 
ENDTOG'-FAL 

IF BE 
THE 



BEGINCTR * BEGlNcTR*ll 

* TRuEl COMMENT ALLOW ERROR MESSAGES! 



then streamstmt else 
semicolon then go to 
endv 

go to another end! 



FLAG (l?0)f 

FCRJ* f|.CR»«MKABS(CBUFFr 

IF LiSTpR Then printcard 

FCRJ« (LCR««MKABS(TBUFF[ 

IF EL 
BEG 



MTOG THEN STREAMSTMT ELSE STMTj 
SS K SEMICOLON THEN GO TO ANOTHERI 
SS * 

EGIN 
19)) 

INE*TRUe UNTIL 

SENDV AND ELCLASSiUNTlLV 

T ENDTOqI 

se; 

GINCTR ♦ BEGlNcTR-1 * EQV ELCLASS « PfRIOD 
N BEGIN 

IF BEGINCTR • THEN 
BEGIN FLA6CH3)! BEGINCTR * ll GO ANOTHER 



93))-9» 

; 

9j)?-9 END? 
CLASS » PERIOD THEN 
IN 

GT5 ♦ •♦N0»EN0,*'&'*E'*tll43t5]; 
M0Vf.(lfGT5,CBUFFt0J)! 
LASTUSED*4; 

ELBATrUI-2] ••SPECIAL[2P]; 
ELCLASS • SEMICOLON END 
END COMPOUNDTAIL* 



ENDI 

«104' 

X104' 

«lOfl- 

X104' 



07000000 T 

orooiooo T 

07002000 T 

07D03Q00 T 

07004000 T 

07005000 T 

07006000 T 

07007000 
START OF SEGMENT 

07008000 T 
07009000 T 
070 14) 0(^0 T 
07011000 T 
07012000 T 
07013000 T 
07014000 T 
07015000 T 
07016000 T 
07017000 T 
07018000 T 
0701900Q T 
07020000 T 
07021000 T 
07022000 T 
07023000 T 
070?4000 T 
07025000 P 
07025010 C 
07025020 C 
07025Q30 C 
07026000 T 
07027000 T 
70280 QO T 
07029000 T 
07030000 T 
Q70.31-D0Q.T 
07032000 T 
07033000 T 
69 IS 56 LONG* 



0003»08i4|0 
0003)081410 
00031081410 
00031 0.B4 4JO 
0003>06i4IO 
0003l08l4t0 
0003* 081 410 

T 00031061410 

«««.*.** «*«.4l 6-9 

00691000010 
00691000211 
00^9ia003»3 
00691000410 

00691000611 
004910007*3 
0069t0008)0 
00691000912 
0069 too 10 to 
0069t00llt2 
0069)001113 
0069 )DQ 1112 
0069)0015)2 
0069)0015)3 
0069 tQOl 7)3 
0069)00l9)2 
0069t00i9)3 
OQ69tQ&22lO 
0069)0023)2 
0069)002610 
QQ69 1004210. 
0069)0045)2 
006910046)0 
0Qft9iaDik6U . 
0069)0046)0 
0069)0090)0 
0O65iQO5i)ll. 
0069)0053)2 
0069)0054)0 
NE-XT SEO 1 



comment actuaparapart is responsible for constructing all calls on 
Parameters, it handles the entire parameter list with 
one call, it is also responsible for checking for 



07034000 
0701SOOO 
07036000 



T 0003)0814)0 

T aooato^i^ia 

T 0003)0814)0 



PRT(76r) m 



procedure 
actualparapart 



STACKfF+2) 
STACK(F+3) 
STACK(F*4) 



» PCTR 

» aclass 
s sclass 



STACKrF+5) » WHOLE 



STACKfr+6) s VBtT 



STACK(F+7) a Tl 
STACK(F+10) a T2 
STACK(F*in » T3 
STACK(F+12) « Ta 
STACK(F+13) « T5 
STACK{F+l«) = T6 



NON-CORRfSPONDENCF OF THE ACTUAL AND FORMAL PARAMETERS, 
CONCERNING The PARAMETERSl 

FBlT TELLS If Tre PROCEDURE BEING CALLED IS FORMAL 

OR NOT, 
SBlT TELLS IF THE PROCEDURE BEING CALLED IS A STREAM 

PROCEDURE OR NOT. 
INDEX IS The INDEX INTO INFO OF iHE ADDITIONAL 

information; 

ACTUaLPARAPART{fBIT»SBIT,INDEX)| 
VALUE FBlT.SBiT, INDEX? 

Boolean fbit,sbiTi 
integer index! 

BEGIN 

INTEGER PCTR,aClASS,SCLASSI 



07037000 
0703B000 
07039000 
O7O4OOOO 
07041000 
07042000 
07043000 
07044000 
07045000 

07046000 
07047000 
07046000 
07Q49000 
O7O5OOOO 



00031 
00031 
00031 
0003' 
00031 
00031 
0003t 
00031 
00031 



081410 
08 14 10 
081410 
081410 
0&1410 
081410 
081410 
081410 
081410 



00031 0814LO 
00031081410 
0003*061410 
0003108-1410 
0003*081410 



START OF SEGMENT ♦*♦♦*♦♦♦** 



70 



COMMENT 

pcth |s a count of the number of parameters 

compiled, 
aclass ts The class 
sclass tS The class 

They aRE put in a 

TO ALLOW INTEGER, 
SIMILAR meanings* 
REAL WHOLE* 



OF THE ACTUAL PARAMETER- 
OF The FORMAL PARAMfTCR, 
NORMALIZED FORM IN ORDER 
REAL. AND ALPHA TO HAVE 



COMMENT WHOLE CONTAINS ThE ELBAT WORD OF THE ACTUAL 
PARAMETERS* 
BOOLEAN VBiT; 

comment vbit tells whether or not the parameter is to 
be called by value or by name* 
label anothert normal #ve» store. irts.lowbd. fin i shboof 
lodpoint»nsbs,bs,common»lp.gobble»bsxx»bsx.exit, 
cerr,fgeni 
label 

L4.L5»L6.L7»L8.L9.L10»L11»L12.L13*L14»L15.L16»L17. 
L16.L19»L20»L21'L22^L23»L24»L25»L26»L27»L26»L29iL30f 
L31.L32.L33* 
SWITCH S «• 

L4»L5#L6»L7JL8»L9fLl0?LllfLl2»Ll3fLl4»Ll5iLl6tLl7i 
L18.L19.L20.L21»L2?.L23*L24.L25»L26.L27.L28»L29.L30. 
L31.L32,L33* 
REAL T1»T2»T3.T4»T5»T6* COMMENT EXAMINE LATER WITH EYE 



ANOTHER* 



TO Reducing total number* 

PcTR ♦ 1; 

acLass *■ sTEPn Whole * elbaTehj scatterelbat; 

STACKCT ♦ 0* 



07051000 
07052000 
07053000 
0705400Q 
07055000 
07056000 
07057000 
07058000 
07059000 



07063000 
07064000 
07065000 
07066000 
07067000 
07068000 
07069000 
07070000 
07071000 
07072000 
07073000 
07074000 
07075000 
07076000 



XA 



07077000 
07078000 
07079000 
07079500 



07060000 T 
07061000 T 
07062000 T 



00701 
00701 
0070* 
007.01 
0070* 
00701 
00701 
00701 
00701 



0000 J 
OOOOtO 
OOOOJO 
QQQOIO 
OOOOiO 
0000*0 
OOOOiO 
OOOOIO 
OOOOtO 



007010000*0 
00701000010 
00701000010 



00701 
0070* 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 

oo7ai 

0070* 
00701 
Q07QI 



OOOOIO 
OOOOtO 
OOOOtO 
OQOOtfl 
OOOOIO 
OOOOtO 
OOOOtO 

0000 ro 

OOOOIO 
0000*0 
0Qj)2ll 
0002*1 
000211 
QOlBiO 



0070*0018*0 
0070*001610 
007010049X3- 
007010022*1 



COMMFNT SrTuP F 
IF FB 



COMMENT 



IF PR 

IS MA 

METER 

ELS 



COMMENT IF PROC 
AL IN 
SOURC 
END 
IF Ti 
IF Ti 

The a 

HENCE 
BEGIN IF A 



COMMENT 



lELDS 
IT Th 
OCEDU 
DE FO 
S Se 

E BE:ri 

VBIT 
IF SC 

THE 

EDURE 
FO FO 
E» HO 
J 

«- TA 
* RT 

CTUAL. 
A DI 

CLASS 



OF AN ACTUAL PARaMeT 
EN BEGIN VBtT * FALSE 
RE IS FORMAL ALL CALL 
R CORRESPONDENCE OF A 
TTiNG ScLASS To LOCIO 
IN 

* BOOLEANCGTl* TAKEfl 
LASS ♦GTl, CLASS i INT 
^ SCLASS > BOO 
N IF gTi •• (SCLASS - 

Then sclass * scL 

IS NOT FORMAL WE OBT 
R The PROCEDURE! We 
WEVER ScLASS is NORMA 



ER» 

I ScLASS ♦ LOCLID END 
S ARE BY NAME AND NO CHECK 
CTUAL AND FORMAL PaRA 
HELPS To COMPRESS CHECK 

N0EX*PCTR)),V0I 

ARRAYlO AND 

STRPROCIO 

BOOSTRPROCID) HOD U ^ 

ASS-GTUl 

AIN VBIT FROM THE ADDITION* 

ALSO GET SCLASS FROM THIS 

LTZED TO REAL. IF NEEDED! 



iBLECl 
rPAREN 

PARA 
[FFeRE 

i ID 

CHECK 

if aclass 
Then begi 

COMMENT The ACTUAL PARA 

HENCE The param 
SUPEFFlLEf AN I 
IF ACLASS 

BtGiN AC 

IF ACLASS 

THEN BEG 

T4*l; 

IF NO 

ACLAS 

COMMENT IT IS EITHER AN 

PASSF 
IF 1.1 



♦ 1 ) * comma then 
Then 
meter has more than one logical quantity ^ 

NT ANALYSIS JS REQUIRED; 

max or aclass • superllstid then 

fR(Whole); 

< booarrayid or aclass > intarrayid 

N 

METER DOES NOT START WITH AN ARRAY NAME - 
ETeR IS AN EXPRESSlONf A SUPERFORMAT, A 
nDeXED file or SUPERLISTI 

a superfrmtid then 

LASS «. FRmTIDI go TO FGEN END) 
a SUPERFILEID OR ACLASS « FILEID 
IN 
EMITO{NOP) ;IMAY NEED FOR F ILEATTR IBUTES. 
T VBIT THEN EMlTO(NOP) I % DITTO, 
S ♦ FILEID^ 

OR A SUPeRFILE (OR BOTH)! 



FILE 



INDEXED 

cLASSaPERioo Then % then file attribute 

BEGIN 

TF VBIT THEN 

BEGIN 

T5*L» L*T4I EMlTO(MKS)l L«.T5J T5*0 > 

END ; 
ACLASStIF F ILEATTR I BUTEHAN0LER{ FA )«ATYPE 

Then realid else booid i 
tf elclassi»comma and elclassi»rtparcn then 

IF ACLASS»eO0lD THEN SiMPBOO ELSE 
BEGIN 

SjMPARlTH > 
IF ELCLASS»RELOP THEN 
BEGIN 

aclass;booid! 

SIMPBOO t 
END I 
) 

THEN 



RELATION I 



IF 



END 
NOT VBIT 
BEGIN 

EMITPAIR(JUNK»STD)J 
EMI TO CRTS) I ADJUSTl 



07080000 

07081000 

07082000 

07083000 

07084000 

0708S000 

07086000 

07087000 

07088000 

07089000 

07090000 

07091000 

07092000 

07093000 

0709A000 

07095000 

07096000 

07097000 

07098000 

07099000 

07099500 

07100000 

07101000 

07102000 

07103000 

07104000 

07105000 

07106000 

07107000 

07108000 

07108500 

07108505 

07109000 



EMITN(JUNK) » 
COkSTANTCLCAN i 



EMITO(MKS)l EMlTB(BBW.BUMPL»T4+2) ) 



071 
071 
071 
071 
071 
071 
071 
071 
07} 
071 
071 
071 
07j 
071 
071 
07} 
071 
071 
071 
07} 
071 
071 
071 
071 
071 



lOOOO 
11000 
11200 
11210 
11220 
11225 
11230 
11235 
14 240 
11250 
11255 
11260 
11265 
11270 
11275 
11280 
11285 
11290 
11295 
11300 
1 1303 
11307 
11310 
14315 
11320 



T 00701002312 

T 00701002312 

T 00701002-513 

T 00701002513 

T 00701002513 

T 0O70I0025I3 

T 00701002610 

T 00701002611 

T 00701003011 

T 0070«0030ll 

T 00701003313 

T 007010035! 3 

T 00701003513 

T 00701003513 

T 0070i0035i3 

T 0070I0036M 

T 00701003811 

T 40704 (XO^^^O 

T 00701004010 

T 00701004010 

T 00701004210 

T 0070I0043»3 

T 00701004411 

T 00701004513 

T 00701004513 

T 0070I0045»3 

T 00701004513 

T 0070«0046»l 

T 00701004810 

T 0070 1 0049 1 2 

T 0070»0050ll 

T 0070I0052»0 

T 00701005313 

T 00701005411 

T 0070I0054J1 

T 00701005512 

T 00701005513 

T 00701005610 

T 007fll0a56!l 

T 00701005712 

T 0070J0060I1 

T 00701006011 

T 0070»006l»3 

T 00701006410 

I 0O70lQi)A543 

T 00701006810 

T 0070(006811 

T 00701.006.9X2 

T 00701006913 

T 00701007010 

T 0070 liI074.13. 

T 00701007210 

T 00701007210 

T j0O7-0i-O072-»0 

T 00701007211 

T 00701007312 

T 0O70.ta07iH^l— 

T 00701007611 



FMlTB(BFW.T4*?a) i 
STUFFFfPR0GDESCBLDR(0»L-3.O)) ; 
END I 
fiO BS i 

fNo of file attribute parameter expression; 

IF EUcl-ASS # lETTPAREN THEN GO TO BSt 
! » I-ll 
COMMENT IF WE ARE HERE IT iS JNOEXEDl 

checkpresence; 

EMiTOfLOD)J PANAi EMlTO(CDC)J 
IF SClASS e FILEID OR NOT SBiT OR VBiT 
THEN BEGIN ERR(l?i)l GO TO CERR END 
COMMENT AN INDEXED FILE MaY BE PASSED BY NAME ONLY AND ONLY TO A 
STREAM PROCEDURE THE STREAM PROCEDURE MAY NOT DO A 
RELEASE ON THIS DESCRIPTOR 

ELSE GO TO COMMON END I 
IF ACLASS B SUPpRLlSTlO THEN BEGIN BANA; 
EM1TV(Wh0LE. ADDRESS); 

IF Whole. address>io23 then fmitocprte); 
fMitoclod)! 
aclass«-listid» go to bs end? 
normal is reachfd only if the Parameter is an expression; 
IF VBiT Then 

Ti • fXPRSS COMMENT VALUE CALL EXPRESSION? 
ELSE BEGIN COMMENT NAME CALL EXPRESSION! 

IF SBIT THEN BEGIN FLAG(1225; GO TO CERR END) 
STREAM procedures MAY NOT HAVE EXPRESSIONS PASSED BY NAME; 

T2 ♦ BAEJ 

T3 ♦ PR0GDE5CBLDRC0,L»0J» 
BUILD DESCRIPTOR FOR ACCIDENTAL ENTRY AND PREPARE JUMP 
AROUND CODE FOR EXPRESSION; 

Tl ♦ EXPRSS; COMMENT COMPILE EXPRESSION! 

emitpair{junk.std); emltn(junk); 

This provides for protection if one attempts inside of a 

PROCEDURE To STqRe INTO AN EXPRESSION - THE STORE GOES 

INTO jUnk; 

EMITO(RTS); CONSTaNTClEAN* EM I TB(BFW. T2,l ) ! STUFFF{T3) 
LRTS iS RESPONSIBLE FOR THE CLEANUP ASSOCIATED WITH ALL 

The acciidental entries compiled by actualparapart, it 
emits the return special* does a constantclean, finishes 
The branch operation and provides for the possibility 
Of stuffing f into the accidental entry descriptor; 

END of name call EXPRESSIONS! 

aclass * IF Tl « atype then realid else if Tl . btype 

THEN BOOID else LABEUD! 60 TO BS; 
end of expression call CODE! 
COMMENT IF WE REACH THiS POiNT THE ACTUAL PARAMETER STARTS WITH AN 
array NAME FOLLOWED BY SOMETHING ELSE! 
IF SCLASS i BOOaRRAYID THEN 
IF SCLASS S INTaRRAYID THEN 

BEGIN T2 * TaKE(INDEX+PCTR),INCR! 

comment the formal parameter calls for an array as actual parameter. 
Thus we must have a row designator! 

IF aclass # BOOARRAYID ThEN ACLASS * REALARRaYID! 
comment normalise ACLASS FOR LATER COMPARISON! 

VARIABLE(FA)| if TABLECI-2) * FACTOR 

Then bfgin err(i23); go to exit eno! 



COMMENT 
NORMALl 
VE! 



COMMENT 
COMMENT 



STORE! 

COMmFNT 



LRTSi 

COMMENT 



07111325 

07U1330 

07111335 

07111340 

07lll3«5 

07112000 

07113000 

07114000 

07115000 

07H6000 

07 U 7000 

07118000 

07119000 

07130000 

07121000 

07122000 

07122500 

07122510 

07122520 

07122530 

07122540 

07123000 

07124000 

07125000 

07126000 

07127000 

07128000 

07129000 

0713OOO0 

07131000 

07132000 

07133000 

07134000 

07135000 

07136000 

07137000 

07138000 

07139000 

07140000 

07141000 

07442^X»0 

07143000 

07144000 

07145^00 

07146000 

07147000 

07148000 

07149000 
07150000 
07151000 
07152000 
07153000 
Q7 154000 
07155000 
07156000 
071 5700 Q 
07158000 



T 0070i0080l0 

T 00701008113 

T 0070(008410 

T 0070!0084!0 

T 00701008411 

T 0070t00e4ll 

T 0070l00e5!3 

T 00701008712 

T 00701008712 

T 0070»0087«3 

T 007010089.13 

T 00701009112 

T 0070I0093«2 

T 0070 1 0093 12 

T 0070I0093!2 

T 0070!0093I2 

T 0070iX)094t2 

T 00701009512 

T 00701009610 

T 0070t0098Jl 

T 0070J0099I3 

T 0070I0100J1 

T 00701010011 

T 00701010112 

T 00701010210 

T 0070IOl03!3 

T 0070I0105«3 

T 00701010513 

T 0070! 010611 

T 0070I0108!0 

T 00701010610 

T 0070lOl08!0 

T 00701010912 

T 00701011113 

T 0070I0U1I.3 

T 00701011113 

T 0070»Olilt3 

T 007010114.11 

T 00701011512 

T 0070l0li5»2 

T O0Tfll0u5l2 

T 0070!OUS*2 

T 00701011518 

T 00701011512 

T 00701011713 

T 00701012011 

T 0070101*011 

T 00701012011 

T 00701012011 

T 00701012112 

T 00701012211 

T 00701012512 

T O07O1OU5J2 

T 00701012512 

T 00701012712 

T OQ7OJ0L27I2 

T 00701012912 



m 



COMMENT IT MUST BE A ROW DESIGNATOR 
COMMENT VARIABLE EMITS LOWER BOUNDS FO 

STLB is The number of such S 

lowbdj ' if t2 j* stlb then begin flag 

The formal parameter must be 

else go to bs end? 
IF vbit Then go tq ve; 
comment if The formal parameter does 

VBiT IS SET Wf MUST HAVE A 
IF SBIT 

THEN BEGIN 

T6 «• Fli VARIABLE(T6); 

IF T6 # Then go to BSI 

FLAG(122)JG0 to CERR END 

COMMENT IF PROCEDURE iS A STREAM PRO 

CALL EXPRESSION. IT MUST 

VARIABLE OR A RoW DESiGNAT 

Than this it sets T6 to ze 

COMMENT IF ThiS PLACE IS REACHED WE 
WE HAVE NOT YpT DECEIDED W 
1 ) A ROW DESIGNATOR WIT 
?) A SUBSCRIPTED VARIAB 
3) A GENUINE NAME CALL 
IF TABLECMZ) * LiTNO AND 
( GTi * TaBLE(I+4) ■ COMM 
THEN BEGIN 
COMMENT WE HAVE HERE A ONE DIMENSIONA 
CONSTANT LOWER BOUNDS, WE M 
ACCIDENTAL ENTRY AND ADDITIO 

VARIABLE(FL)I 

ACLASS ♦ IF ACIASS » BO 

REALIDI GO TO BS E 
T2 * BAEI T3 ♦ It 
COMMENT WE PREPaRE FOR ACCIDENTAL ENTR 
IF WE HAVE ROW DESIGNATOR* 
T6 ♦ FAI VARiABlE(T6)I 
IF TABLE(I"2) « FACTOR 

Then begin 

COMMENT WE HAVE A RqW DESiGnATOR AFTER 

EMlTB{BFW,T2.T3)J T2 #■ 
COMMENT WE NOW KNOW WE NEED ACCIDE 
T3 
Tl 

IF ELCI.ASS » COMMA OR ELCLAS 

COMMENT Me ARE AT END Of PARAMETER* 

IF T6 « THEN COMMENT MO 

GO TO STORE ELSE COMME 

GO TO LRTS» 

IF Ti « BTYPE Then go TO FIN 

IF ELCLASS » RElOP THEN BEGl 

SiMPBOO END! GO Tq STqRE END 

WHEN WE GET HERE WE HAVE THE C 

ACTUAL PARAMETERI 
ACLASS 5 IDMAX OR AcLASS « SUP 

checkercwholeJ* stepiti 

GO TO S[ACLfASS-3]I 
IF ACLASS * THEN FLAfidOO) ELSE 



♦ PROGDEScBLoR{0»T3»0); 

♦ IF BOOARRAYID • ACLASS 



FINISHPOOI 
COMMENT 

IF 



• OTHERWISE IT IS AN ERROR; 
R EACH ASTERISK SUBSCRIPT, 
UBSCRIPTSI 

(I2ft)l GO TO CERR END 
AN ARRAY OF ONE DIMENSION 



NOT CALL FOR AN ARRAY AND 
VALUE CALL FXPRESSiONI 



t 

CEDURE Then we compile name 

BE SIMPLY A SUBSCRIPTED 
OR, IF VARIABLE DOES MORE 

Ro; 

have a non-stream procedure, 

heTheR we have 

H Formal procedure. 

LE» OR 

expression; 

A OR GTl « RTPAREN) 

L SUBCRIPTED VARIABLE WITH 
AKE A SPECIAL CASE TO AVOID 
NAL PRT cell; 

OaRRAYIO THEN BOOID ELSE 

nd; 

Y EVEN THOUGH WE KNOW NOT YET 



ALL' 
STLB; go TO LOWBD END; 

NTAL entry; 

Then btype else atype; 

S « RTPAREN THEN 

RE THAN SUBSCRIPTED VARIABLE* 
NT SUBSCRIPTED VARIABLE* 

iSHBoo; simparith; 

N Tl ♦ BTYPE* RELATION* 

; 

ASE OF A SINGLE QUANTITY 

ERLisTiD Then 



07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 



159000 
163000 
164000 
165000 
166000 
167000 
166000 
1690^a 
170000 
171000 
172J0OO 
173000 
174000 
175000 
176000 
177000 
178000 
179000 
180000 
181000 
182000 
183000 
184000 
185000 
186000 
187000 
188000 
189000 
190000 
191000 
192000 
1930Q0 
194000 
195000 
196000 
197000 
198000 
199000 
07200000 
07201000 
072O2QO0 
07203000 
07204000 
072Q5QO0 
07206000 
07207000 
7208 000 
07209000 
07210000 
0721 loao 

07212000 
07213000 
07214^00 
07215000 
07215500 
01216.000 
07217000 



0070*0 
0070*0 
0070*0 
007010 
0070*0 
0070*0 
0070*0 
0070 10 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
0O7Q10 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
0070*0 
007010 
0070*0 
0070*0 
0070*0 
0070*0 
007010 
0070*0 
0070*0 
QOZOJO 
0070*0 
0070*0 

oo7a*o 

0070*0 

0070*0 

007010 

007010 

0070*0 

00701 

007010 

0070*0 

007010 

007010 

0070*0 

0070*04 

0070*0 

0070*0 

007010 

0070*0 

007010 

4)070404 

0070*0 

0070*0 

OOZOi-Q 

0070*0 



31*3 
31 » 3 
31*3 

31*3 
34*1 
34*1 
34*1 

3513 
35*3 
35*3 
3513 

36*0 

37*3 

39 * 2 

4010 

40*0 

40*0 

40*0 

40*0 

40 10 

40*0 

40*0 

40 10 

4010 

42*0 

441 1 

46*0 

46*0 

4610- 

46*0 

46*1 

4811 

50J0 

51*3 

51*3 

51*3 

53*2 

51*1 

55*3 

55*3 

to 

56*0 
5913 
A2U 
64*0 
64*0 
.65J^4 
65*3 
66*1 
46J^ 
70*1 
72*0 
724^ 
72*0 
7313 
X5U 
78*0 



QtSfl 



IF ACLASSs SUPERLtSTID THEN 

BEGIN EMiTpAtR(ADDRSF»LOD)I GO TO BS ENDJ 

FLAGn26)» 
CERRt 
11?»LI^»L1<HL15»L16« 

COMMENT STREAM PROCEDURES MAY NOT BE PASSED AS PARAMETERS? 
FUAG(125); ERRORTOG ♦ TRUE; 60 TO COMMONI 
LOoPOiNTt 
L4a8» 

COMMpNT LIST. SUPERLfST OR SUPeRFILE* 
EMlTPAlR(ADDRSF.UOD)i 

IF SBfT Then begin flag(127)i go to cerr end; 

ITEMS Which find their way here may not be passed to 

stream procedureSi 

if sclass * aclaSs Then 

if sclass )« loclid Then 

IF WE arrive here THE ACTUAu AND FORMAL PARAMETERS DO NOT 
AQREEI 

begin FLAGfl23)l GO TO CERR ENDJ 



NSBSt 

COMMENT 



BSI 



COMMENT 



COMMON! 

COMMENT 



L5I 
FGEN« 



ARRIVAL HERE CAIJSfS ThE NEXT PARAMETER TO BE EXAMINED) 

PCTR ♦ PCTR+i; 

IF ELCLASS « COMMA THEN QO TO ANOTHER? 

IF ELCLASS * RTPAREN 

THEN BEGIN ERR0R(129)I GO TO EXiT END* 

IF NOT FBiT Then 

IF TAKE(IN0EX).N0DIMPART+1 # PCTR 

Then begin comment wrong number of parameters; 

ERRC128); r.O TO exit ENDJ 
STEPlTJ GO TO EXITJ 



COMMENT FORMATS) 
1*I-1J 



L6S 



L7« 



L9l 



passformatj 

IF SBiT Then begin emitocxch); emito(Cdc) endj 

UI + 1 J 
GO To BSJ 

comment superformatj 

IF FBiT 

THEN BEGIN EM | TVC ADDRSF ) J ADDRSF ♦ ADDRSF-1 END 
ELSE BEGIN I * i -IJ EM I TLC T AKEFRST ) J I ♦ 1*1 END! 

GO TO LODPOINTJ 

COMMENT FiLEJ 

I * I-IJ ELCLASS * FILEIDJ 
PaSSfiLEJ GO TO BSJ 

COMMENT SWITCH? 

IF formalf Then go to lodpointj 

COMMENT otherwise WE BUiLD ACCIDENTAL ENTRY AND SET UP SO THAT 
MCP HANDLES LABfL PROPERLY, SEE IN PARTICULAR OThER 
DISCUSSIONS OF fiO TO PROBLEM, iT ShOULO BE NOTED THAT 
ALL BUT VERY SIMPlE SWITCHES ARE MARKED FORMAL. WHETHER 

They aRe or noti 

T2 ♦ BAEI T3»PRoGDESCBLDRC0,LtO3l EMI TV(GNAT( WHOLE) ) J 
GENGO(WHOlE)J 



07217500 
07217510 
07217520 
07218000 
07219000 
07220000 
07221000 
07222000 
07223000 
07224000 
07225000 
07226000 
07227000 
07228000 
07229000 
07230000 
072J1000 
07232000 
07233000 
07234000 
07235000 
07236000 
07237000 
07238000 
07239000 
07240000 
07241000 
07242000 
07243000 
07244000 
07245000 
07246000 
07247000 
07248000 
07249000 
07250000 
07251000 
07252000 
07253000 
07254000 
07255000 
07256000 
07257000 
0725800Q 
07259000 
07260000 
07261000 
07262000 
07263000 
07264000 
07265000 
07266000 
07267000 
07268000 
07269000 
07270000 
07271000 



00701018010 
00701018112 
0070l0i83»2 
00701018410 

oo7atoie4Jo 

00701018410 
00701018410 
0070101 86J0 
00701018610 
00701010610 
0070l0l«6i0 
00701018712 
00701018912 
00701018912 
0070t0i89i2 
0070J0189I3 
00701019112 
00701019112 
00701019112 
00701 01 9211 
00701019312 
0070I0193J2 
OQ70JQ194IQ 
00701019513 
00701019513 
00701019810 
00701019611 
00701020011 
0070 1 0201 13 
00701020312 
00701020410 
00701 D20AfO 
00701020410 
00701020512 
0070 10 20611 
00701020811 
0070I0210J0 
00701 02101 I 
00701021112 
00701021112 
00701021112 
00701021313 
00701021713 
007Q 1021810 
00701021912 
00701021912 
00701022112 
00701022210 
00701022210 
00101022210 
0070(022312 
007010223(2 
0070L0224i2 
OO701022312 
007010223»2 
OQZaj 022312 
0070(022712 



11 



EMIT0(RTS5; EMITB(BFW,T2,U)I STUFFFtTS)! GO TO NSBSJ 



LlOl 

COMMENT 



LPt 



COMMENT 
COMMENT 



COMMENT 
COMMENT 



GOBBLEt 



COMMENT 
COMMENT 



Lll« 

COMMENT 

COMMENT 



L19IL20« 
COMMENT 

COMMENT 



PROCEDURE; 
TBI *- TRUE 
IF Tl «■ TA 

Then beg 
Jhe proced 

IF TBI T 

IF The pro 
descriptor 

IF NOT F 
IF SOLAS 

1 ♦ 1-2; 

GO TO NO 

END THE 

TBI * TRUE 

FOR T2 * 1 

DO BEGIN 

IF BO 

THE 

IF 

T 

THE T2*TH PA 



this is the 
Value we b 
procedure 

VALUE GET 
PARAMETER 
CONSTRUCTi 



i IF FORMALF THEN GO TO LODPOINTI 

KECWHOLE ♦ GIT(WH0LE)).t40l8] m 

IN 

URE BfInG PASSED HAS ZERO PARAMETERS; 

HEN GO TO LODPOINT; 

ceduRe is not a function, we pass The procedure 
itself (in both cases the parameter procedure); 
BIT Then 

S < INTPROCID THEN SCLASS #. SCLASS+41 

STEPiT; 
RMAL» COMMENT WE LET OUT NORMAL MECHANISM FOR 

EXPRESSIONS HANDLE THIS CASe; 
CASE OF ZERO PARAMETERS; 

; 

STEP 1 UNTIL Tl 

0LeaN(T3*TAKE(WHOLE*T2))»VO 

N 

Tft • T3, CLASS < BOOARRAYID OR T4 > INTaRRAYID 

HEN Begin 

RAMETeR to the PROCEDURE BEING PASSED IS VAlUE? 
IF TBi THEN 
BEGIN 

FIRST Value parameter, if any parameters are 

UILD A THINK WHICH SEES THAT WHEN THIS 

IS CALLED FORMALLY, ITS PARAMETERS THAT ARE 

CALLED BY VALUE, SiNCE THIS IS FIRST VALUE 

WE CONSTRUCT ThUNK HERE AND INHIBIT FUTURE THUNK 

ONs; 



TBI * false; T5 * BAE> 

T6 ♦ PROGDESCBLDR{liL,0) END? 

emitvft4 ♦ t3. address); emi tpa i r( t4, std )end end; 
This calls the T2-Th parameter by value» 

if not TBI 

Then begin 
There were value calls so finiSh construction of think; 

emitpair(Addrsf,lod); emitocbfw); 

constantclfan; emitb(Bfw,T5,l)* aoorsf •■ T6 end; 
GO To lodpoint; comment in any case load a descriptor; 

intrinsic procedure; 
addrsf ♦ gnat(WhOle); 

GET PRT space if NOT ASSIGNED; 

ACLASS ♦ realprocid; 

T3. ADDRESS * 89r; T2*Tl4.i; GO TO GOBBLE; 

COMMENT THIS MaKeS ThE INTRINSICS LOOK LIKE ORDINARY 

procedures; 



ALFAPROC 
ACLASS ♦ 



AND intproc; 
realprocid; 



BOOPROC AND 
IF FORMaLf 



REAL PROCi 



07272000 1 


r 0070 


I0227J3 


07273000 ' 


r 0070 


I0231»2 


07274000 1 


r 0070 


(023112 


07275000 1 


r 0070 


I023M2 


07276000 1 


r 0070 


I0232tl 


07277000 1 


r 0070 


I0235J3 


07278000 1 


r 0070 


1023611 


07279000 1 


r 0070 J 


1 02 36 J 1 


07280000 1 


r 0070 


1023713 


07281000 1 


r 0070 


»0237I3 


07281900 1 


r 0070 


t 0237* 3 


07282000 1 


r 0070 


I0236«0 


07283000 1 


r 0070 


1024112 


07284000 1 


r 00.70 


1024312 


07285000 : 


r 0070 


1024313 


07286000 1 


r 0070 


I0243J3 


07287000 1 


r 0070 


I0243U 


07288000 1 


r 0070 


I0244;0 


07289000 1 


r 0070 


1024410 


07290000 1 


r 0070 


1024512 


07291000 1 


r 0070 


(024712 


07292000 1 


r 0070 


»0247»2 


07293000 1 


r 0070 


1024913 


07294000 1 


r 0070 


1025112 


07295000 1 


r 0070 


I0251»2 


07296000 1 


r 0070) 


1025112 


07297000 1 


r 0070 


!0251«3 


07298000 1 


r 0070 


>0251I3 


07299000 1 


r 0070 


t.025U3 


07300000 1 


r 0070) 


I0251U 


07301000 1 


r 0070 


1025113 


07302000 1 


r 0070 


1025113 


07303000 1 


r 0070 


(0251»3 


07304000 1 


r 0070 


1025210 


07305000 1 


r 0070 


1025313 


07306000 1 


r 0070 


1025513 


07307000 1 


r 0070 


l02S8tO 


07308000 1 


r 0070 


1024011 


07309000 1 


r 0070 


1026011 


07310000 1 


r 0070 


102610 


07311000 1 


r 0070 


1024113 


07312000 1 


r 0070 


1026312 


07313000 1 


r 0070 


1026513 


07314000 1 


r QQIQ 


102.6610 


07315000 1 


r 0070 


I0267;2 


07316000 1 


r 0070 


026712 


07317000 1 


r 0070 J 


102-6610 


07318000 1 


r 00701 


I026et0 


07319000 1 


r 0070 


1026912 


07320000 1 


r ooro] 


I.Q2Z2JI 


07321000 1 


r 00701 


0272»1 


07322000 1 


r 00701 


027211 


07323000 1 


r 007.0 


i)2I3J2 


07324000 1 


r 00701 


027312 


07325000 1 


r 0070 


1027313 


Of 326i)00 1 


r 0070I027A1.0 - 


07327000 1 


r 00701027410 



COMMFNT 
COMMENT 



COMMENT 



L23»L24» 
COMMENT 

L21IU2?t 
COMMENT 



COMMENT 



L.27»U2B' 
COMMENT 

L25«L26« 
COMMENT 



COMMENT 



COMMENT 



COMMENT 

L29I 

COMMENT 

L.30I 

COMMENT 

1321 

COMMENT 

BSXXI 
BSXI 

L31«L33» 



Then begin 

THE PROCEDURE BEING PASSED IS ACTUALLY A FORMAL PARaMETFRI 

TF SCLASS > tNTPROCID THEN ACLASS * ACLASS+4; 
CHANGE ACLASS SO THAT IT LOOKS LIKE WE ARE PASSING AN 
EXPRESSION. Thf formal PARAMETER DOES NOT CALL FOR A 
PROCEDURE SO IT MUST CALL FOR AN EXPRESSION! 
IF V8IT 

Then begin emitV(Addrsf)i go to bs end 

ELSE go TO LODPOINTI 
IF VBIT WE DO Value CALLt OTHERWISE WE PASS PROCEDURE 
DESCRIPTOR ALONrJ 

ENDI 
TBI ♦ false; go To LP? 



INTEGER 
ACLASS * 



AND ALPHA 
REALIDI 



IDS; 



BOOLEAN AND REAL lOSi 

IF VBiT THEN EM I TyC ADDRSF) 

ELSE IF NOTCSbIT OR VONF) AND FORMALF 

THEN GO TO LODPOINT ELSE EMI TN( ADDRSF ) I 
JUST PASS THE DfScRIPTOR ALONg IF PROCEDURE IS NOT STREAM 
AND ACTUAL PARAMETER iS A NaMe CALL FORMAL PARAMETER. IF 

These conditions aRE not met do descriptor call? 
60 to Bs; 

integer and alpha arrays; 
ACLASS «. realarrayid; 

BOOLEAN and REAL aRRAYS; 

emitpaircaodrsf.lodji 
if sbit Then go to bs; 

LOWER BOUNDS aRf NOT PASSED TO STREAM PROCEDURES; 
Ti ♦ TAKEcWHOLE * G I T( WHOLE ) ) .NOD I MPART; 
FOR T2 * 1 STEP 1 UNTjL Ti 

DO BEGIN 

IF T3 ♦ (STLB ♦ TAKEtWHOLE + T2)).[35Ml3 >1023 
THEN EMITV(T3) ElSE EMIT(STlB); 

if stlb,[23«lo] » add then emito(chs) end; 
This code emitted calls on lower bounds; 
IF FBiT Then go to bs; 

IF TaKF(INDEX+PcTR),INCR # 

error if actual and formal 
Of dimensions; 



Tl THEN FLAG<1243; GO TO BS; 
ARRAY DO NOT HAVE SAME NUMBER 



Label; 

ELCLASS *■ TABLE(I«-I-1); OEXP; 60 TO NSBSl 
TRUTH value; 

emiTlcaddrsf); aClass * booid; go to bsx; 



Literal; 
emitl(Addrsf); 
aclass ♦ realid; 
IF sbit and not VbIT 



THEN FLAGflSO); 60 TO BS; 



EMITNUMCO; GO TO BSXX; 



07328000 

07329000 

07330000 

07331000 

07332000 

07333000 

07334000 

07 315000 

07336000 

07337000 

073^8000 

07339000 

07340000 

07341000 

07342000 

07343000 

07344000 

07345000 

07346000 

07347000 

07348000 

07349000 

07350000 

07351000 

07352000 

07353000 

07354000 

07355000 

073-56000 

07357000 

07358000 

07359000 

07360000 

07361000 

07362000 

07363000 

07364000 

07365000 

07366000 

07367000 

07368^0.0 

07369000 

07370000 

07371000 

07372000 

07373000 

07374.000 

07375000 

07376000 

07377000 

07378000 

07379000 

0738.0000 

07381000 

07382000 

07383000- 

07384000 



T 0070;0274l0 

T 0070! 0274 I I 

T 0070»0274J1 

T 00701027712 

T O070l0277;2 

T 00701027712 

T 0070I0277I2 

T 00701027712 

T 00701027912 

T 00701027912 

J 00701027912 

T 00701027912 

T 0070»0279I2 

T 0070 1 Qiao J 1 

T 00701028112 

T 0070«028i;2 

T 00701X124113 

T 00701020210 

T 00701028210 

T 007a;0283J2 

T 00701028512 

T 00701028712 

T 00701028712 

T 0070f0287»2 

T 00701028712 

T 0070;02i713 

T 00701028810 

T 0070;02e6IO 

T 00701026811 

T 00701028912 

T 00701028912 

T 0070;0290IO 

T 00701029112 

T 00701029112 

T 0070 S 0293 U 

T 0070I0293»3 

T 007GI0295«2 

T 007QI0297I3 

T 0070«0300ll 

T 0070;0305I3 

T 00701030513 

T 0070;0306ll 

T 00701031011 

T 0070 103 lUll 

T 00701031011 

T 00701031112 

T 00701031112 

T 0070|0314»0 

T 00701031512 

T 007Q!Q345!2 

T 0O70;03i7l2 

T 00701031712 

I QOJaiQj^ZlZ 

T 0070|0317;3 

T 00701031811 

T 00701032111 

T 0070I0322«0 



EXiTj 



STACKCT ♦ END Of ACTUAUP AR APART » 



lA 0^385000 T 0070»0323»2 

70 IS 329 LONG. NEXT SEG 3 



COMMENT PROCSTMT COMPILES CODE FOR ALL PROCEDURE STATEMENTS AND 
FUNCTION CALLS fEXCEPT FOR STREAM PROCEDURES). THE 
PARAMETERS. FROM. TELLS WHO CALLED, IF STMT CALLED FROM 
IS TRUE. PROCSTMT ALSO HANDLES FUNCTION NAME ASSIGNMENT 
OPERATIONS? 

PROCEDURE PROCSTMT(FROM); VAlUe FR0M» BOOLEAN FROMI 
BEGIN 

Real hole.addressj 



07386000 
07387000 
07388000 
07389000 
0739000Q 
07391000 
07392000 
07393000 



T 0003*081410 

T 00031 08iA to 

T 0003l08l«»0 

T 00031061410 

T 00031081410 

T 00031081410 

T O003t08l4l0 

T 0003IO&I4IQ 



STACKfF*2) 
STACKfF*3) 



HOLE 
ADDRESS 



START OF SEGMENT ♦*♦*♦*♦♦*♦ 



71 



PRT(770) » ♦LIST, 



LABEL, OR 
COMMENT 



COMMENT 



COMMENT 



EXiTt END 



LABEL exit; 

scatteRelbati 

HOLE* ELBATcn; 

address ♦ adors 
checkeR(hole); 

IF ELCLASS * PR 
IF NOT FORMAlF 
IF TaBLE(I+1) * 
BEGIN VaRI 
SEGMENT DESCRIPTO 
CALL VARIABLE TO 
IF ELCLASS ^ PR 
THEN BEGIN 
IT IS PROCEDURE 
STEPiT* 
EMIT0(MKS)J 
IF ELCLASS » LE 
THEN ACTUA 
ELSE 

ELSE IF 
EMITV(AD0RESS)J 
MONITOR CODE GO 
IF HOLE < O 

Then begin comm 
» 

EMiTL 
EMiTV 
EMiTP 
EMlTP 
f GIT(H 

emitnu 

EMlTV 
ENDJ 
PROCSTMT; 



F» 



Then 



OCiD 
THEN 

ASSIGNOR The 
aBlE(?-REAL(F 
R* 

HANDLE THIS 
OCiD EQV FROM 

ERR(159); GO 

IF AND ONLY 



N 

ROM)); GO TO exit end; 

ASSIGNMENT OPERATION; 

TO EXIT end; 

WE COME FROM STMT; 



fTpaRen 

LPaRAPaRTCFOR 
TF FORMALF TH 
TF FROM THEN 

TAKE(GIT(hOLE 
eS HERe» 

fnt This is a 

fJUNK); EM 
fJUNK); EM 
AIR(GNAT(P0WE 
AIRCGNAT(CHAR 

ole)j.funcmon 
mci&cardnumbe 

fGNATCPRiNll) 



Male. FALSE. GIT(H0LE?) 

EN 

ELSE Lt-L"! 

)).N00IMPART#O THEN ERRC128)I 



MONITORED FUNCTION DESIGNATOR 
IT0(SND)I EMITQ(MKS); 

itl(Passtype(hole)); 
rsoften). loo); pass alpha (hole); 

I ).LQD); PASSMONFlLEfTAKE 

FILE)! Xl09- 

R[U4J44)); X109- 
)l 



07394000 
07395000 
07396000 
07397000 
07398000 
07399000 
07400000 
07401000 
07402000 

07403000 
07404000 
07405000 
07406000 
07407000 
07408000 
07409000 
07410000 
07411000 
07411100 
07412000 
07413000 
07414000 
07415000 
07416000 
07417000 
07418000 
07419000 
07420000 
07421000 
07422000 
07422100 
074^13000 
07424000 
07425000 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 
P 
C 
T 
T 
T 



007lt 
00711 
00711 
007l» 
00711 
00 71* 
007l« 
00711 

0071 ; 



ooooto 

000010 
0000 tl 

000113 
000210 
0003*2 
0003«3 
000411 
000712 



71 I& 46 LONft* 



O07ltO0l2tl 
007 11 00 12 VI 
0071J0013I2 

00711001513 
007 II 004 51 3 

00711001610 
00711001611 
00711001712 
0071I0019I2 
00711002011 
00711002211 
007H0027»3 
007lt0028;0 
007ll0O2.at0 
00711002811 

007ll0029»3 
00711002513 

007l»003ll3 
00711003313 
a07 11 00151 a^ 

007l»0037l3 
007l»0039l3 
00711D04113 
007ll0042»l 
007110042*1 
NEXT 4E4 3 



COMMENT STRMPROCSTMT cOMPILfS COde FOR CALLS ON ALL STREAM PROCEDURES; 



07426000 T 0003»08l4l0 



proccdiiRf strmprocstmt; 

BE-GIN 

INTECFR AOORSi 



STACKfr+2) 3 ADDRS 



COMMENT 



COMMENT 



07427000 

074?8000 

074?9000 

START OF SEGMENT 



if addrs ♦ elbatcf], address 
Then begin 
unknownstmti 

END 



THEN EMIT(0)I EMlT0CMKS)J STEPITI 
■ GlT(ELBAT[I-l]))),tl4n03| 



ELSE GTl)] 
ARE NEEDED 



FOR LONG 



END 



ELSE BEGIN 
IF ELCLASS # STRPROCID 
GTl ♦ (GT2 ♦ TAKE(GT3 < 
GTft * GTJ-GT2,[7«6]J 
FOR GTl ♦ GTl-1 STEP -1 UNTIL GT4 

DO EMITVCIF GTl i 5l? THEN GTl+1024 

This code calls labels from prt which 

JUMPS INSIDE OF stream PROCEDURES; 

GT4 ♦ GT?.tll6]; 

FOR GTl «■ 1 STEP 1 UNTIL GT4 oO FM1T(0)J 

This code calls zfRO lits to make space for locals inside 

OF stream PROCEDURES} 

IF ELCLASS # LEfTPAKEN THEN ERR(128) 

ELSE BEGIN 

ACTUALPARAPART(FALSEiTRUE,GT3)J EMI TV (ADDRS) 
END STRMPROCSTMT; 



END> 



72 IS 



074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 
3 



T 00031081410 
T 0003l08l4t0 
T 0003t08l4»0 

4ii^4i4'**4<>f*4> 72 



30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
48000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
4 LONG* 



0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0Q72 
0072 
0072 
0072 
0072 

0072 
0072 
0072 
0072 
NEXT 



tooooto 
toooiu 

f0<)02M 
1000312 
1000312 
1000512 
1000312 
1000312 
JD00312 
1000312 
1000312 
1000313 
1000611 
lOOlOll 
I0012J1 
•001513 
»0022»0 
(002210 
t0022t0 
«0023I2 
t0027»2 

1002712 
;0027«2 
10028! 1 
1002913 

J0031U 
SE6 3 



COMMENT BAF flUlLDS AN 
ONE TO BE 

INTEGER PROCEDURE BAEJ 
BEGIN BAE 



ACCIDENTAL ENTRY ( OR AT LEAST 
BUILT). IT RETURNS VALUE OF L 



PREPARES FOR 
AT ENTRYI 



«■ BUMPLJ COnSTANTCLEAN) ADJUST END BAEI 



07.456000 
07457000 
07458000 
07459000 



T 0003J0814I0 

T 00031081410 

T 0003l08l4»0 

T 0003»08l4»0 



COMMENT RELSESTMT COMPILES ThE RELEASE 
RElEASE(<MEMORY DESIGNAToR>) 

rele:ase(<terminal buffer specifier>) 

RELEASE(<FiLE PART>) 

J 

PROCEDURE RELSESTMTI 
PRTC771) » ReLSeSTMT 

begtN 

LABfL DCR.PaRENCHECKiEXITI 

IF STEPIi«LEFTPAREN THEN 

BEGIN ERR(l051? GO E^iT ENDJ 

IF stepi»unknownid then 



STATEMENT* 

% AUXMEM RELEASE STATEMENT, 
X OATACOM RELEASE STATEMENT. 
% FILE RELEASE STATEMENT, 



07460000 
07460250 
07460500 
• 07460750 
07461000 
07461250 

07461500 
07461750 
START OF SEGMENT 
07462000 
07462250 
07462500 



T 0003»08l9J2 

T 0003«08l9»2 

T 00031081912 

T 0003»08i9l2 

T 0003»08l9l2 

T 00011 081 9} 2 

T 0003»08l9l2 

T Q0a3tQai9J2 

*«4i4(4i«*4i»4i 73 

T 00731000010 

T 0073*OX)Olt5- 

T 0073»0002«l 



DCRl 



BEGIN ERRflOO)) qO fXiT END> 
IF FLCLASS.PROcm OR RANGEC BOOPROC I D. | NTPROC I D) THEN 

BEGIN 

FMlTPAlR(ELBAT[I].ADDRESS,LOn)> EM I TPA I R( 38 1 COM ) ; 
EMIT0(0EL)J STePIT) r,0 PAReNCHECKI 

end; 
if range(b00arrayid,intarrayid) then 

BEGIN 

RFLUTRUEIAEXP? RELSsFAUSE; 
IF TABLECI-?) » FACTOR THEN 
BEGIN STACKCT««STaCKcT»1» 

emitpairc38.com)I emito(del); go parencheckj 

END 
ELSE BEGIN % DATacOM ReLEASE, 

EMITL(?)J EMiTO(XcH)» FMiTL(0)I fMITO(XCH)* 
EMITL(O); EMiTPaIR{3?,C0M); emitocdedi 
EMlTOfOEDI EMiTOfDEDJ EMIT0(DEL)J 60 PARENCHECKI 

end; 

ENDI 
IF FLCLASS?«FILEID AND EUCL.ASS#SUPE.RF I LE ID THEN X OATACOM RELEASE. 

BFGIN AEXp; GO OCR} E^O' 
CHECKFRfELBATtn)J PASSFILD 
IF FUCLASS m COMMA THEN EMITOCDUP)? 
COMMENT This WiUL fetch descriptor POINTING TO I/O DESCRIPTOR! 
CHECKPRESENCE» 

COMMENT This Will, cause presence bit interrupt if previous i/o is 

NOT COMPLETEDl 
EMiTOfDUP); EMITO(LOO)} EMITO(XCH)} 
IF ElCLASS • COMMA THEN 

BEGIN 

EMlTOfDUPJI EMiTOfLOD)! STEPIT; AEXPJ 

EMITDC38,8,10)J EMITqCXCH)? EMIT0(STD3J EMIT0(XCH)> 

END? 
EMiTOfPRDJ EMiT0(DEL5J 

parenchfckj 

IF fLCL.ASS«RTPaRFN then STEPIT fLSE ERR(10«); 
EXIT! 

END REISESTMTJ 



07462750 

07463000 

07463250 

07463500 

07463750 

07464000 

07464250 

07464500 

07464750 

07465000 

07465250 

07465500 

07465750 

07466000 

07466250 

07466500 

07466750 

07467000 

07467250 

07467500 

07467750 

07468000 

07466250 

07468500 

07468750 

07469000 

07469250 

07469500 

07469750 

07470000 

07470250 

07470500 

07470750 

07471000 

07471250 

07471500 

07471750 

07472000 

07472250 



T 0073»0003«3 

T O073»0005«3 

T 00731000713 

T 0073«0008f0 

T O073»00l0li 

T 0073t00l2ll 

T 0073«00i2ll 

T 0073<00l3«3 

T O0731«0l4J0 

T 0073«00l6l0 

T 0073»00l7»3 

T 0073l00i9t3 

T 0073J0021U 

T 0073?0021«3 

T oo73^oo-^^la 

T 00731002312 

T 0073*002610 

T 00731002611 

T 0073«0031«2 

T 0073*003112 

T 0073»003n2 

T 0073«0033«2 

T 0073I0034U 

T 00731003610 

T 0073»0038IO 

T 0073»0038IO 

T 00731003811 

T 0073»0036ll 

T 0073»0038«1 

T 007310040(1. 

T 0073«0041'3 

T 00731004210 

T 00731004411 

T 0073»0048>0 

T 0073«0048t0 

T 00731004913 

T 0073I0050J0 

T 0073»0053«2 

T 00731 0053 « 2 



73 IS 54 UONGf NEXT SEG 



PRT(772) m nOSTMT 



STACKfF*2) 9 TL 



COMMENT DOSTMT HANDLES ThE DO STATEMENTI 
PROCEDURE DOSTmT; 

Begin integer tl» 



END 



DIAUA 
ADJUST? 

stePiT; tl*li 

ELSE BEGIN 

stepit; bexpi 

OOSTMT? 



♦ DIAIB ♦ o; 

STMT; IF ELCLASS # UNTlLV THEN ERRflSl) 



EMITBCBBC»BUMPL,TL) END 



07481000 T 
07482000 T 

07483000 
START Of SEGMENT 

0748400P T 

07484100 T 

07485000 T 

07486000 T 

07487000 T 

07488000 T 



0003 10819 12 
0003)061912 



T 00031081912 



74 IS 12 LOMG* 



0.074 lOOOQ 10 
00741000112 
0074<0001i3 
007-41000513^- 
00741000610 
00741000912 
WEXT.-S£6. - 1 



COMMENT WHILESTMT COMPILES THE WHILE STATEMENT; 
PROCEDURE WHILeSTMT? 
PRT(773) « WHILESTMT 

BEGIN INTEGER BACKfFRONT* 



STACKfF+2) 
STACKfr*3) 



START 



s BACK 
n FRONT 



DiALA * DIALB * 0| 

adjust; 

STEPli; BACK ♦ It BEXP; FRONT ♦ BUMPL? 
IF ELCLASS # OOV THEN ERR(132) ELSE 

BEGIN STEPiT; STMT; EMi TB(B8W.BUMPLi BACK ) I 

constantclfan; emitb(Bfc. front, l) end end whilestmt; 



07489000 
07490000 

07491000 

OF SEGMENT 



T 00031081912 
T 000il08l9J2 

T 0003 1 08 1912 



75 IS 



07492000 T 

07492100 T 

07493000 T 

07494000 T 

07495000 T 

07496000 T 

15 LONGf 



00751000010 
00751 0001! 2 
0075«000l»3 
007S«0005I2 
00751000712 
00751001112 
NEXT SEG 3 



PRT(774) ■ GOSTMT 



STACK(F*2) » ELBW 



COMMENT GOSTMT COMPILES gO TO STATEMENTS, GOSTMT LOOKS AT THE 
EXPRESSION. IF IT IS SIMPLE ENOUGH WE GO DIRECTLY, 
OTHERWISE A CALL ON THE MCP IS GENERATED IN ORDER TO 
STORAGE RETURNED, SEE DEXP AND GENGO? 

PROCEDURE GOSTmT; 



GET 



07497000 T 

07498000 T 

07499000 T 

07500000 T 

07501000 T 



0003l08l9t2 
0003»08l9t2 
0003tQ8l9t2 
0003)081912 
00031081912 



BEGIN 



Real elbw; 



07502000 

07503000 

START OF SEGMENT 



T 0003J0819I2 
T 00031081912 



Label 

IF ST 
IF EL 
ELSE 
IF NO 
IF TB 
CONST 

elbw 

IF EL 

Then 



bana; 

IF (G 



GOMcPJ 



ELS 

GO EX 
GOTOr 



gomcP»exit; 
ePi « Tov thfn stepit; 

CLASS m LABELID THEN TBI •• TRUE 

IF ELCLASS 8 SWITCHID THEN TBI ♦ FALSE ELSE fiO GOMCP; 

T LOCALfELBATEl]) ThEN GO GOMCPI 

1 then begin gogen( elbat[ i ] ,bfw ) i stepltj 
antclean; go exit end; 

*■ ELBATtn; 
BW < 

BEGIN COMMfNT ThjS iS A MONITORED SWITCH) 

emito(MkS); passalphA(elbw);emitpair(6nat( 

CHARD* LOO); PASSM0NFILE(TAKE<GIT(ELBW)), 

WiTMONFlLE); Xl09- 

MITNUM(0iCAHDNUMBERtl«ft»*«3)l XI 09* 

MITV(gNAT( «109- 

PRlNTy)); 

PAIRCJUNK. ISD); 

TAKEfGT2 ♦ GI T ( ELBW ) ) ) . [ 24 » 12] « 

LBW. ADDRESS m THEN BEGIN 

TU(BUMPL)t2'H36li2],GT2); 

CBBW.L'GT't^GTl. [36112]); 

CBFW»sTfl+13*L+3)l 

(NOP); eMito(NOP); emitocnoP) end 
IN callswitchcelbw); emito(bfw) end; 



s 

E 
E 

ENDJ 

emit 

Tl * 

AND E 

PUTCG 

EMiTB 

EMITB 

EMiTO 

E BEG 
IT> 
♦ FA 



lse; dexp; 



07504000 T 00761000010 

07505000 T 00761000010 

07506000 T 00761000210 

07507000 T 0076«0003t3 

07506000 T 00761000611 

07509000 T 0076«0008t0 

07510000 T 0076»00l0ll 

07511000 T OO76t00UI3 

07512000 T 0076J0012I1 

07513000 T 0076I0012»1 

07514000 T 00761001313 

07515000 T 0076»00l5t3 

07516000 P 0076f00i6l0 

07516100 C 0076I004A12 

07516200 C 00761002011 

07517000 T 00761002112 

Q7518JQ0O T 0076 rQQZ2l 

07519000 T 0076*002210 

07520000 T 00761002313 

07521000 T 0076*002M5 

07522000 T 0076»002fl«l 

07523000 T 0076l003n3 

07524000 T 00761003410 

07525000 T 00761003610 

07526000 T 00761003811 

07527000 T 00761.004011 

07528000 T 0076»004l»2 



m 



r.xiT«rNn 



IF GOTOg then 

BEGIN EMJTOCMKS); E-MlTL(9)| EMlTVc5)l EMiTO(BFW) 
ELSE BEGIN EMlT0CpRTE)J EMIT0(L0D)I EMlTO(BFW) END» 
GOSTMT) 



END 



76 IS 



07529000 T 
075?9i00 T 
07529?00 T 
07530000 T 
52 LONGt 



0076i0042<0 
0076»00fl2«i 
00761004610 
00761004811 
NEXT SE6 3 



THAT 



LABEL AS A 
LABEL IS LOCAL. THE 
THE JUMP IS CONDITIONAL 



COMMENT GOGEN GENERATES CODE TO 60 TO A LABELt GIVEN 
PARAMETER. GOGFN ASSUMES THAT THE 
PARAMETER BRANCH TYPE TELL WHETHER 

OR not; 

PROCEDURE GOGEn(LABELBAT»BRAnChTYPE); 

VALUE LABELBATfBRANCHTYpEI 
Real LABt;LBAT»BRANCHTYPE; 
BEGIN 

IF B00LEAN(GTl*TAKEfGT2*GlT(LABELBAT))),[llU 
THEN EMITB(BRaNCHTYPE^BUMPL»GT1,[36I12]) 
COMMENT LABELR SeTS THE SIgN Of THE ADDITIONAL INFO FOR A 

Negative when The label iS encountered, so this 
That we now know where to go) 

ELSE BEGIN EMITcgTD; EMi T( BRANCHTYPE) > 
PUT(GTl&Lr36l36>i2]»GT2) END END 60GENI 



LABEL 
MEANS 



07531000 
07532000 
075 33 000 
07534000 
07535000 
07536000 
07537000 
07538000 
07539000 
07540000 
07541000 
07542000 
07543000 
07544000 
07545000 



0003t 
00031 
00031 

00031 
00031 
00031 
0003' 
00031 

000 31 

00031 
00031 
00031 

0003* 
0003J 
00031 



081912 

081912 
0819J2 
081912 
081912 
081912 
08t9l2 
0Bi9l2 
Q819I2 
082211 
082512 
082513 
082513 
082513 
082810 



COMMENT 
BOOLEAN 



SIMPGO IS USED ONLY 
A STATEMENT jS 
PROCEDURE SIMPgO; 
BEGIN LABEL EXtTj 



BY THE IF STMT 
A SIMPLE GO TO 



ROUTINE. IT 
STATEMENT! 



DETERMINES IF 



GOV 



IF ELCLASS a 

Then begin 

IF STEP] « Tov Then stepiti 
if elclass s labelid Then 
IF localcelbat[I]) then 

begin sjMpGo * true; GO exit end; 

I «• I-i; ELCLASS * GOV END) 
EXIT; END SIMP60I 



07546000 
07547000 
07548000 
07549000 
START OF SEGMENT 

07550000 T 
07551000 T 
07552000 T 
07553000 T 
07554000 T 
07555000 T 
07556000 T 
07557000 T 
77 IS 13 LONG. 



T 0003J0630tO 

T 0003106-301 a 

T 00O3»0830«0 

T 0003t0830t0 

«4t 41^414141 «««4i 7.7 



0077*000010 
0077»0000»0 
0077 10-001 1 2 
0077«0003t2 
00771000410 
007710 005 U 
0077«0007>2 
00771000912 
NEXT SEG 3 



STACKfF+2) 
STACKfF+3) 



Tl 
T2 



COMMENT IFSTMT COMPILES IF STATEMENTS. SPECIAL CARE IS TAKEN TO 

OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS, TO SOME 
EXTENT SUPPeRFUlOUS BRANCHING IS AVOIDED! 

PROCEDURE ifstmt; 

BEGIN REAL Ti,T2l LABEl EXiTJ 



ifclause; 

IF SiMPGO 
THEN BEGIN 

Tl #• ELBATflj; 



07558000 T 

07559000 T 

07560000 T 

07561000 T 

07562000 T 
START OF SEGMENT 



00031083010 
0i303lQA4010 
00031083010 
00031083010 
000^08 3OJO 



*««4i*«««4ii«i 



78 



07563000 T 
07564000 T 
07565000 T 
07566000 T 



0078I0000I0 
00781000011 
a07ili004)OI I 
O078J0001I3 



EXITI PND 



IF STfPI a ELSEV 

Then begin 
stepit» 

IF SIMPgO 
THEN BEGIN 

GOGEN(FLBAT[I]iBFC)» 60GEN( T 1 ,BFW ) I 
STFPIT; go to exit end else begin EMlTLNGIGOGENCTt»BFC)l 
STMT J 60 TO EXIT END END > 
EMITLNGI GOGeN(Ti.,BFC); 
GO EXIT END* 
Tl . BUMPLJ STMT! 
IF ELCLASS # ELSEV TheN 

BEGIN DIALA * DiALB ♦ 01 EM I TBf BFC» Tl .L) I 60 EXjT ENOI 
STEPiTI 
IF SiMPgO 

Then begin 

T2 «■ U« L *Ti-2iG0GENCELBAT[niBFC); L * T2i 
STePiTi go EXIT END) 
T2 ♦ BUMPLJ CONSTaNTCLEAN» 

emitb(bfc.t1.l)| stmtt em i tbc bfw. t2.l) » 
ifstmtj 



7S IS 



07567000 T 
07568000 T 
07569000 T 
07570000 T 
07571000 T 
07572000 T 
07573000 T 
07574000 T 
07575000 T 
07576000 T 
07577000 T 
07578000 T 
07579000 T 
07580000 T 
07581000 T 
07582000 T 
07583000 T 
07584000 T 
07585000 T 
07586000 T 
07587000 T 
35 LONG. 



00781 
0078! 

00761 
00781 
00781 
00781 
00781 
0078 » 
00781 
00781 
0078 < 
00781 
00781 
00781 
00781 
0078» 
00781 
00781 
00781 
00781 
00781 
NEXT S 



000211 
000312 

000410 
0004(1 
000411 
0005»3 
000713 
OOlOll 
00U«3 
00i3t2 
00J3J3 
001610 
OO16II 
0020 JO 
OO2OM 
0020J I 
00 21.1 3 

0025»3 
0026U 
0029 f 2 
0032(0 
EG 3 



COMMENT 



PRT(775) « LABELR 



PROCEDURE 



ABELR HANDLES LABELED STATEMENTS. iT 
ADDITIONAL INFO AnD MAKES ITS SIGN 
SAME TIME ALL THE PREVIOUS 

IT BY GOgEN. fTHE ADDITIONAL INFO LINKS TO A 
CODE ARRAY OF ALL FORWARD REFERENCES); 



AT The 
Up FOR 

IN The 

LABELR* 



PUTS L INTO The 
NEGATIVE, IT COM 
FORWARD REFERENCES 



PILES 
SET 
LIST 



07588000 T 
07589000 T 
07590000 T 
07591000 T 
07592000 T 
07593000 T 



0003(083010 
0003(083010 

xiooiioeaoto 

0003(063010 
0003(0630(0 
0003iQ&30ljQ 



BEGIN LABEL EXjT, ROuNdJ 



PRT{776) 



DEFINE FLBATW0Rn«RR9l,LlNKsGT2#.lNDEX»GT 31, ADDITIONAL 

»6T4#»NeXTLINKsGT5#I 
00 BEGIN ADJUST! iF STEPI * COLON THEN . 
BEGIN ERS(133)J GO TO EXtT END; 
XMARK(LBLREF); % THIS WILL SORT AHEAD OF DECLARATION 
X WHEN WE GET AROUND TO THE XREF. 
IF NOT LOCALfELBATWORD ♦ ELBAT[I-13) 

THEN BEGIN FLAG(134)I GO TO ROUND ENDI 
LINK ♦ (ADDITIONAL ♦ TaKECINDEX ♦ GIT(ELBATWoRD 
,t36il2JI 

IF ADDITIONAL < THEN 

BEGIN FLAGC135); GO TO ROUND ENDI 

WHILE Link # o 

DO BEGIN 

NEXTLlNK * 6ET(LINK-2)1 
EMITB(gET{LINK-1).LINK,L)» 
LINK * NEXTLlNK) 

IF LASTENTrY i 126 THEN % DONT LET EMITNUM DO I 
BEGIN REAL C| % HOLD L FOR A WHILE 
■ ♦SEGMENT DESCRIPTOR* 



«116' 
X116' 



))) 



07594000 T 0003(083010 

START Of Segment ****»**#*« 79 

07595000 T 0079(0000(0 

07596000 T 0079(9000(0 

07597000 T 0079IQ0001Q 

07596000 T 007910001(3 

07598100 C 007910003(2 

07598200 C 0079JQQ07I3 

07599000 T 00791000713 

07600000 T 007910008(1 

076Q10QQ T 0079100.11(3 

07602000 T 0079(0013(2 

07603000 T 0079(0014(1 

07604000 T 0079100.1513 

07605000 T 0079(0017(2 

07606000 T 0079(0018(0 

07607000 T 0079100.1^12 

07608000 T 0079(0021(2 

07609000 T 0079(0023(2 

760 »1 DOT 00 7 91-0 241-0 

07609200 T 007910024(1 



STACKeF+2> a C 



START OF SEGMENT **«*♦***♦♦. 



ao 



w 



PRT(777J 8 ♦SEGMENT DEScRlPTOR* 



COMMENT THIS IS TO ALLOW FOR MORE THAN 56 LONG 

(>1023 WORD) FORWARD REFERENCES TO A LABELI 
C * BUMPL) 

constantcleani 

EMiTBfBFWfC.L) ENDIENDJ 



IN A DUMP 



a;i09- 

«109' 



PUT(-ADDIT!0nAL&UC36I36«12].INDEX); 
IF ELBATWoRD < 

Then begin comment this label is either appears 

OR MONITOR declaration; 

if rr1*additi0nal,lablm0nfile * 

Then begin comment this code is for monitored 

labels; 

emitocmkS); passalphacelbatword); 

fMITPAlRCGNATCCHARp.LODJl 

passmonfilE(RRi); 

EMlTNUM(0«CARDNUMBERtl«4t443)» 
EMITV(6NAT(PRINTI))I 

end; 

IF RR1*ADDITI0NAL,DUMPEE # 
THEN BEGIN COMMENT EMIT CODE TO 

LABEL COUNTER* 

EMITVCRRDI EMiTLCUi 

EMITPAIR (RRl,STO); 

IF RRI*ADDITI0NAL.DUMP0R * 

THEN BEGIN COMMENT EMIT CODE TO CALL 

The DUMP routine; 



STUFFF(RRi); EMITO 

cxch);emitoccoc)i 



INCREMENT THE 
EMITO(AOD); 



end; 



end; 



EMlTO(OEL); 



ROUND! 
EXiTi 



END 



end; 

ERRORTOG * TRUE END UNTIL STEPI # LABELID; 
LABELRI 



07609300 
07609400 
07609500 
07609600 
07609700 



80 IS 



4 LONG* 



79 IS 



07610000 T 

07611000 T 

07612000 T 

07613000 T 

07614000 T 

07615000 T 

07616000 T 

07617000 T 

07616000 T 

07619000 P 

07619100 G 
07620000 T 
07621000 T 
07622000 T 
07623000 T 
07624000 T 
07625000 T 
07626000 T 
07627000 T 
07628000 T 
07629000 T 
07630000 T 
07631000 T 
07632000 T 
07633000 T 
07634000 T 
07635000 T 
07636000 T 
07637000 T 
07638000 T 
07639000 T 
07640000 T 
07641000 T 
07642000 T 
076430a0 T 
07644000 T 
07645000 T 
07646000 T 
56 LONG. 



00601000010 
0060;0000l0 
00601 0000 to 
0080I0001»3 
00801000210 

NEXT SEG 79 
0079;0026»1 

ooraioogaj J 

00791002912 
OO791OO3OIO 
0079100^0*0 
00791003112 
OO79IOO32IO 
0079100-3210 
0079l0033;3 
00791003512 
00791001^1 a 
0079t0037»3 
00791003912 
0079I0039I2 

00791004010 
0079;0041I2 
00791004112 
0079I0043»3 
00791004411 
0079)004513 
OO791OO46II 
0079t0046il 
007 910 046 14 
00791004611 
007910046*1 
00791004711 
0079*0049*2 
00791004912 
007910049*2 
0079*0049*2 
0079*0049*2 
007910045*2 
007910049*2 
0079*0049*3 
007910049*3 
0079*0049*3 
00791004913 
O07S1OO5210 
NEXT SEG 3 






PROCEDURE CASeSTMT; 

BEniN COMMENT THE CASE STATEMENT HAS THE FOLLOWING FORM* 
CaSe <ARlTH EXP> OF BEGIN <C0MP0UND TAIL> 
AT EXECUTION The case statement SiLECTS ONE OF THE STATEMENTS 

IN The <compoUnd tail>» depending on the value of the <arith EXP>, 

ONLY THE SELECTED STATEMENT IS EXECUTED AND CONTROL RESUMES AFTER 
THE <COMPOUND TaiL>. IF ThERE ARE N STATEMENTS IN THE 
<C0MP0UND TArL>» Th£Y MAY- BE CONSIDERED NUMBERED 0#l N- 



1 



07.646100 T 

07646110 T 

07646120 T 
07646430 T 

07646140 T 

07646150 T 
0764A4 60 I 

07646170 T 



0003lMaQJO. 

0003*0630*0 

0003*083010 

0001106.3.0X0 

000310630*0 

0003tO63010 

OOOllQAlOlO 

0003*0830*0 



AND THE <ARITH 
WILU RFSULT in 
THE STATEMENTS 



exp> must Take on only these values, other values 
an invalid fnoex termination of the object program, 
in the <c0mp0und tail> may be any executable 



STATEMENTS, INCLUDING COMPoUnO STATEMENTS, BLOCKS, CASE STATEMENTS 



AND NULL 



STATEMENTS. 
<ARITH EXP> 
OPDC ARRAY 
BFW 

STMT 
BRANCH 
STMT I 
BRANCH 



THE CODE GENERATED IS AS FOLLOWSI 



TO RESUME 
TO RESUMf 



STMT N-1 

rfsumei 

"ARRaY" IS COMPILED AS A TyPf-2 SEGMENT OF N WORDS AND IS 

CHANrED to a DATA ARRAY AT ThE FiRST REFERENCE, IT IS SUBSCRIPTED 

BY TwE VALUE OF <ARlTH EXP> AND CONTAINS SYLLABLE COUNTS 

FOR THE BRANCH TO EACH OF THE N STATEMENTS. THE BRANCH TO RfSUME 

IS OMITTED FOR A NULL STATEMENT, INSTEAD. THE INITIAL BRANCH 

TRANSFERS TO RESUME DIRECTlYi 

REAL LINK, Temp, N, ADR, PRT. NUlL» 



STACKfF*2) 
STACKfF+3) 
STACKfF+4) 
STACKtF+5J 
STACKfF+6) 
STACKfF+7) 

STACK(F+10) 
STACK(F + in 



07646180 T 00031063010 

07646190 T 00031083010 

07646200 T 0003l0830«0 

07646210 T 00031083010 

07646220 T OOOJlOftjOtO 

07646230 T 00031083010 

07646240 T 0003*083010 

7 6 46 2 5 T 03 1 Q A 3 Ql Q 

07646260 T OOO3IO83OIO 

07646270 T 00031083010 

07646280 T OOOatOA^OJO 

07646290 T 00031083010 

07646300 T 0003l0830»0 

07646310 T 0003I0B3QID 

07646320 T 0003«0830»0 

07646330 T 0003«0830lO 

07646340 T OOO31O84OIO 

07646350 T 00031083010 

07646360 T 0003t0630t0 

07646370 T 00031083-010 

07646375 T OOO3IO83OIO 

07646380 T 0003»0830»0 

07646385 T a003»0830l0 

07646390 T 0003«0830l0 

START OF SEGMENT *♦♦♦♦♦♦**« 81 



t LINK 
» TEMP 
: N 
! ADR 
• PRT 
« NULL 

BOOLE 
s GOTOG 

REAL 

« tedoc 

LABEL 
LINK 

STePt 
IF ST 
EMiTv 
EMITO 
LOOP! 

ERROR 

IF ST 

BEGIN 

Tf 

NU 

endi 

TFDOr 
IF GO 
STMT> 
IF EL 
BEGIN 



END F 
BEGIN 



AN 60T0GI 

ARRAY TED0Ct0»7, 0J127]I 

LOOP, XITI 
♦ N ♦ NULL •• 01 
11 AEXPl 

EPI # 8FGINV THEN BEGjN eRR( 70); GO TO XIT END* 
(PRTI»GETSPACE(TRUe,''3>)I % CASE STMNT, DESCR, 
CBFW}} ADR * L* 

TOG ♦ TrUE» 

EPI • Semicolon Then 

COMMENT NULL STATEMENT; 
DOCtN,t36l33, N.[4lt73] ♦ NULLI 
LL * N * N+ll GO TO LOOP; 

[N. [38133, N.[4lt7]] ♦ L"ADR; N ♦ N ♦ 1 1 

TOG «» simpgo Then elbatci*i-i3 ♦ elclass ♦ govj 

CLASS « semicolon THEN 

IF NOT gotog Then 

BEGIN EMITCLINKJILINK ♦ L •• L+U ENDI 
GO TO LOOP; 
USE IF ELCLaSS • ENDV ThEN 
IF NOT GOTOG THEN 



07646395 T 
07646400 T 



00611000010 
00811000010 



07646410 
07646420 
07646430 
07646440 
07646450 
07646460 
07646470 
07646475 
07646480 
07646485 
07646490 
0764.6A95 
07646500 
07646510 
07 6465 I 5 
07646520 
07646525 
076ft.653i) 
07646533 
07646535 

076463-38 
07646540 



00811 
OOBll 
OQBiJ 
00611 
00811 

ao&u 

0081 1 
00611 
00611 
00811 
00811 
.flOai! 
00811 
00611 
00^1-1 

ooan 

00811 
OJQfi^l 
00611 
00811 
OPS 11 
00811 



000210 

000210 

000313 

000411 

000713 

004)913 

001112 

001210 

flOUli 

001313 

001410 

QOillZ 

001913 

001913 

002^10 

OO26II 

002912 

0029 U. 

003011 

003313 

003410 

0035«3 



Tr 

N 

IF ELCLA 
N l« N«l 

WHlLr NU 
BEGIN TF 
TrDOC 
NULL 
ENDI 

eNotog ♦ 

COMMrNT 
DO StOPd 
OR NO 

endtog * 

COMMrNT 
MOVECODF 
BUlLnLfN 
TEMP U 
S6N0 ♦ S 
Z ♦ pROG 
SEGMfNTC 
SGAVL ♦ 
BUlLnLiN 
MOVErODF 
COMMfNT 
IF (L-AD 

whiLf Li 

BEGIN TF 
EMITS 
LfNK 

IF LA 
BfGIN 

PRTCIOOO) a *segment oescri 



GIN EMITCLINK); LINK ♦ L * L+ll eND> 
D0CfN.C36l3]» N,t4ll7]]* L'ADRl 
* N+ll 

SS * ENdV then begin ERR£ 71); GO TO LOOP ENOJ 

LL # DO 

MP * TEDOCtCNULL*NULL-l). £381331 NULL. t 41 1 7] ] ) 

[NULL,[38J33# NULL, [4117]] ♦ L-ADR| 

«■ TEMPI 

truei 

skip any comments after "end"! 

EFIJE ♦ TRUE UNTIL STE?! < ENDV AND ELCLASS t UNTILV 
T ENdTOgI 

FALSE! 

OEFfNE TEDOC AS TyPr-2 SEGMENT! 
CTEDOCf EDOO! 

E ♦ BOOLEANCJxREALfBUILDLINE)) I 
SGNO; IF LISTER OR SfGSTOG THEN SEGMENTSTARTI 

gavl; 

DESCBLDRtLDES» 0» pRT)! 

-N» SGNO, TEMP)] 

SGAVL ♦ i; SgNO «. TEMPJ 

E •• BUlLDLlNEtC46»l] \ 
(TEDOC* FDOOI 

FIX UP BRANCHES TO RESUME POINT* 
R)>1019 THEIM adjust;* 
NK i« 00 
MP * GET(LlNK-2); 
(BFW. LINK, L)l 
^ TFMP } 
STENTRY > 126 ThEN 

Real cj 

PTOR* 



07646543 

07646545 

07646548 

07646550 

07646555 

07646556 

07646560 

07646565 

07646570 

07646575 

07646580 

07646585 

07646590 

07646595 

07646600 

07646610 

07646620 

07646630 

07646635 

07646640 

07646650 

07646660 

07646670 

07646680 

07646685 

07646690 

07646700 

07646705 

07646710 

07646720 

07646730 

07646740 

07646750 

07646760 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



00811003611 

00611003913 

00811004312 

00811004410 

00811.004410 

008ll0046>l 

00611004810 

006tt0^4SJ2 

00811005312 

00811005611 

00811005712 

00811005713 

00811005811 

DOSlJDQSfill 

00811006112 

00811006312 

00BII0063I3 

0081 » 0063* 3 

00811006610 

00811006712 

0081I0070I0 

00811007112 

00811007241 

008l»0074IO 

00811007610 

0061*00 77 43 

00811007913 

00811007913 

00811008210 

00611006312 

00611008512 

00811008610 

00811006712 

00811008713 



STACKfF+12) s C 

COMMENT PERMITS SeVfRaL LONG BRANCHES IF NECESSARY) 

c «. bumpl; 
constantcleanj 
emitbcbfw, c» l3j 

EnDI 
PRT(lOOi) « *SEGMENT DESCRIPTOR* 

end; 

XITI 

END CASrSTMTl 



START Of Segment *♦•♦♦***♦* 82 



07646770 
07646780 
07646790 
07646600 
07646610 



82 IS 



81 



5 LONG. 

07646820 T 

07646830 T 

07646640 T 

IS 96 LONGf 



00821000010 
00821000010 
0082*000113 
00621000210 
00821000313 

NEXT SE-G -81 

008lt0089t2 
00811008913 
006110-05010 

NEXT SEG 3 



i 
i 



COMMENT 




07 647000 
07647500 
07648000 
O7646S00 
07649000 



T 00031063040 

T 00031083010 

T 00031083010 

T 0003 10430-tO 

T OOO3IO83OIO 



rfsides on t 
by the fill 
fxecuteo.str 

ARE ALL CONV 
NUMBERS LOOK 
BY OCTiZE.AF 
POPRT TO SUP 
SEGMENT DICT 
PROCEDURE FILLSTMTI 
PRTdOO?) » FILLSTmT 

BEGIN 
LABfL EXITI 



HE DISK AND IS READ INTO THE ROW DESIGNATED 
STATEMENT EVERY TIME THE FILL STATEMENT IS 

ingconstants»literal »and nonliteral numbers 

ERTED BY ThE SCANNER AnD NUMBER BU I LDER , OCTAL 

LIKE IDENTIFIERS TO FILLSTMT AND ARE CONVERTED 
TER BUILDING ThE SEGMENT AN ENTRY IS MADE IN 
PLY INFO To BUILD A DISK DESCRIPTOR IN THE 
IONARY.ThE COMMUNICATE LITERAL IS 7? 



DEFtNF 



STAC 
STAC 

PRT( 



STAC 
STAC 
STAC 



paRenco 

T 
J 
TrDOctO 



ARRAY 
K(F+2) « TEDOC 
KfF+3) « FILLTeMP 

BOOLEAN PROCEDURE 
IOO3) n FILLIT 

BEGIN 

REAL Tl» 



UNTER * RRi#t 
» RR2#» 

« rR3#; 

17,01127]. FILLTeMPC0U02?]I 



F?LL|T(A)I ARRAY A[0]J 



START 



07649500 
07650000 
07650500 
07651000 
07651500 
07652000 
07692500 
07653000 
07653500 

07654000 
07654500 
OF SEGMENT 
07655000 
07655500 
07656000 
07656500 



0003? 
00031 
0003« 
00031 
00041 
00031 
00031 
0003} 
00031 



083010 
083010 
O63OIO 
O63OIO 
08301 
O83OIO 
063010 
08 304 
O63OIO 



T 0003*083010 

t 00031083010 

T 00B3I0AQQ10 

T 00831000010 

T 0083)000010 

T 00831000010 



07657000 T 00831000313 



T2» T3; 



K(F+3) 
KfF44) 
KfF+5) 



Tl 
T2 
T3 



07657500 
07658000 

START OF Segment 



T 0083«0003I3 
T 00831000313 

4I4I******** 84 



STACK(F*6) a BOO 



BOOLEAN boo; 



07658500 T 0084»0000t0 



LABEL CH 

parencounteR 

WHILE T<1023 

BEGIN 

IF STEP 

BE 

IF 



ECK» GOOfUP. EXITI 
t«PARENC0UNTER+lJ 
DO 



I>I0MAX THEN 
GIN 

ELCLA 
IF TAB 



IF 
IF 



ir 

IF 



BEG 
Til 

STe 

IF 

ELS 



GO 

END 

(BOOi 

ELCLA 

IF ELC 

BEG 

boo T 

ELCLA 
BEG 
IF 



SSsLi 
LE(I + 
IN 

• ELBA 
PITJ 
TloO 

E BEG 
IF 

MOV 

END 

CHECK 

rePe 

»ELCL 
SS#Lt 

LASS# 

IN ER 
HEN C 
SSnST 
IN 
(T?Ib 

BEG 



TNo Then 

1)«LEFTPAREN 



Then 



Ttn, ADDRESS? T2t»T; 

IF FILLIT(A) THEN GO QOOFUPl 

THEN TI»T2 

IN 

(T3!«(Tl-l)x(T-T2))+T>l022 THEN 

BEGIN ERR0R(305)I GO GOOFUP ENDII>l023 
E(T3»AtT2].ACT3)J T»«T+T3I 

» 
P 

f . 

AT PARTI 

ASSrADOP) Then stepit; 

TNO AND ELCLASSi»NONLlTNO THEN 

STRING AND(ELCl.ASS#STRNGCON OR 800) THEN 

R0R(302J> GO GOOFUP ENOI % WHATlSlT. 

»»C»ELBATci*lHl«21«ni 
RING THEN 



T+(C0UnT+7)DIV 
IN ERR0RC305)I 



6-l)>l022 THEN 

GO GOOFUP end; 



% > 1023, 



07659000 
07659500 
07660000 
07660500 
07661000 
07661500 
07662000 
07662500 
076&30Q0 
07663500 
07664000 
07664500 
07665000 
07665500 
07666000 
07666500 
07667000 
07667500 
07668000 
07668500 
07669000 
07669500 
07670000 
0767-0#0a 
07671000 
07671900 
07472000 
07672500 



T 00841000010 

T 00841 000010 

T 00841000412 

T 00641000312 

T 0084I0003I2 

T 00 aa J 00044 

T 0084(0004(1 

T 00841000513 

T 0Q84IQ0O713 

T 00841000810 

T 0084l00i0tl 

T 00841004312 

T 00841001411 

T 00841001513 

T 00841004112 

T 0084(002011 

T 0084(0024(0 

T. .008410.02410 

T 0084(0024(1 

T 0064(0024(1 

T 0064100281 t 

T 0064(0028(1 

T 0084(0031(2 

T 00841^0 U( 2 

T 0064(0036(0 

T 0064(0037(2 

T 00844-00 i^Tlti 

T 0084(0040(1 



Wf. 



CHECKI 

goofupi 

EXiTI 



Taie" »•) M0VE(l.T3»A[l?])l 

MOVtCHARACTERS(COUNT»ACCUM[n»3»AtT3#0)| 
TH.T2I 
END 
ELSE MOVE(l»C»A[T]); 
END 
ELSE IF C0UNT$19 AND AcCUM [ 1 ] , 1 161 1 8 J.^OCT-" THEN 
BEGIN % GET RID OF "OCT" FOR OCTlZE. 
M0VECHARACTERS(C0UMT-3.ACCUM[n.6iACCUM[nt3)l 
IF OcTlZE(ACcUMtll»A[T]»l9-COUNT.C0UNT-3) THEN 

FLAG(303)> % NON-OCTAL CHARACTER. 
END 
ELSE BEGIN ERK0R(302)> GO GOOfUP END» % WHATISlT. 
Tl»T+l> 

IF STePI^COMMA THfN go EXITI 
END T LOOP) 
ERR0R(305)J J! > 1023 ITEMS IN LIST, 

FILLlTl.TRUE) 

PARENCOUNTER««PARENCoUnTER-REAL(ELCLASSsRTPAREN)I 
END RECURSIVE FiLLlTj 



84 IS 



07673000 T 
07673500 T 
07674000 T 
07674500 T 
07675000 T 
07675500 T 
07676000 T 
07676500 T 
07677000 T 
07677500 T 
07678000 T 
0767«500 T 
07679000 T 
07679500 T 
07660000 T 
07660500 T 
07681000 T 
07681500 T 
07682000 T 
07682500 T 
07683000 T 
07683500 T 
07684000 T 
78 LONG. 



OOe4l0042U 
00641004512 
0OMlO047t2 
00641004610 
0064I0046>0 

00641005113 
00e4>005l>3 
0084(00541 1 

ooa4ioo55ia 

0064>0056t0 
006410061*3 
00644004211 
00641006211 
0064(0066(0 
0064(0067(3 
006410066(0 

0064(0069(3 
00644007040 
0084(0070(i 
0064(0071(2 
0064(0071(1 
0064(0072(0 
0064(0073(3 

NEXT SEG aa 



IF ST 



VARtA 
XMARK 
IF FL 

STRfA 
IF TA 
IF 



EMITN 
IF LI 
MOVfC 

Buao 

IF FI 

ELSr 
ELSr 



MOVfC 



epkboo 

BEGIN 
IF ELCL 

MAKEA 
GO EXIT 
ENDJ 
BUE(FL) 
{ASSIGN 
CLASS^W 
BEGIN E 
MT0G(««T 
BLE(I+1 
Q««7INQ 
BEGIN 
STREAMT 
EMITPAI 
GO EXIT 
FNDI 
UMCSGAV 
STER OR 
ODEtTED 
LINE(«B 
LHT(F1 
IF PARE 
BEGIN 
FOR J«» 

MOVEf 
SEGMENT 

ENO» 
ODECTED 



ARRAYID OH ELcLaSS>iNTARRAYiO THEN 

ASS»FILEID OR ELCLASS-SUPeRFILEID THEN 
LABEL ELSE ERR0R(300)J % NO ARRAY ID, 

; 

) IF TABLEri-pJi'FACTOP THEN FLAr,(304)l % NOT ARR, ROW, 

REF)J % FILL STATEMENT «116' 

IThV THEN 

RR0RC301); GO EXIT END) % MiSSiNG "WITH", 

RUEI 

)SiDMAX Then 
ui« Then 

0G(«FALSE) I(«U1( STEPIT; 

R(9»C0M)) EMITOcDEDI 

I 

d) emitpalr(7»c0m)) emitocded* emito(del)» 
segstog Then segmentstarti 

OC»EDOC}( PARfNcOUNTER(«T(»0) 
00UEAN(2xREALfBUlLDLlNE)) ( 

LLTEMP) Then % do nothing, 

NC0UNTER»»1 then ERR0RC3O6) % ODD * OF PARENS, 

STEP 32 UNTtL T DO 

32,FILLTEMPrJ]»EDOCrJ,r38(3]»J,t<H('^3])( 
(T.SGAVL»SgNO)( 

OCfEDOO; STRfAmTOG«»FALSE( 



07684500 

0766S0QQ 

07665500 

07686000 

07666500 

07687000 

07687500 

07687600 

07666000 

07688500 

07689000 

07689500 

07690000 

07690500 

07691000 

07691500 

076920^0 T 

07692500 T 

07693000 

07693.500 
07694000 
07694500 
07.695000 
07695500 
07696000 
0769^500 
07697000 
07697500 
Q76i2BQ00 
07696500 



0063(0003(3 

006310005(3- 

0063(0006(0 

0063(0006(0 

0063(004010 

0063(0010(1 

0083(0010(1 

006310014)1 

0063(0016(1 

0083(00l9(3 

0083L002112 

0063(0022(0 

0063(0023(3 

OOeil 042542 

0063(002513 

0063(0026(0 

ooea I Q029J.i 

0063(0032(0 

0063(0032(0 

0M3l0a^i2. 

0083(0037(3 

0063)0041)2 

00631004210 

0063(0043(3 

0063)0046)1 

.oi)ai(-Xi047ia 

006310046)0 
0063(005410 
QJiaai 005512- 
0063(0055(2 



m 



RUILDLINIiI«BUILDLINf:.[46Ii J I Sr,AVH«SGAVL + ll 
END FILLSTMTJ 



83 



07699000 T 

07699500 T 

07700000 T 

IS 65 LONG. 



008310056(0 

006310060(1 

00831006112 

NEXT SEG 3 



COMMENT STMT DIRECTS TRAFFIC TO THE VARIOUS STATEMENT ROUTINES^ SOME 
CARE iS TAKEN To PICK UP EXTRANEOUS DECLARATIONS, ThiS 

Will sometimes cause additional error messages, this is 

An imperfect analysis of BEGIN-ENO PAIRS! 
PROCEDURE STMT I 
BEGIN 

LABEL AGAIN»LERR»LDEC»LPR0C»LSPR0C.LVAR»LAB#LREAD»LWRITE. 



LVAR- 



AGAINI 



lerr« 

LOECI 



lspace»lclo 
lgo, lRelse 

SWITCH S ♦ 

LPROC* LERR 
LPROc, LPRO 

LVAR» LVaR 

LcRR» LERR 

LCLOSE»LLOC 

EXIT. EXIT 

LRELSr.LBEG 

COMMENT THESE AD 

CONSTANTCLEAN AC 

GENERATED jN ThE 

addressing IS NO 

IF LASTENTRY #0 

BEGIN GT2 ♦ 

DO GTl ♦■ 

IF L- 

BEG 

C 

E 

END 

end; 
stackct ♦ 

GO TO StELC 
IF ELCLaSS 

BEGIN 
IF ELCLASS* 
IF ELCLASS« 

BEGIN 
rLpG(l45)« 
ERR<144)I G 
FLA6(146); 
IF TABLEd- 

Then begi 
I * I-l> er 

ELCLASS ♦ T 



se.llOck.lrw 
. lbeg. lbrk 

. LSPROC.LE 
C, LPROC. LP 



ND»LDBL.LFOR#LWHILE»LDO.LFlLU.LIF. 
. EXITI 

RR. LERR. LERR. LERR. 
ROC. LVAR. LVAR, LVAR. 



* LVAR 

. LfRR 

K, LRWN 

» EXIT 

; 

DITIONS 
TiON Wh 

STACK 
T POSSi 

Then 

INFO r 
GT2 Un 
GTl > 
IN GTl 
ONSTaNT 
MiTBfBF 
I 



. LV 

. LD 

0. LO 

» LF 

ARE 
EN tT 
WHICH 

ble; 

0.255 
TIL G 
400 T 

♦ BU 
CLEAN 
W. GT 



AR« LAB. 

EC. LREAD. 

BL* LFOR. 

ILL. EXIT. 



LERR. LERR. 
LWRITE.LSPACE. 
LWHILE.LDO. 
LIF. LGO. 



; 

Lass-switchi 
w thfn 

UNKNOWNSTMTI 

FAULTiD Then 
File id or el 

GTi*FIlEATTR 

TO EXiTi 

2) ■ ENDV AN 
N I ♦ f-21 E 
RORTOG * THU 
ABLEf Ul-ni 



BEING MADE TO FORCE 

APPEARS That constants will BF 

are TOO FAR AWAY AND OREL 



U 

T2*-GET(GTl) « 4095J 

HEN 

MPLJ 

t 

l.Dl 



D3I 

go to exit end j 

begin faultstmti 

classbsuperfileio 

IBUTEHANDLER(FS)J 



ZA 



GO EXIT 

Then 

GO exit 



fno; 
end ; 



D MODE > 
LCLASS ♦ ENDV) GO 
It BLOCKCFALSE)! 
GO TO EXiTi 



TO EXIT eNOI 



07710000 T 0003»0830»0 

07711000 T 0003»0830IO 

07712000 T 0003tO«aOJ0 

07713000 T 0003«0630IO 

07714000 T 0003«0630«0 

07715000 T 00031063010 

07716000 T 0003«0830IO 
START OF SEGMENT ♦*♦♦*♦*♦♦* 85 

07717000 T 00851000010 

07718000 T 00851000010 

07719000 T 00851000010 

07720000 T 008510002H 

07721000 T 00851000211 

07722000 T 00851000211 

07723000 T 00851.000211 

07724000 T 0085»0002«1 

07725000 T 0085I0002U 

07726000 T 0085IQ002JI 

07727000 T 0085I0002M 

07727010 T 00851002513 

07727020 T 008510025X3 

07727030 T 0085J0025I3 

077?7040 T 00851002513 

07727050 T 00851002513 

07727055 T 0085l0026«l 

07727060 T 0085«0029I2 

07727065 T 008510Q32I0 

07727070 T 0085»003312 

07727075 T 0085»0035I3 

07727080 T 0085I0Q36I0 

07727085 T 0085»0037«2 

< 07727090 T 0085»0037I2 

07727400 T 00851-003712 

07728000 T 0085l0038l0 

07728500 T 0085»0040ll 

07729000 T 00851 oa^ua 

07729100 T 00851004410 

1 07729190 T OO851OO46IO 

77 2 920 T • 085 1 004^ 10 

07729500 T 0085»0050t0 

07730000 T 0085I0051«2 

07731000 T 00851 QQS24 

07732000 T 0085»0053«3 

07733000 T 0085»0055«3 

077340.00 I QQasi.flQ59.ia 

07735000 T 00851006210 

07735500 T 00e5l0065«2 

7 735 51 T 00 85J.0fl 451 1 

07735520 T 0085»0065«2 



m 



LPROCI 

LSPROCi 

LVAR« 

lABi 

LRfADi 

tWRlTEl 

USPACCJ 

LCLOSei 

ULOCKJ 

LRWNOi 

LDBLI 

UFORl 

LWHILEJ 
l-DOi 

I- 1 F « 
LGOt 
LREL.SEI 
LBEG» 



EXiTi END 



PROCSTMT(TRUE)» GO TO EXjTJ 
STRMPROCSTMTI fiO TO EXIT* 

vaRiable(fS)i go to EXITJ 
labelrj go to arain; 
Readstmt; go to exitj 
writestmti go to exit; 
spaceSTht; go to fxit; 
closestmti go To exit; 
lockstmt; go to exit; 
rwndstmt; go to exit; 
dblstmt; go to eXit; 
forstmt; go to eXjt; 
whilestmt; 60 To exit; 
dostmt; go to exit; 
fillstmt; go to exit; 
ifstmt; go to exit? 
GOSTMT» go to exit; 
ReUSestmt; go to exit; 
IF stepi » declarators 
Then begin i * i-i; blockcfalse) 

else compoundtail* 
stmt; 



END 



85 IS 



07736000 T 0085 

07737000 T 0085 

07738000 T 0085 

07739000 T 0085 

07740000 T 0085 

07741000 T 0085 

07742000 T 0085 

0774 3000 T 0085 

07744000 T 0085 

07745000 T 0085 

07746000 T 0085 

07747000 T 0085 

07748000 T 0085 

07749000 T Q085 

07750000 T 0085 

07751000 T 0085 

07752000 T 0085 

07753000 T 0085 

07754000 T 0065 

07755000 T 0085 

07756000 T 0085 

07757000 T 0085 

92 LONG. NEXT 



10065)2 
; 00«6 1 
1006810 
I0069t2 
IX)071«2 
10072)0 
I0073«2 
100741 

1007512 
1007610 
J00JK.12 
I0076«0 
1007912 
IDOadl 
t0081>2 
1006210 
1006410 
1008512 
1006610 
1 0066 II 

1008913 
1009011 

SCfi 3 



PROCEDURE cmplxstmt; forward ; 

PRT(1004) m CMPLXSTMT 

procedure unknownstmt; 

begin label xxx»e; 



07777777 T 0003«0830»0 



STACK(F+2> m J 
STACK(F+3) m N 
STACKfr+4) » C 



Real j.n»c» 



IF » B ♦♦5BREAK'' Then 

begin EMlTfO); 
EMiT(48); 
EMiTOfCOM); 
EMlTOfDEL)' 
STePIT* 

GO TO xxx; 

end» 
IF q»»'7compl" Then begin cmplxstmt; go xxx end ; 
IF Q • »'3ZIP00" Then 

begin if taBlE(i+i) » withv then 
begin stepit; 

if STEPI < BOOARRAYID OR ELCLASS > 
INTARRAYID THEN 

IF elclassbfileid or 

elclasshsuperfileid then 

PASSFILE else 

go e else 
begin 
vaRiablecfdi 

IF TABLEfI*2) # FACTOR THEN GO TO e; 



07800000 

07801000 

START OF SEGMENT 

07802000 



07803000 
07804000 
07805000 
07806000 
07807000 
07808000 
07809000 
07810000 
078i0l00 
07811000 
07612040 
07813000 
07814000 
07614100 
07814200 
07814300 
078l44a0 
07814500 
07814600 
07815000 
07816000 



T 00031083010 
T 00031083010 

i^«f «ff *,*4if _8.6 

T 0086»0000t0 



0086 
0066 
0086 
0086 
0066 
0066 
0086 
0066 
0066 
0086 
00^6 
0066 
0066 
0066 
0066 
0086 
0064 
0066 
0066 

.aoa6 

0066 



lOOOOtO 

loooon 
;ooo2>o 

1000211 
1 00.031 3 
1000410 
1000411 
10007.12 
1000712 
1001112 

laoiiia 

t00i4t0 
t00l5t2 

tooi-AJ-a 

«00l7l2 
;00i6i0 
tXJX)i,9..t2 
1002010 
1002010 

1002211 



ENDI 

EMIT{163I EMiTOccOM)! 

GO TO XXXJ 



EMlTO(DrL)l 



U C ♦ 



8 



IF Q 
IF fi 
IF Q 



IF 
IF 
IF 
IF 



N «. 
END EI-Se 

« "ScHAiN" Then 

BFGIN N • II c ♦ 37 ENq eLSF 

m "AWHENO" ThEN 

BEGIN N ♦ 01 C * 6 END ELSE 

m ♦♦flWAiTO" Then 

BEGIN N ♦ il C * ? END ELSE 

• "ftCASEC" Then begin casestmt; go to xxx end 
q««/iSorto« Then begin sortstmtj go xxx end euSe 

Q-W5MERGE" ThEN BEGIN MERGESTMTI GO XXX END ELSE 

o.^esEARc* Then 



Q 



ELSE 



El 



EMITOCDEDI 



begin if stepi^leftparen Then 

BEGIN ERR(105)I go TO XXX ENDI 

IF STePI»FILEID or ELCLASS.SUPeRFILEID THEN 

PASSFtLr ELSE GO TO El 
IF ELCLASS#COMMA THEN GO TO El 

IF STEPKBOOARRAYIO OR ELCLASS> I NTARRAY I D ThEN 
GO TO El 

xmark(assignREF)i % Search statement 
variablecfdi 

IF TABLE(I»2)#FACT0P THEN GO TO 
IF ELCLASS#RTPAREN THEN 
BEGIN ERRfl04)l GO TO XXX FNOJ 
EMITPAIR(30,C0M)I EMITOCDEDI 
STEPlTl gO TO XXXJ 
END ELSE 

IF q«''4Sefko« Then 

Begin if stepi^leftparen then 

BEGIN ERR(i05)I GO TO XXXI ENDI 

IF STEPI#FILEID AND ELClASSi^SUPERF I LE ID THEN 

GO To E ELSE 

BEGIN EMITl(0)» EMITL(0)I PASSFILEI 

IF elclass/leftparen then 

BEGIN ERR(105)J GO TO XXXI ENDI 
STePITI AEXPI EMIT0(XCH)> 

IF elcLass^rtpaRen then 

BEGIN ERR(104)I GO TO XXXI ENDI 
IF STfPh»RTPAREN THEN 
BEGIN ERRCIO^)} GO TO XXXI ENDI 
EMiTPaIR(32,C0M)I EM1T0(DEL)» EMIT0(DEL)I 
EMjTOfDEDJ EMlTO(DEL)l STEPlTl 
ENDJ GO TO xxx; 
END ELSE 

IF Q«''6UNL0C'' Then 
BEGIN IF STEPI#LEFTPAREN ThEN 

BEGIN ERR(l05)l GO TO XXX ENDI 

STePiTI VaRiABLECFDI L ♦ L-ll 

IF TaBLE(I«2)#FACT0P Then FLA6(208)I 

EMIT0(DUP)| EMIT0(L0D)I EMITLCOI 

EMIT0C43, 3,5)1 EMiT0(XCh)I EMiT0(ST0)I 

IF ElCLASShRtPAREN then STEPIT else ERR(10A)| 

GO To XXX 



X116- 



07816100 

07817000 

07818000 

07819000 

078?0000 

07821000 

07821100 

07821200 

07822000 

07823000 

07834000 

07825000 

07825500 

078^6000 

07827000 

07828000 

07829000 

07830000 

07831000 

07832000 

07833000 

07834000 

07835000 

07835500 

07836000 

07837000 

07838000 

07839000 

07840000 

07841000 

07842000 

07843000 

07844000 

07845000 

07846000 

07847000 

07848000 

07849000 

07850000 

07851000 

07852000 

07853000 

07854000 

07.855000 

07856000 

07857000 

078 58 000 

07859000 

07859010 

07859020 

07859030 

07859040 

078590.50. 

07859060 

07859070 

07859080 

07859090 



00861002512 
00861002512 
00661002712 

00861002713 
0086 too 271 a 
0086*002811 
00861002912 
0084104)30X1, 
0086<0032>1 
00861003411 
00861 00 361 J 
0086(003913 
008610041*3 
00 86i 004810 
00861005210 
00661005610 

00661-005712 
00661005811 
008610062)0 
00&61Q06410 
00861006512 
00861006610 
00861 006 8. 10 
00861006912 
008610073*2 
00861007410 
008610076*0 
0086*007712 
00861007811 
0086*0081*2 
0086*0082*0 
00661008-210 
0066*0063*3 
0066*0065*2 
0086*006610 
0086*009010 
0066*009010 
00661009211 
0066*0093*3 
0086*009512 
006A1 009712 
00661009713 
0066*009913 
0066tJLlQflli 
0066*0102*0 
0066*0104*1 

00861040614 

0066*010712 

0066*010712 

QOaAlOlMH- 

0066*0110*0 

0066*0113*2 

0086.10445-1-1 

0066*0116*1 

0086*042011 

0Q8A1 04 211-3- 

0066*0126*1 



™P. 



» SFT OMIT » 



n 



XXX« F^DJ 



END 
NOT 



IF 



ELSE 
TSPOL 

BEGIN 
STEPI / 

BEGIN 



TO XXX end; 



ERRORCiOO); GO 
lEFTpAREN THEN 
ERR(l05)< fiO TO XXX ENDI 
STEPlT! AEXPi 
FOR J ♦ I STEP 1 UNTIL N DO 

BEGIN IF ELCLASS # COMMA THEN 

BEGIN FRR(16fl)| r,0 TO XXX ENDI 

stePit* aexp; 
endj 

IF ELCLASS Jt RTPAREN THEN 

BEGIN ERRCiO<i)IGO TO XXX END* 
EMlTLfO? EMiTOfCOM)? 

FOR J * STEP 1 UNTIL N DO EMITO(DEL); 
STEPlTI 



86 IS 



07859100 T 0086 

07859900 T 0086 

07900000 T 0086 

07901000 T 0086 

07902000 T 0086 

07903000 T 0086 

07904000 T 0086 

07905000 T 0086 

07906000 T 0086 

07907000 T 0086 

07908000 T 0086 

07909000 T 00&6 

079)0000 T 0086 

07911000 T 0086 

07912000 T 0086 

07913000 T 0086 

07914000 T 0066 

153 LONG. NEXT 



I0l27t2 
I0127«2 
1012712 
1012811 
1012913 
1013113 
1013211 

I0l34t0 
«0134JI 
1013712 
1013810 
1014011 
I0l41t2 
t0i43t2 
1014411 
t0l49t2 
1014913 
SEfi 3 



PROCEDURE FAULTSTMT) 
BEGIN REAL 



COMMENT This tS what happens FOR 
KIND OF statement, FOR THE RUN- 

elbw.str; Define adres«elbw,address#j 



THE''<FAUuTYPe>*'' 

time error mess; 



STACKeF+2> 
STACK(F+3) 



ELBW 
STr 



END 



START 



checker(Elbw*elbat[I])i str*if faUuTog then snd else STDI 

FAUlTOG ♦ BOOLEAN(l) OR FAULTOGJ COMMENT TELLS OEXP TO MESS 

WITH FAULTLEVEL» 
IF STEPI^ASSIGNOP THfN ERR C60) ELSE 
IF STEPI-LITNO THEN BEGIN EMlT(O); STEPIT END ELSE 

IF elclassbfaulTid Then faultstmt else dexpj 
emitpaiR(adRes»str); 

FAULTOG*FALSE&CELBW,lVl<IEVEL or FAULTOG, C46«n)C46»47ll]; 

faultstmt now wasnt That simplei 



07920000 
07921000 
079?2000 

OF segment 



T 0003IOB30IO 
T 00031083010 
T 0003*083010 

***«*4t*«*4> S7 



87 IS 



07923000 T 
07923100 T 
07923150 T 
07924000 T 
07925000 T 
07925100 T 
07926000 T 
07926100 T 
079?7000 T 
22 LONG. 



00871000010 
00871.000313 
00871000512 
00671000512 
00671000712 
00871001011 
0067l00l3t3 
00B7lQ0i5t2 

00871001912 
NEXT SE6 3 



PROCEDURE KLUDGE(T)I VALUE T| INTEGER T» 
PRT(1005) « KLUDGE 

BEGtN comment KLUDGE HANDLES ARRAY'ROW READS AND WRITES FOR 

Those cases which do not need to go through the 

FORMATTING INTRiNSICS. A NEW MCP INTRINSIC IS 
USED, To FURTHER IMPROVE SPEED/DECREASE CORE USEI 
LABEL EXITI 

L * ABS(T)| 

AEXPI 

IF ELCLASS#COMMA THEN BEGIN ERRC426); GO TO 'EXIT; ENd; 

IF stepkbooarbayid or euclass>intarrayid then 

BEGIN eRR(429); gO TO EXITI END; 
VARIABLECFDI IF TABLEC I"2 J^FACTOP THEN 
BEGIN ERRf427); GO TO EXiTI IHDt 

IF elclass#rtpaRen Then begin err(428)j go to exit; end; 



07930000 T 00031063010 



07931000 
07932000 
07933000 
07934000 
07935000 

start of segment 

07936000 
07937000 
O7938OOO 
Q7935Q0Q 
07940000 
07941000 
079420tOO 
07943000 



0003iOBlOlO 
00031083010 
0003>0830IO 
00031-064010 
00031063010 

*««*«*4t«4i* 86 

T ooeeiODQOio 

00661000112 
00881000113 

QOflfl.iiii)Oflja 

008610006)0 
00861000713 
OOBA^tflAiOiO 
OO68IOO121O 



IS FROM RCA0)2 
EMITV(JUNK)» END> 



EMiTOtXCH); 

IF T<o Then comment from write,, .(<o 

BEGIN EMITPAiR(JUnk#STd)I EmiTO(XCH); 

IF T>o Then if table? i+i)«lftbkket then 

BEGIN 60G0G0 ♦ FAuSE.ll JUST TO MAKE SURE,,, 

handlethetailenoofareadorspacestatement»« 

L «■ L"1JX remove the OPDC ON INPUTINT,,, 
EMITOCDEL)^ EMfT0(DEL)IX REMOVE LABEt WORDS.,, 
END FUSE STEPiT ELSE STEPiT;J! WALTZ ON BY,., 
EMTTVC6NAT(SUPeRM0VER)))I[ BET YOU THOUGHT I»D NEVER 00 
EXITI END THIS HAIRY kLUDGEJX 



IT 



07944000 
07945000 
07946000 
079(17000 
O794BOOO 
07949000 
07990000 
07951000 
07952000 
07953000 
07954000 



88 IS 31 LONGi 



0068I0014M 

ooaaiooi5i2 

00661001610 
0066l00l9t2 
0088-10022-10 
00881002312 
006810023(3 
008aiQ02iJ2 
00661002611 
00661002811 
OOAAlOOaSi 3 
NEXT SE6 3 



COMMENT FORSTMT IS REPONSlBLE FOR THE COMPILATION OF FOR STATEMENTS, 

IF THE FOR STATEMENT HAS A SINGLE STEP-UNTIL ELEMENT SUCH 

That the initial value* the step and the final value are 

ALL OF the form V,*V. OR -V WHERE V IS A VARIABLE OR A 
CONSTANT. Then THF code takes on A MORE EFFICIENT FORM, 
IN OTHER CASES THF CODE IS SOMEWHAT LESS EFFICIENT. SINCE 
The BODY OF THE FOR STATEMENT BECOMES A SUBROUTINE, THE 
STEP ALSO BECOMES A SUBROUTINE IF IT IS NOT SlMPLfl 
PROCEDURE FORSTMT» 
BEGIN 
OWN REAL B»STmTSTART»REGO»RETURnSTORE. ADORES, V.VRET, 



0800Q0QQ 
08001000 

08002000 
08003000 
08004000 
08005000 
060(^000 
06007000 
08008000 
08009000 
080}0000 

START OF Segment 



T 00031083^010 

T 0003*083010 

T 00031083010 

T 00031063010 

T 0003f0630tO 

T 00031083010 

T 00034063010 

T OOO31O83OIO 

T OOO3IO83OIO 

T OOOJIO6-3OIO 

T 00031083010 

*«4,4i*4r4>««« 69 



PRT( 


1006) 


9 


e 


PRT( 


1007) 




STMTSTART 


PRT( 


1010) 




REGO 


PRT< 


toil) 




RETURNSTORE 


PRT( 


1012) 




addres 


PRT< 


:1013) 




V 


PRT( 


:ioi4) 




VRET 


PRT( 


•1015) 




BRET 


PRT< 


■1016) 




SIGNA 


PRT( 


1017) 




SIGNB 


PRT< 


.1020) 




SIGNC 


PRT( 


•1021) 




INT 


PRTI 


,1022) 




CONSTANA 


PRT( 


1023) 




CONSTANB 


PRT( 


•1024) 




CONSTANC 



BRET* 
OWN BOOLEAN SIGNA. S iGNBt SigNC . INT. 

CONST ANA. CONSTANB. CONST ANCI 



FORMaLV =? SIGNA*. 
A ■ V'* Q " REGO#» 
FALSE** K B BRET#I 



PRTC1025) • 



DEFINE SIMPLEB a SIGNC#* 

SIMPLeV » C0NSTANA#I 
OPDC m TRUr*» DESC • 
LABEL exit; 
COMMENT FORCLASS CHECKS FOR THF APPROPRIATE WORD STEP. UNTIL. 
IF A CONSTANT iS FOUnD, IT STORES OFF THE VALUE (FROM 
iNFOtO.K] AND STUFFS K INTO THE ELBAT WORD* SO THAT 
RECONSTRUCT THE CONSTANT EHEN WE SCAN ELBAT AGAIN) 
PROCEDURE FORCLASS(ClSS)I VALUE CLSSI INTEGER CLSS; 



OR DO"- 
C) AT 
TABLE CAN 



BOOLEAN 
FORCLASS 



06011000 T 00691000010 
O8O12OOO T 0069t000Ql0 

08013000 T 00891000010 



OSOIAOOO 
08015000 
O8O16OOO 
08017000 
06017100 
06017200 

oaojzjijo.- 

08017400 
08017500 



T i)0a9JO0^O-lO 

T 00891000010 

T 00891000010 

T oii&» iii04xaL0. 

T 006910000(0 

T 00691000010 

T. oaaaiooo-Qxo 

T 00691000010 

T 00891000010 



IF STEPi » clSs Then forclass ♦ true else 



06017600 T 00891000010 



IF ELCLASS 2 NOnLiTNO AND ELCLASS < STHNGCON THEN 

BEGIN lNFOtO,K*K + l J •> Ci 

ElBATtn * 0&C0MMENTVt?«4lt734K[l6«37lin 
END FORCLASS) 



08017700 
08017800 
08017900 
08017950 



T 00891000210 

T OO89lO00«Hl 

T 00891000811 

T 0089I0011I3 



PRT(1026) • PUUG 



COMMENT PLUG EMITS EITHER AN OPERAND CALU ON A VARIABLE OR A CAUL ON A 

CONSTANT DEPENDING ON THE REQUIREMENTS; 
PROCEDURE PLUGfC»A)l VAbUE C,A| REAL a; BOOLEAN CI 

IF C THEN EMiTNuM (A) ELSE BEGIN 
CHECKfR (A)> 
EMiTVfA. ADDRESS) EN0> 



08018000 T 
08019000 T 
08020000 T 

08021000 T 
08021100 T 
08021200 T 



00*9^^01410 
00891001410 
00891001410 

00891001410 
0089)001712 
00891004713 



COMMENT SIMPLE DETERMINES IF AN ARITHMETIC EXPRESSION I S ♦ OR • A 

CONSTANT OR A SiMPLE VARIABLE. IT MAKES A THROUGH REPORT 
ON ITS ACTIVITY. iT ALSO MAKES PROVISION FOR THE RESCAN 
OF ELBAT fTHlS iS THE ACTION WITH K - SEE CODE IN THE 
TABLE ROUTINE FOR FURTHER DETAILS); 

BOOLEAN PROCEDURE SI MPlECB. A, S) » BOOLEAN B,SI REAL Al 
PRT(1027) * SIMPLE 



Begin 



END 



S *. IF STEPI # ADOP THEN FALSE ELSE ELBATC n . ADDRESS 

8 SUB} 
IF ElCLASS . ADOP THEN STEPlTJ 
IF ElCLASS i NONLITNO AND ELCLASS S STRNGCON 
THEN BEGIN K * K+U SIMPLE * TRUEI 

ELBAT[I] #. 0«C0MMENTV[2l41J73iKtl6l37lini 
INFOtO.K] ♦ A * C> B ♦ TRUE END 
ELSE BEGIN 
B * FALSE; A ♦• ELBATUJ; 

SIMPLE * REALID 5 EUCLASS AND ELCLASS < INTID END? 
SIMPLE'* 



08022000 
080?3000 
080?4000 
08025000 
80 96000 
080p7000 

080^8000 
080?9000 
080^0000 
080 31000 
08032000 
08033000 
08034000 
08035000 
08036000 
08037000 
08038000 
08039000 



00891001912 
0089lfl0i9V2 
00891001912 
0089t00l9l2 
00891001 912 
0089t00i9t2 



0089 
0089 
0089 
0089 
0069 
0089 
0089 
0089 
0089 
0089 
0089 
0089 



1 00 1 91 2 
I00i9t2 
I0022« 1 
10424^1 
1002610 
1002712 
10Q_31I2 
1003411 
100361 1 
1003912 
1004112 
1004313 



PRT(J030) • TEST 



COMMENT TEST EMITS THE STeP-UNTIL ELEMENT TEST; 
PROCEDURE TEST; 

BEGIN 

IF NOT COnSTaNB ThEN 

BEGIN EMITOCSUB)! IF SIMPlEB THEN EMI TVC B, ADDRESS) 

else begin 
emitlc2+l-bRET); 

EMlTB(BBW*BUMPL«B)} 
END* 

EMITOCMUL); EMIT(O) ENDI 
EMjTOCIF SiGNB ThEN GEO ELSE LEQ)i EMIT (0); L*L-1 

END test; 



08040000 T 
08041000 T 



08042000 
08043000 
08044000 
08045000 
06048000 
06047000 
08048000 
06049000 
080S0400 

oeosiooo 



00891004512 
00691004512 

00691004512 

00891004512 

006910^46-14- 

00891004912 

0089l0051»2 

04691005-3-1-2 

00691005513 

00691005513 

008»»00§715 

0069t0060il 



PRT(103l) m SIMPI 



BOOLEAN PROCEDURE SIMPKALDi VALUE ALL) REAL ALLI 



08052000 T 0089lP06n3 



BEGIN 



CHECKERfVRET*ALL)l 

addres ♦ all.aodRessj 

FORMaLV ♦ ALL. [912] » 21 
IF T * ALL. CLASS > INTARRAYlO OR T 
GTl * CT-BOOtD) mod « < I THEN 
ERR(REAL(T # 0) X 51 + lOOJJ 
INT * GTl B 3) 
SiMPi * T < iNTiO END SiMPlI 



< BOOID OR 



08053000 
08054000 
08055000 
08056000 
08057000 
08058000 
08059000 
08060000 
08061000 



T O089t0061t3 

T 00891006113 

T 00894-1)0634-3 

T 008910065(2 

T 00891006712 

T 0089100694 3 

T 0089I0072«0 

T 00891007512 

T 00«940076*1 



PRT(103?) • STORE 



COMMENT STORE EMiTS THE CODr FOR THE STORE INTO THE FOR INDEX| 
PROCEDURE ST0Re(S)I VALUE SI BOOLEAN Si 

BEGIN 

IF FORMALV Then begin EMlTO(XCH)i S * FALSE END 
ELSE BEGIN 

EMITl(ADDReS)I 

IF ADDRES > 1023 THEN EMITOCPRTE) ENOI 
T 4. (REAL(S) + nxi6l 

EMiTocdF INT Then T+512 else 4xT)+4) end storei 



08062000 T 
06063000 T 



08064000 
08065000 
08066000 
08067000 
06068000 
08069000 
08070000 



0089t0080t0 
0089l00»0l0 



00891 
0089 1 
00891 
00891 
QQ89I 
00891 
00891 



ooeoio 

008010 
0083»3 
0084<0 
008 512- 
008712 
008912 



PRT(1033) » CALL 



COMMENT CALL EFFECTS A CALL ON THE INDEXl 
PROCEDURE CALLfS)! VALUE SI BOOLEAN SJ 

BEGIN 
IF SiMPLeV 

Then if s thfn emitv(ADdres) else emitn(adoRes) 
else begin 

EMiTl(2+L-VReT)« 

EMlTBCBBWfBUMPLfV7f 

IF S THEN EMlTO(LOO) END END CALL! 



08071000 T 
08072000 T 



08073000 
08074000 
08075000 
08076000 
08077000 
060 7 8000 
08079000 



0089t0093l2 
00891009312 

0089t0093i2 
0089(0093(2 
00891009410 
008910097(3 
008910098(1 
00891 Oil) Oil 
0089(010312 



PROCEDURE FORLlSTfNUMLEJl VALUf NUMLEI BOOLEAN NUMLEI 
PRT(1034) n FORLlST 

BFGIN 
PROCEDURE FIX(ST0RE»BACK,F0RWART, START); 



08080000 T 00891010512- 



PRT(1035) ■ FIX 



06081000 

O8062QO0 

START OF SEGMENT 



T 0089(010512 
T 0065!0lfl5(2 



VALUE STOREiBACKiFORWARTfSTART? 

REAL store»back»forwart»start; 

BEGIN 

EMlTB(GET(FORWART»l).fQRWART.START)l 

IF RETURNSTORE ?» 
THEN BEGIN 

L * STORE! EMITNUM(B-BACK); 
EMITPAIR(RfTuRNSTORe#STD) end END FlXI 



08083000 T 
08084000 T 
08085000 T 
080^6000 T 
08087000 T 
06088000 T 
08089000 T 
08090000 T 



0090(000010 
0090(0000(0 
009010000(0 
00904 04)^04 
0090(0002(0 
0090(0002(1 
00904040343 
0090(0006(0 



m 



STACKfF+2) 
STACKrr+3) 
STACKfF+*) 
STACKfF+5) 



BACKFIX 

forwardbranch 

FOOT 
STOREFIX 



INTEfiER BACKFIX, fORWARDBRANCh» FOOT. STOREFIX? 



08091000 T 00901000713 



COMMENT 

COMMENT 
COMMENT 
COMMENT 



COMMENT 
COMMENT 



COMMENT 



LABEL BRNCH.EXITI 
STOREFIX * LI Q •■ 
FOR K * 1 STEP I 
IF NUMLE 

THEN BEGIN 

BACKFIX * It 
IF FORMALV T 

ELSE BACKFIX ♦ V 
DIALA * DjALB «■ 
AEXPI DiALA «. DiA 
PICK UP FIRST ARI 
IF ELCLASS m 5TE 

Then begin 
here we have a st 

BACKFIX 4. bU 
LEAVE ROOM FOR fO 
TF FORMALV T 
FETCH INDEXI 

IF I > 70 TH 

ELSE REG 

IF SlMPuEB * 

(STEPI m UnT 

THEN BEGIN 

We HAVE A SIMPLE 

PLUG(CoN 

END ELSE B 

The STEP FUNCTION 

SUBROUTiNEl 

I •■ IF I 

SIQNB * 

EMIT(O)) 

AEXPI EM 

BRET * L 

EMIT0(BF 

EMlT0(REALfS 

EMITB(BFW»BA 

IF ELCLASS • 

THEN BEGlN 

STOREfT 

STePIT* 

ELSE BEGiN 

IF ELCL 

BEGIN 

STEPITI 

ELSE BEGIN 

WE DO NOT HAVE A 

STORE(FALSr) 

IF ELCLASS « 

THEN BEGIN 



REAL(M0DE»0)+3I 
UNTIL Q DO EMiTOfNOP); 



HEN CALLCDESC) END 
♦ REALCSIMPLEV)-1> 

; 

L8 » OJ 

THMETIC expression; 

PV 

fp element; 

MPL> 

RWARO JUMPi 

HEN CALLCDESC)* CALLCOPoOl 

EN BEGIN NXTeLBT ♦ 1 » I ♦ END 
* I> 

SIMPLE(C0NSTANB#B,SIGNB) AND 
ILV or ELCLASS » WhILEV) 

STEP FUNCTION* 
STANB »BU 
EGIN 

is not simplei we construct a 

< 4 Then o else rego; stepiti 
constanb ♦ false* 

8 ♦ L* 
ITOCXCH)* 
) 

W) END* 

IGNB)X32+A0D)* 
CKFlXiD* 

UNTiLV 
COMMENT STEP-UNTIL ELEMENT* 
RUE)* IF FORMALV THEN CALLCOPDOl 

AEXP* TEST END 
COMMENT STEP-WHILE ELEMENT* 

ass t WHILEV Then 

ERR(153)* GO TO EXiT END* 
STORECFALSE)J BEXP END END 

STEP ELEMENT* 
* 

WHILEV 



08092000 
08093000 
08094000 
08095000 
08096000 
08097000 
08098000 
08099000 



08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
08 
06 



100000 
lOlOOO 
102000 
103000 
104000 
105000 
106000 
107000 
108000 
109000 
llOOOO 

uiooo 

112 000 
113000 
114000 
115 QOO 
116000 
117000 
1 18000 
119000 

laoooo 

1 21 000 

122000 

123000 

124000 

125000 

126000 

12? QOO 

128000 

129000 

UOOQQ 

131000 

132000 

1330QQ 

134000 

135000 

1 36000- 

137000 

138000 

1 39 000 

140000 



0090*0007*3 
009010007*3 
0O9O*00lOll 
0090*001513 
009010015*3 
009010016*1- 
0090l00l7*2 
0090*0019*2 
009010022*0 
009010023*2 
009010025*2 
0090*0025*2 
009010025*2 
009010026*0 
009010026*0 
00901002810 
00901002610 
00901003112 
009010031*2 
009010033*3 
0090*00^512 
009010037*3 
009010036*1 
Q010IDQAU2 
009010041*2 
009010042*1 
00901004312 
0090*0043*2 
0090*0043*2 
00901004^11 
0090*0046*1 
0090*0050*0 
00904 0051*3 
0090*0052*1 
0090*0053*2 
00901005512 
009010056*1 
0090(005611 

00901005.713 

0090*0060*1 

009010062*1 

ODfiQ 1.00^312 

0090*0063*3 

0090*0065*3 

0^9^0*0067*1 

00901006610 

00901006610 

005.0L0049-ia. 

0090*0069*2 



m 



COMMENT 
COMMENT 

COMMENT 
BRNCHI 



WE HAVE A While element; 
stepiti bexp end 
else begin 
one expression element? 

IF ELClASS # COMMA THEN BEGIN 

EMlTB(BrW,BUMPL»L+?)> BACKFIX * L END 
ELSE BACKFIX ♦ L + 2J 
U * L*ll EMITCBFW)! 60 TO BRNCH END ENDI 
The COMMON POlNTJ 

comMa Then emitlngj l 



This is 

IF ELCL 
EMITCBF 
FORWARD 

IF ELcL 
THEN 
ST 

fo 

FI 
ELSE 
IF 

ST 
IF 
IF 



DIALA * DIALB * 01 



ass ■ comMa Then emitlngj l •• l+i> 

c); 

bRa^*ch * Li 

ASS » cOMMft 
BEGIN 

ePiti 

RLlST(TRUE)» 

X(STOREFfX»BACKFlX»FORWAROBRANGH»STMTSTART) END 
BEGIN 
ELCLASS # DOV 

THEN BEGIN eRRC154)I RFR0*L» 60 EXIT END> 

EPii; 

NUMLE Then foot i« getspacecfalse.-D; * temp. 
liStmodf then listelement else stmt; 



FOOT)l EMITOCBBW) END 



EXITI 



END 



IF NUMLE Then begin 

EMlTVfRETURNSTORE 
ELSE BEGIN 

EMlTB(BBW.BUMPLiBACKFIX)» RETURNSTORE * 

STMTSTART * forwardbranchi B #• LI 
constantclean; REGO ♦ L» 
fix(storef!X,backfix»forwarobranch»l) end; 
forlisti 



END; 



90 IS 



06 


141000 




00901007010 


06 


142000 




00901007010 


06 


143000 




0090I0071«2 


06 


[44000 




0090I0071»3 


Q6^ 


145000 




00901007113 


08j 


[46000 




00901007312 


08 


[47000 




00901007611 


061 


148000 




00901 00761 


081 


149000 




009010090(1 


08 


[50000 




00901008011 


08 


151000 




0090JD04313 


06 


152000 




00901000411 


08< 


[53000 




00901000712 


08^ 


[54000 




0090J 000712 


061 


[55000 




00901008810 


08] 


[56000 




00901000611 


08| 


157000 




oo9oiaaft9i3 


08i 


[58000 




00901009113 


08 


159000 




00901009210 


081 


[60000 




00901009211 


06] 


161000 




00901009513 


06] 


162000 




00901009610 


08j 


63000 




00901009811 


06i 


[64000 




0090l0l0ll2 


081 


[65000 




00901010112 


081 


66000 




00901010113 


081 


167000 




00901010410 


081 


[68000 




00901010411 


081 


[6.9iJ00 




O09.OJ 010X13 


081 


170000 




00901010913 


081 


[71000 




00901011112 


061 


172000 




00901011312 


11 


[6 L0N( 


It 


NEXT SE6 89 



STACKfF+2) » Tl 

STACKfF+3) « T2 

STACK(F+4) m T3 

STACKfF+5) m T4 



Real ti.t2»t3#t4i 



08173000 T 00691010512 



NXTELBT ♦ 11 I *. 01 

STEPlTl 

IF SlMPl(VRET*ELBATtn) 
THEN BEGIN 

IF STEP? # ASSIGNOP THEN BEGIN eRR(152)I 

XMARKCASSIgNREF)J % FOR STATEMENT 

Tl ♦ LI IF FORMALV THEN EM I TN( ADORES ) 1 

K » Of 

IF SiMPLECCONSTANAf A»SiGNA) THEN 

IF FORCLASS(STEPV) THEN 

IF 5lMPuE(C0NSTANBtB»5lGNB) THEN 

IF FORCLASS(UNTiLV) THEN 

IF simple(constanc»q»signc) Then 

IF FORCLASS(DOV) THEN 
BEGIN 



GO 



FXIT ENOl 
X116- 



08174000 

08 175000 

08176000 

06177000 

O8178O00 

08178100 

08179000 

08100000 

06181000 

08182000 

06183000. 

08184000 

08185000 

00186000 

06187000 



00891 
00691 
00891 
00891 
00091 
00891 
00891 
00691 
00891 
00891 
OQMJ 
00091 
00091 
0009! 
00891 



010512 
010611 
010712 
010713 
040913. 

011210 
011611 
011912 
012010 
Ol22»l 
0124.10 
012611 
012010 
013112 
013211 



NR 



stePiti 

Tl ♦ fC((4 
REAL( 
REAtf 
REAUf 
REALf 

T2 * vReT; 

T3 • Bl 

T4 ♦ QJ 

IF LiSTMOo 

SiGNc * BO 

StGNB •- 80 

constanc *• 
constanb 4. 
stmtstart 
Returnstor 

VRET *■ T2; 
B ♦ T3I 
Q ♦ TftI 
SiMPLEV* S 



PLUG(C0NSTANA»A); 

IF sifiNA Then emito(chs); 

RETURnSTORe ♦ BUMPLI ADJUST; 
STMTSTART «• ll 



constantclean; 



096 X ReTURNST0RE*STMTSTART)x2+ 

constanb))»<?+ 
constanc))*?* 

SlGNB))x2* 
SI6NC5» 



E Then listelement else stmti 

0LEANfTi.['«7»n)l 
0LEANfTi,t'»6ll]); 

B00LEANCTl,[45in)l 

B00UEAN(Tl,[44»l])l 

* Ti,r32ii2]; 

E ♦ Tl.[20f 1231 



EXITI 



S 

E 

G 

I ♦ ? 

SIMPL 

V ♦ T 

ELSE BEG 

EMIT( 

VARIA 

ir EL 

ENDI 

STEPITI 

END PORST 



IMPKvRfT)* 

IF FORMaLV then EMITN(ADDRES)» EMlTV{ADnRES)l 

plugccOnstanb»b)i 

EMiTOflF SIgNB THEN SUB ELSE ADD); 

EMiTBfBFW.RET.URNSTORE.L); 

ST0RE(TRUE)I 

IF FORMALV THEN CALLCOPDOI 

PLUG(C0NSTANC.Q)I 

IF sifiNc Then emitocchS); 
IMPLEB * true; test; emitlng; 

M I TB( BBC >BUMPL» STMTSTART); 

TO e^tT eno» 

1 K ♦ 0; 

EV ♦ SIMPI(VHET); 

1 END 

IN 

0); V * L* siMPLEV * false; 

BLECFR); EMITOCXCH); VRET ♦ 



FORMALV 4- TRUE! 
Li EMITOCBFW)! 



class#assi6nop Then begin eRR(i52)j go exit end; 



FORLISTfFALSE)! 
MT; 



REGO; 



08188000 
08189000 
08190000 
08191000 
08192000 
08193000 
08194000 
08195000 
08196000 
08197000 
0819800-0 
08199000 
08200000 
06201000 
08202000 
08203000 
08204000 
08205000 
08206000 
08207000 
08208000 
08209000 
08210000 
08211000 
08212000 
08213000 
08214000 
08215000 
a82 16000 
08217000 
08218000 
QB2190Q.Q 
08220000 
08221000 
08 22200 
08223000 
08224000 
08225000 
08226000 
08227000 
08228000 
08229000 
08230000 
082 31000 
08232000 
89 IS 211 LONG* 



0089 
00^9 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0089 
0089 
0069 
0069 
0069 
0069 
0069 
0069 
0049 
0069 
0069 
00 6 J 
0069 
0069 
0089 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
QOAfi 
0069 
NEXT 



t0l33>2 

I 04 341 1 



10 
10 
1-0 
10 
10 
10 
iO 
10 

to 

10 



to 

10 
10 

to 
to 

10 
10 
10 
10 

to 

10 

to 
to 
to 

1.0 

to 
to 

10 

to 
to 

ID 

to 
to 

ID 

to 
to 

1.0 



36«l 
3913 

4Sill 

4112 
4312 

4444 
45t3 
47t2 

46J^ 
49t2 

50 to 



1045112 
54ti 
56t0 
5713 
59t2 
60ti 
621-0 
6313 
64tl 
r^54 3 
66tl 
66tl 
74 1 3 
73t2 
75t3 
771* 
76t0 
6010 
6210 
6313 
86 to 
A6 J 1 
69t2 
90ti 
9211 
93t3 
94t0 
.9610. 
t0201t2 
t0203t3 
1020 3 13-- 
t0206t0 
SEG 3 



PROCEDURE handlethftailendofareadorspacestatemfnt; 

BFGIN COMMENT THIS ROUTINE CHECK FOR ACTION LABELS IN READ 
SPACE STATEMENTS AND GENERATES ThE APPROPRIATE COoE* 
LABEL PASSPARlABL; COMMENT WHEN I REACH THIS LABEL A 



LABEL exit; 



COLON 
COMMENT THE 



AND 



HAS JUST BEEN JJETECTEOi 

LABEL EXIT APPEARS AFTER THE LAST 



08233000 
06234000 
0-6235^00 
06236000 
START OF SEGMENT 
08{? 37000 
08238000 



T 0003t0630t0 

T 0003t0830t0 

T. 004)^4-0*^04^- 

T 0003t0830t0 

4>*«)|r»****« 94 

T O.OSltOOOOl4- 

T 00911000010 



EXECUTABLE STATEMENT IN THIS ROUTINE? 
IF STePI "= LFTBRKeT 

Then begin comment this code handles parity and end of 
file labels; 
IF STEPI * Colon then dexp else emit(0)i 

IF ElCLASS # COLON THEN EMIT(O) ELSE 
BEGIN STFPITJ DEXP END* 



END 



IF CHFCK(RTBRKETi433) 
THfN 5O TO EXIT* 

COMMfNT ERROR 433 MEANS MISSING RIGHT BRACKET 
IN READ OR SPACE STaTFMENTI 
STgPlTl 



ELSE BEGIN COMMpNT THERE ARE NOT ANY ACTION LABELS IN THIS 
CASE* 

EMiTLcO); EMITL(0)I 
eNqI 
IF GOSOgO THFN begin EMIT(0)J EMiTCO)! eM!T(0)I 

fMtTV(133 

END elSf emitvcgnatcinterptd); 
gogogo 4. falseu 

EXITII 

END HAnDLETHETA I LENDOR ARE ADORSPACE statement I 



91 



08?39000 ^ 


r 009J 


lOOOOlO 




08?40000 ■ 


r 0091 


tooooto 




08?41000 " 


r 0091 


lOOOOtl 




08?42000 ' 


r 0091 


(000113 




08?430«0 ' 


r 0091 


10004* 3 




08244000 ' 


r 009i 


t 000411 




08?45000 ' 


r 0091 


1000611 




08946000 1 


r 0091 


lOOOBJO 




08247000 1 


r 0091 


1000810 




08248000 1 


r 0091 


tOOOBlO 




0^249^00 1 


r 0091 


taoos^4 




08230000 1 


r 0091 


1000610 




08251000 1 


r 0091 


1000810 




08252000 1 


r 0091 


iOOOfiJO 





08253000 1 


r 0091 


1000810 




08254000 1 


r 0091 


1000610 




08255000 1 


r 009 1 


1 0008 to 




08256000 1 


r 0091 


loooaio 




08257000 1 


r 0091 


1 0008 to 




08258000 1 


r 0091 


J 0006 10 




08259000 1 


r 0091 


lOOOBtO 




08260000 1 


r 0091 


toooeio 




06261000 1 


r 0091 


.10 00 610 




08262000 ] 


r 0091 


iOOOBtO 




08263000 1 


r 0091 


toooeio 




08264000 1 


r 0091 


10008 to 




08265000 1 


r 0091 


loooeto 




08266000 1 


r 0091 


t0008t0 




06267000 1 


f 0091 


1000810 




08268000 1 


r 0091 


1000810 




08269000 1 


r 0091 


1000810 




Qfl27QO0O 1 


r 0091 


lOooeto 





08271000 1 


r 0091 


tOOOBtO 




08272000 1 


r 0091 


I0008IO 




08273000 1 


r 0091 


toooeio 




08274000 1 


r 0091 


I0008t0 




08275000 1 


r 0091 


toooeio 




08276000 1 


r 0091 


lOOOBtO 





08277000 1 


r 0091 


toooeto 




08278000 1 


r 0091 


t0008l 1 




08.279000 1 


r. 009.1 


IQQ 10.10 


,. , ,- .,, ,.,.,. 


08280000 1 


r 0091 


1 001 010 




08281000 1 


r 0091 


lOOlOlO 




0^282000 1 


r 0091 


.1 OQlQJl 




08283000 1 


r 0091 


tooioti 




08284000 1 


r 0091 


lOOlltg 




08285000 1 


r 0091 


10.QUI2 




08286000 1 


r 0091 


1001211 




08287000 1 


r 0091 


1001211 




OB28Z100 1 


r 009 1 


iODiSU 


„„ 


08287200 1 


r 0091 


1001513 




08?87300 1 


r 0091 


tooieio 




0828*000 1 


r. 00-9.1 


1.004*11-. 




08289000 1 


r 0091 


1001912 




IS 20 LONGi 


NEXT 


SEG 3 
















DEFINE EMI 
EMI 

PROCEDURE READSTMTJ 

begin comment r 
Short for 

ORUMf PASS 

The read o 
The spAc 

STATEMENT 

Reverse oi 

EXPRESSION 
I HAVE L 

reaostmt p 
are passed 

1^ * * 4> 41 * iK 4< «> 4< 

<oirection 
<FaE part 
<release I 
<action ua 



TN0(EMITN01)«BEGIN EMlTL(0)J EM 1 Tt(EM I TnOI )END#i 
TTIME.BeGIN EMITN(2)| EMIT0(259)I AEXP I 

EMiTPAlRCJUNKriSN)! EMlT0(965) eNO*I 



CIMI IS Th 

powersofte 

FtLE iS A 

ACTION TYP 

1 OR 

REVE 

VAL.U 

PROC 

End of fil 
Parity lab 
+ or - N I 

DI 

GR 

IN 

LIST ROUTi 



N IS THE V 

READ<DIREC 

<ACTl 



EADSTMT GENERATE 
INTERPRET INPUT) 
ING To IT PARAME 
R SPACE STATEMEN 
E STATEMENT IS H 

WHERE Zero words 

RECTION DEPENDIN 

IN The space st 

ISTED BEIOW The 

rocedure and the 

To InTeRPTi. 

IND1CAT0R>» J«RE 
>n«<FlLE lOENTl 
NDlCATOR>n«tN03 

bels>j i.kend of 

C<END of 
<EMPTY> 
E CHARACTER MODE 
N IS A TABLE OF 

CONVERSION, 
DATA DESCRIPTOR 
E IS A FOUR VALU 

2. THE Sign of 
RSe Direction fo 
e is one more th 

ESSED. 

e label is a dat 
descripto 

EL IS A DATA DES 
DESCRIPTOR FOR 

s Similar to act 

STANCE and DIREC 

EATER Than the n 
action type. 

NE DESCRIPTOR iS 
DES 
AN 

The 
alue of the arit 
tion indicat0r>( 
ON labelS> 



S CODE TO CALL I NTERPT I ( WHI CH IS 
AN INTRINSIC PROCEDURE ON THE 

TERS DETERMINED BY THE FORMAT OF 

T. 

AnDlED AS A SPECIAL CASp OF READ 
ARE READ IN A FORWARD OR 

G ON THE SIGN OF THE ARITHMETIC 

ATEMENT, 

VARIOUS CASES CONSIDERED BY THE 
CORRESPONDING PARAMETERS WHICH 

VERSE/<EMPTY> 

FIER>/<SUPERFILE 0ESIGNAT0R> 

/<EMPTY> 
FILE LABEL>»<PARlTY LABEL>J/ 
FILE LABEL>3/t KPARITY LABEL>3/ 

INPUT EDITING ROUTINE. 
POWERS OF TEN USED FOR 

DESCRIBING THE UO DESCRIPTOR. 
ED PARAMETER. IT MAY Bf + OR-i 

The value indicates forward or 
r * and - respectively, the 
an the number of records to be 

a descriptor pointing to a label 
r for end of file jumps, 
criptor pointing to a label 
parity condition jumpsl 
ion type. it contains the exact 
tlon to space rather than one 
UMBER OF Records to be spaced as 

AN ACCIDENTAL ENTRY PRqGRAH 
CRIPTRO WHICH WILL EITHER RETURN 
address or value depending ON 

CALL, 
HMETIC EXPRESSION IN READ STMT, 
<FILE PARTXRELEASE INOlCAT0R>) 



(CIMIiPOWeRSOFTeN.FILE»ACTION TYPE»0#O,0iEND of file LABEL 
.PARITY LABEL) 

*4i ** Dott «« 4t* ** ** ** iC* ** ** 

ReAD<DIRECTION iNdICATOR>C<FILE PARTXRELEASE 
<foRmat PART>)<ACTiON labels> 



*« ** 4141 
INDlCAT0R>i 



(cimi,poweRsoften,fileiACTion type.format index* format 

array descriptor. O.END of file LABEL»PARITY LABEL) 

4ii|i i^Hf *m iti« 4t* *« ** 4141 «* «* Id* i(ii|( 4(« «« 

SPACE(<FIUE PART>i<ARlTHMETlC EXPRE5S10N>)<ACTION LABELS> 



08?89010 
08289020 
08289030 
08290000 
08291000 
08292000 
08293000 
08294000 
0829SO00 
08296000 
08297000 
0«29«000 
08299000 

O83OOOOO 
08301000 
08302000 
08303000 
08304000 
08305000 
08306000 
08307000 
08308000 
08309000 
08310000 
08311000 
08312000 
08313000 
08314000 
08315000 
08316000 
08317000 
08318000 
08319000 
08320000 
08321000 
0832200O 
08323000 
08324000 
08)25000 
08326000 
08327000 
08 3 2 8000 
08329000 
O833OOOO 
Oa331X>00 
08332000 
08333000 
08334000 
08335000 
08336000 
08337000 
08338000 
O83390OO 
Q8 34'3000 
08341000 
08342000 
-0.8341000 
08344000 



T 00031083010 

T 00031083010 

T 0003)083010 

T 00031083010 

T 00031083010 

I QQO3IOB.3QIO 

T 00031083010 

T 0003«0830»0 

T 0003 108 JO to 

T OOO3t0830t0 

T 0003tOB30tO 

T O0O3l0#30-»O 

T 0003*083010 

T 0003«0830»0 

T 00^3* 08^010 

T 00031083010 

T 0003»0830»0 

T 0003 10830 to 

T 00031083010 

T 0003>0830t0 

T 00O3t083<}l0 

T 0OO3l0830t0 

T 00031083010 

T 00011083010 

T 0003I0830IO 

T OOO31O83OIO 

T 00031083010 

T 0003«0830«0 

T 0003«0830«0 

T OOQ3IO83OIQ- 

T 00031083010 

T 00031083010 

T QQO3IO.84QIX) 

T 0003*083010 

T 000310830(0 

T 0003 1083010 

T 00031083010 

T 00031083010 

T 0003 1 0^30 10- 

T 0003«0830I0 

T 00031083010 

T 000340830*0 

T 0003*083010 

T 0003*0830*0 

T- OOXJIIOAIOIO 

T 0003*083010 

T 0003*0830*0 

T oao3ioai.aio 

T 0003*0830*0 

T 0003*0830*0 

T QOQ3lQi30JQ 

T 0003*083010 

T 0003*0830*0 

T aoxxiioejoio 

T 0003*0830(0 

T 0003*08 30*0 

T OOflll-OAlQLO- 

T 0003*0830*0 



eciMl.POWpRSOFTFN,riLE.+ OR 
PARITY LABEU) 

*« «4i ** 414, «* 4141 *« 4141 41* *:|i «4i 

ReA0<D!RECTI0N fNDlCATOR>(<FILE PARTXRELEASE 
<F0RMAT PART>»<tlST>)<ACTlON LABELS> 



N,0»0»1»END OF FILE LABEL* 



4141 4141 4<iti 

indtcator>» 



STACKfF+2) m LiSTAODRESS 

STACKfFf3) m SEEKTOG 

STACKfF+4) » LOCKTOG 

STACKfF*5) s GRABTOG 

STACKfF*6) » MAYl 

5TACKcF+r) s HOLD 



(ClMI#POWERSoFTENfriLE»ACTlON TVPEfFORMAT iNDEXtFoRMAT 
ARRAY DESCRlPToRfLlST ROUTINE DESCRIPTORiEND OF FILE 
LABEL»PAR1TY LABeD 

*4i <¥* ** 41* ** ** ** 4t4i 4<* ** ** *4: 4(* * 4i 

READ<DIRECTI0N |NoICATOR>(<FILE PARTXRELEASE INDICATOR^. 
*t<LlST>)<ACTlON LABtLS> 

(cimi.poweRsoftfn.fileiaction type»o»OiList routine 

DESCRIPT0R»END Of FILE LABELtPARlTY LABEL) 

4141 4'4i 41* 4i4( ** 4i4< ** ** ** ** ** ** ** *4< 

RfAD<DIRECTiON iNdiCATOR>(<FILE PARTXRELEASE |NO!CATOR>» 
<ARiTHMeTic EXPRESSlON>f<ROW DESI6NAT0R>)<ACTI ON 

labels> 

rciml.powersoften,file»actlon type»0»n»r0w descriptor, 
end of file labeliparlty label) 

4t4< »♦ ♦♦ ** ♦* ♦♦ ♦♦ *♦ ♦♦ ♦♦ *# ♦♦ »* m* 
ReAD<D!RECTI0N tNdICATOR>(<FILE PARTXRELEASE lNDlCATOR>. 
<MULTIPlYING OPERATOR>.<LrST>)<ACTlON LA8ELS> 

fcimnp0wers0ften,flle»actl0n type 1 1 , 0. l i st routine 
descriptoRpend of file label»parity label) 

define reversetog ■ rrbl#l comment reversetog is set true 

IF THE STATEMENT BEING COMPILED 
IS A READ REVERSE* OTHERWISE IT 
IS Set FALSE! 
LABEL exit; comment exit appears AFTER THE LAST 

EXECUTABLE STATEMENT IN READSTMT* 
LABEL CHKACTiONLABELSl COMMENT THE CODE AT THIS LABEL 

ASSUMES I IS POINTING AT ThE RIGHT 
PARENTHESIS} 
LABEL PASSLISTJ COMMENT THE CODE AT PASSlIST EXPECTS I Tq 

be pointing at the last quantity in the 
Second parameteri 

LABEL READXFORM; 
INTEGER LISTADDRESSI COMMENT TEMP TO HOLD LIST ADO OESC* 

BOOLEAN SEEKTOG, LOCKTOG, GRABTOGiX 



Boolean mayh comment true if "FilE" is array rowi 

INTEGER HOLDI COmMENT L MAY GET CUT BACK TO HEREl 
IF STePI a LEFTpAREN 

Then reversetog*Seektog*false 

ELSE BEGIN COMMENT THJS HAD BeTTeR SAY ReVERSeI 
REVERSETOG^ACCUMCll.wyREVER"! 



08345000 
08146000 
08347000 
O834BOOO 
0814^00 
O833OOOO 
08351000 
08352000 
O8353OOO 
08354000 
08355000 
O8356OOO 
08357000 
0835600Q 
08359000 
08360000 
08361000 
08362000 
08363000 
08364000 
08365000 
08366000 
08367000 
08368000 
08369000 
O837OOOO 
08371000 
08372000 
0.8373000 
08374000 
START OF SEGMENT 
Q8375000 
08376000 
08377000 
06378000 
08379000 
08380000 
08381000 
08382000 
08383000 
08384000 
06365000 
08385100 
08385500 



00031083010 
OOO3IQ83OIO 
00031083010 
0003(063010 

oojoaioaiojo 

0003>0830t0 

00031083010 

000 3 J 081010 

0003i0830>0 

OOO31O83OIO 

O0X)3lQ8ifl-li) 

00031063010 

OOQ3l0830tO 

OQOai-OfllOJO 

OOO31O63OIO 

OOO3IO83OIO 

0001108304 

00031083010 

OOO3IO63OIO 

0003106-3010 

00031083010 

00031083010 

00031 083Q-(0 

0003(063010 

00031083010 

00031083010 

00031083010 

00O3«083OI0 

0003.1083010. 

00031063010 



T Q.O?2lO0OOtp 

T 00921000010 

T 00921000010 

T 00921000QI0 

T 00921000010 

T 00921000010 

T 00921000010 

T 0092(000010 

T 009210000(0 

T 00931 0000 lO 

T 009210000(0 

T 0092(0000(0 

T 0092(000010 



92 



08385600 r 0092(000010 

0&3S5700 T 009210041010 
08385800 T 0092(0000(0 



08366000 
08387000 
08386000 
08389000 



T 0092(0000(0 

T 009210000(1 

T QQ?2f0001(3 

T 0092(0003(2 



•■ELCLASSsUOCKVI 

♦ ACCUM[1J«'»4SEEK0"I 



LOCKTOG 

seektog 

if rfversetog or locktog 



:K(lErTPAREN»42l) 

TO EXiTi 
IT ERROR 421 MEANS 



OR SEEKTOG 
ELSE BEGIN 

ENOI 



THEN STfPIT 
ERR(A20)I 

GO TO exit; 



MISSING UEFT 



END 
EMIT0(MK 
IF 



IF CHFC 

Then ro 

COMMfN 

PARENTHESIS IN READ REVERSE STATEMENT! 
f 

S}i 

STEPt ^ B 

BEGIN V 

IF 



BEGIN 
EMITPAIR 
IF NOT R 

Then beg 



END 
PaSSfiLE 
IF ELCLA 

Then beg 



STE 

IF 



END 

(GNAT( 
ANGECF 
IN COM 
STAT 
ERRC 
t 
I 

5S « L 
IN %%% 
%%% 
%%% 
%%% 
%%% 
%%% 
XXX 
XXX 
XXX 
PITI 

RRI«-IF 
IF 
# 
IF S 



OOARRAYIO AND ELCLASS < iNTARRAYtD ThEN 
ARIABUE(FU)I 
TABLEtI-2) # FACTOP THEN 

begin err(422)> go to exit end* 
mayi ♦ true; hold •■ l» 

EMlT(ll); EMIT(4)I EMIT0C280)J 
EMlTPAlRcGNAT(P0WERS0FTEN)fL0D)l 
EMlT0(XCH)« EMITL(0)I EMITL(l); 
ELSE 



POWrRSOFTEN)»LOD)l 

ileid»supeRfileid) 

MfNT ERROR 422 MEANS MiSSiNG FILE IN READ 

EMENTJ 

422)1 60 TO eXITI 



FTBRKET 
COMPILE 

r*]»t*# 

AND t<A 

<aexp> 

IN THE 
<AEXP> 
F-FIELO 
THE EXp 
IN THE 
XXX STEP 
ACCUMCi 
ACCUMCI 

Then xxx 

TePi»C0M 
IF STEP 
BE 
IF 
EL 
ST 
EN 



fLse 



S CODE FOR 
♦3#t«f<AEXP 
EXP>»<AEXP> 
IS THE READ 
C*FIELD OF 
IS THE WAIT 

OF THE DSK 
-SIGN BIT 
ABOVE* nS s 

OVER [, AN 
]«"2N0000»' 
].»4ST0P0'' 

HAVE INS 
MA THEN XXX 
I«FACT0P TH 
GIN 

RRl*l THEN 
SE BEGIN EM 
EPIT I 
D 

ACCUM[l]»" 
GIN XXX [NS 
EMITL(I) 

stePitj 

END ELSE 
BEGIN XXX HAV 
IF RR1«2 THEN 



IF 
BE 



tNS]»tNS.*3»[NS»<AEXP>3» 
>]»[<AEXP>3»t<AEXP>t*)» 
3. THE FIRST (LEFTMOST) 
SEEKDISTADDRESS, RESIDING 
THE DSKADDR, THE SECOND 
-TIME, RESIDING IN THE 
A00R» AND ALSO TURNING-ON 
F DSKAOORiX^S ARE EMPTIES 

NO OR STOPi 
D POINT AT NEXT ITEM. 
THEN 1 ELSE 
THEN 2 ELSE 

HAVE [NS* 
EN XXX HAVE [NSi* 

EMITNO(I) 
ITLCni EMITL(2) END I 



4L0CK0" THEN 

*LOCK 

t EMI T0( 47* 4* 1)1 



E [NSiAEXP 
EMiTLfl) I 



08390000 

08390500 

08391000 

08392000 

08393000 

08394000 

08395000 

08396000 

08397000 

08398000 

08399000 

06400000 

08401000 

08401020 

08401030 

08401040 

08401045 

08401050 

08401060 

08401070 

064010S0 

08401090 

08402000 

08 4 030 00 

08404000 

08405000 

08406000 

08407000 

08408000 

0B409O0O 

08410000 

084l00l0 

0641.0020 

08410030 

08411000 

0841 lOlO 

08411020 

08411030 

08411040 

08412000 

08412010 

08412020 

08412O3O 

08412040 

08412050 

08412060 

08412070 

084121)80. 

08412090 

08413000 

08413010 

08413012 

08413014 

06411016 

08413016 

08413020 

08413022 

08413030 



00921000411 
00921000610 
0092I00O7I3 
00921000912 
00921001313 
0092^001410 
00921001410 
0092t00l4tl 
0092100-J-6-I0 
00921001610 
00921001610 
00921001-610 
00921001611 
0092l00l8tl 
00921002010 
0092»0021«3 
0092»0023I3 
00921002512 
00921002712 
00921002811 
0O92I0O31I2 
0092»0031»2 
00921003113 
00921003312 
00921003313 
00921003411 
00921003411 
00921003610 
00921003610 
0092 100-3611 
00921003611 
009210037(3 
Q.0S2J004ni 
00921003713 
00921003713 
00921003713 
0092»0037«3 
00921003713 
OQ92I0037U 
00921003713 
00921003810 
0.0.9ZlQ0401t 
00921004211 
00921004410 
00921^04513 
00921004712 
00921004713 
. 00921-0.04 ftiO- 
00921005411 
00921005512 
0O9-21O4S512 
00921005512 
00921005611 
009^21-005^712 
00921005912 
00921005913 
O0AZ1O055U 
00921006112 



emittime: I 

IF RR1*2 T 

BEGIN 

ELSE EMITL 

END 

ELSE IF RRUl THEN E 

fLse begin emit 

ELSE IF EUcUaSS-FACTOP Th 
IF STEP1*C0MMA 
IF STEPlsF 
BEGIN 
ELSE IF AC 
BEGIN XXX 
EMlTU 
STEPI 
END ELSE 
BEGIN EMIT 
FLSE EMITN0(2) 
ELSE BEGIN XXX HAVE 
AEXP?EMIT0(SSP5 

IF SEfKTOG Then 

FMlTPAjRcJUNKf I 
!F ELCLASS'COMM 
IF STEPi^F 
ELSE IF AC 
BEGIN XXX 
EMiTt 
STEPI 
END ELSE 
BEGIN EMIT 
EMiTL(2) i XXX 
END i 
CHfCK(RTBRKET»424 



HEN 

EMITO(IOR); 
(1) » 



emitlc?) end 



ELSE 

Begin 



IF 
END 

IF ELCLa 
STEPlTl 

IF STEPt 
BEGIN AE 
BEGIN EM 



MITNO(I) XXX ONLY HAVE tNS 

L(i); emitl(2) end 

EN XXX HAVE t* 

THEN XXX HAVE t*# 

ACTOP THEN XXX HAVE t*»* 

EMITN0(2)| STEPIT fND 
CUMtn«''4L0CKO« THEN 
t*»LOcK 

(DJ EMlT0(4^»4fni 
Tl 

TIMEI EMITL(2)» END X C*.A 
XXX HAVE ONLY t* 
CAEXP 

IEMITLC1)IEMIT0CADD)J 
EMITOCCHS) I 

SN) ; 

A THEN XXX HAVE tAEXP» 
ACTOP THEN STePiT XXX[AEXP»* 
CUMrils^ALOCKO" THEN 
tAEXP.LOCK 

CD? EMlTDf4r»«»l)l 
T; 

TIME! EMITOCLOR) END I 
ABOVE ELSE WAS tAEXp,AEXP 

) THEN GO EXIT ELSE STEPIT ; 



ssbLfftpaRen Then 
afxpi if elclass«comma then 

jtFACTOP THENX 

XP) rMlTPAlRCJUNKilSN) END ELSEX 

ITl(1)I gRABT0G*TRUEI STEPiT END 

eMitpaiR(0»lng); 

TD(33»33.15); 

TO(ir locktog then 

TL(ReAL(SEEKTOg))I 
CHfCKCRTPARENpIOAJ 



ELSE 



END 
ELSE 

IF Re 
Then 

END} 
IF EL 

Then 



EMi 

EMI 

EMI 

IF 

EMiTL(RfALCGRABT06>+2)> STEPITIX 



SSN ELSE SSPJj 
EMlT0C33,l8.l5)i 
THEN QO EXIT) 



BEGIN EMlTt(0)J 

VERSeTOg 

EMiTocChS)! 



EMITLC2); END? 



CLASS « RTpAREN 

BEGIN Comment no format»no list case? 

EMITL(0)» EMITL(0)i 
GOGOGO *■ NOT HAYIIX 
GO CHKACTIONLABELSI 
ENDI 
If CHECK(f:0MMAf424) 



EMITL<0)> 



084 

064 

084 

084 

084 

084 

064 

064 

084 

064 

064 

064 

084 

084 

084 

084 

084 

084 

084 

084 

084 

064 

084 

064 

084 

084 

064 

064 

084 

084 

064 

OSit 

084 

084 

084 

084 

084 

084 

084 

084 

Q84 

084 

064 

084 

084 

064 

084 

08420000 

08421000 

06421500 

06422000 

06423000 

aa424oao 

08424100 
08425000 
08426000 
06427000 



3040 
3050 
3060 
3080 
3090 
3100 
3110 
3120 
3130 
4000 
4010 
4012 
4014 
4016 
4018 
4020 
4023 
4030 
5000 
5010 
5020 
5030 
6000 
6010 
6012 
6014 
60i6 
6018 
6020 
6022 
6030 
7000 
7010 
8000 
8100 
8200 
8250 
830.0 
8350 
8400 
8500 
8600 
8650 
8700 
6600 
8900 



00921006312 
00921006611 
00921006713 

00921006913 
00921-00701 1 
00921007011 
00921007410 
0092*007^0 
00921007712 
00921007811 
0092i-0060lO 
00921008211 
00921008410 
OQ92ID08411 
00921006611 
00921008712 
0092l00a7l2 
00921009313 
00921009513 
00921009610 
0092100961 1 
00921010010 
00921010112 
00921010210 
00921010410 
0092 1 010610 
0092l0i06ll 
0092'0i08ll 
00921010912 
00921010912 
00921011513 
009210U6IO 
00921011610 
0092I0U6I0 
00921 0U811 
00921011913 
00921012210 

00921012-313 
00921012513 
00921012810 
00921042913 
00921013011 
00921013312 
00921 Ql35i2 
00921013611 
0092101381 1 

0092.1013511 
00921014011 
00921014011 
00 9^1 0142 JO 
009210142*0 
00921014210 
.0aa240l434.2- 
00921014513 
00921014611 
0a9Zl0l471.2 
00921014712 



READXFORMI 



Thfn go 

COMMENT 
STATFMEN 
IF STePI 

Then beg 

END 
IF ELCUA 

Then beg 

IF 

eMi 

END 

IF Range 
Then beg 



IF 



END 
QlvAC 

BEG 
IF MAYI 
BEGIN KL 

GO 
END ARRA 
EMITL(O) 
IF CHECK 

Then qo 

COMMENT 

paramete 
stepitj 

IF RANGE 

Then beg 



TO EX 

erro 

Tl 

' FA 
IN CO 
EMi 
I 

ss • 

IN CO 

stePi 

BEG 
TLCO) 
} 

CFRMT 

IN CO 

PAS 

IF 

THE 

ste 

IF 

The 

CO 
DEL 
EMi 
J 

CUMci 
IN EX 

Then 

UDGEf 
TO EX 
Y TO 
I 

CCOMM 
TO EX 

erro 



ITI 
R 424 

CTOP 
MMpNT 

Tl(0); 

MUbOp 
MMpNT 
■MuLOP 
IN FMI 

; GO 

ID, SUP 
MMENT 

sfoRma 

TABLEf 
N GO P 
PITI 
CHeCK( 
N gO T 
MMfNt 
iMtTpR 
TL.(0); 

]s»»l<0 
PLlClT 

HOLDJI 

ARRAY 



MEANS IMPROPER FILE DELIMITER IN READ 



♦.LIST CASEI 

EMITL(O); 



GO PASSLISTI 



free field format casel 
Then emitl(2) flse 

TLCDJ UI-ll END i 
TO PaSSLiST I 

erfrmtid) 

The SECOND parameter is a formati 

Tl 

l+l) m COMMA 

ASSLlSTi 

RTPAREN#425) 
EXITJ 

ERROR 425 MEANS IMPROPER FORMAT 
IN READ statement; 

go chkactionlabelsj 

OOO" THEN 

format; GO TO READXFORMI ENDI 



case; 
aexpi 



r; 



Ai426) 
ITI 

R 426 MEANS IMPROPER DELIMITER FOR SpCOND 



(BOOARRAYiDiINTARRAYIO) 
IN COMMENT THIS IS THE ROW 
VARIABLE(FL)» 
IF TABLE(I-2) * FACTOR 
THEN BEGIN COMMENT ERROR 
ROW DESIGNATOR 
tRR0R(427)| GO 

eNoi 

IF CHrCKCRTPAREN»428) 
THEN gO to exit; 
COMMpNT ERROR 428 MEANS 



DESIGNATOR CASe; 



427 MEANS 

IN read; 
TO exit; 



IMPROPER 



deliM|TfR in Read statement; 
gogogo «■ true;x 
go chkactionlabels; 



IMPROPER ROW DfSIGNaTOR 



ELSE 



END 
BEG 



END 
PASSLlSTlSTEPlTI 
IF CHECK 
Then gO 



IN COMMENT ERROR 
ERR0R(429).J 

; 

CC0MMAi430) 
TO EXiTi 



429 MEANS MlSSlNG 
GO TO EXIT; 



ROW DESIGNATOR; 



08426000 ' 


r 0092 


10 


14713 


08429000 • 


r 0092 


\0 


14611 


08430000 ' 


r 0092J 


10 


146M 


08431000 ' 


r 0092 


ro 


14611 


08432000 " 


r 0092 


10 


14912 


08433000 1 


r QQ92 


10 


15010 


08434000 1 


r 0092 


10 


15210 


08435000 1 


r 0092 


10 


15210 


08436000 1 


r 0092 


10 


152JI 


08437000 1 


r 0092 


10 


15313 


08437050 1 


r 0092 


10 


15513 


08437075 1 


r 0092 


10 


tstio 


08438000 1 


r 0092 


10 


15913 


08439000 1 


r 0092 


10 


15913 


08440000 1 


r. 0092 


10 1 


16010 


08441000 1 


r 0092 


lOi 


16112 


08442000 1 


r 0092 


10 


161«3 


084 4 3000 1 


r 0092 


► 


16312 


08444000 1 


r 0092 


10] 


16410 


08445000 1 


r 0092 


10] 


164U 


08446000 1 


r 00921 


103 


165142 


08447000 1 


r 0092 


10] 


16611 


08448000 1 


r 00921 


0] 


16611 


08449000 1 


r 00921 


lO] 


16611 


08450000 1 


r 00921 


0] 


16713 


08450010 1 


r 00921 


10] 


16713 


08450020 1 


r 00921 


Oj 


16912 


08450100 1 


r 00921 


0] 


17210 


08450200 1 


r 00921 


0] 


17210 


06450300 1 


r 0.092 


10] 


17313 


08450400 1 


r 00921 


0] 


17410 


08451000 1 


r 00921 


0] 


[7410 


Q64520Q0 1 


r 009.2! 


OJ 


L.75..i.3 


08453000 1 


r 00921 


01 


7610 


08454000 1 


r 00921 


01 


17712 


06455000 1 


r 00921 


Ol 


[7712 


08456000 1 


r 00921 


Ol 


17712 


08457000 1 


r 00921 


Ol 


[7713 


08458000 1 


r 00921 


lOi 


[761.0 


08459000 1 


r 00921 


Ol 


17912 


08460000 1 


' 00921 


0] 


8010 


08461000 1 


' 00921 


Ol 


61 12 


08462000 1 


f 00921 


01 


8210 


06463000 1 


r 00921 


Ol 


62f0 


06U4000 1 


' oosaxQi 


*3I3 


06465000 1 


00921 


01 


6313 


06466000 1 


00921 


01 


8410 


084.67000 .1 


' Q0921 


01 


6512 


06468000 1 


00921 


01 


6512 


08466100 1 


• 0092« 


0] 


6512 


06469000 1 


009^1 


0] 


B61Q 


08470000 1 


00921 


0] 


6611 


08471000 7 


00921 


0] 


8611 


0847^000 1 


009.21 


Ol 


.&.11Z 


06473000 1 


0092J 


01 


6610 


08474000 1 


00921 


01 


66t0 


0647500Q 1 


• OQAZi 


.QU9U 


08476000 I 


00921 


019010 



comment error «30 means improper delimiter precefdinr 
The list in a Read statement; 

IF STEPI * LISTID AND ELCLASS / SUPERLlSTiD 

Then begin 

RRl*LiSTGENJ 
Ul'll 

GO TO chkactionlabels 
ENn; 

CHECKERCELBATCI J)l 

IF ELCLASS » SUPERLlSTiD ThEN 

BEGIN COMMENT SUBSCRIPTED SWITCH LIST lOj 

listaddress ♦ELBATctJ. address; 

BANA) 

EMiTVfLlSTAODRESS)! 

IF LISTaDDReSS > iO?3 THEN EMlTO(PRTE)l 
EMlTOfLOD); 1*1-1 END 
ELSE BEGIN COMMENT A COMMON LiSTJ 
EMiTPaIR (ELBATCn. address, L0D>J 

end; 

STEPiT; 

IF CHECK{RTPaReN.«49) THEN GO TO EXITI 

COMMENT 449 iS IMPROPER LIST DELIMETeR IN READ STATEMENT! 

chkactionlabelSihandlethetailenoofareadorspacestatement; 

EXlTt; 

END readstmt; 



08477000 
06478000 
06479000 
08480000 
08481000 
08482000 
06483000 
08464000 
08484500 
08485000 
08486000 
08488000 
08489000 
08469500 
06489510 
064895P0 
08489530 
08489550 
08489560 
08489570 
08489580 
08489590 
08490000 
08491000 
08492000 
08493000 



92 IS 215 LONG# 



0092 
0092 
0092 

0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
NEXT 



1019112 
1019112 
1019112 
I0192M 
1019313 
1019411 
1019610 
1019611 
1019611 
1019713 
1019810 
1019611 
1020010 
1020011 
t0201«3 
1020313 
» 02051 3 
1020610 
1020713 
1020713 
t0208t0 
1021010 
» 021010 
1021010 
1021011 
1021112 
SEG 3 



REAL PROCEDURE FILEATTRI BUTE INDXCT ) ; % RETURNS A ZERO IF THE NEXTSCANND 
PRTC1036) s FILEATTRIBUTEINDX 

VALUE Ti BOOLEAN T J % ITEM IS NOT A FILE ATTRIBUTE. 

BEGIN % RETURNS THE ASSOCIATED INDEX IF 

REAL \ ^ X IT IS A FILE ATTRIBUTE, 



08493010 T 0OQ3IO83OI0 



STACKfF+3) w I 



08493015 T 

06493020 T 

08493030 T 

START OF SEGMENT 



0003>0830l0 
0003! 0830*0 
00031063010 



1^'^^^^H^*^^'»^*^^ 



93 



labfl exit ; 

STOPDEFINE*T ; % MAY DiSAlLOW DEFINES IN F ILE-ATTR I BUTE PART, 
STEPIT ; % NOW POINTED AT ATTRIBUTE (STEPIT TURNS OFF STOP DEFINE), 
IF r*FILEATTRlBUTES[03«0 THEN 
BEGIN 

FILL FILEATTRIBUTES[*3 WITH X NON-ASSGNBL ATTRBTS HAVE .tllljsl 

% BOOLEAN ATTRIBUTES HAVE ,C?Ii1p1, 
I ALPHA ATTRIBUTES HAVE ,[3M]»1, 
% THIS NEXT NUMBER IS THE CURRENT I OF FILE ATTRIBUTES! 
7 
••6ACCES''I***ANY ADDITIONAL ATTRIBUTES MUST BE INSERTED*** 

•♦5MYUSE"I******IMMEDIATELY AFTER THE LAST ATTRIBUTE****** 

'•4SaVE0« 

"BOTHER" % "OTHERUSE", 

••404MFID0" 

•♦403FIDOO'* 

"4REEI-0'' 

•♦4DATE0'' 



08493040 T 0093*000010 

06493050 T 0093*000010 

08493-OA0 T 0093»0000ll 

08493070 T 0093*0001*2 

08493080 T 009310002*1 

08493090 T 00931000312 

08493091 T 0093*0003*3 

08493092 T 0093*0003*3 

08493093 1 00931000313 

08493094 T 0093*0003*3 

08493095 T 0093*0003*3 
START OF SEGMENT ****•*«*** ft4 

08493096 T 0093*0005*2 
06493097 T 0093*0005*2 
08.493098 T 0093100-0512 

08493099 T 0093*0005*2 

08493100 T 0093*0005*2 

08493101 T 00931000512 

08493102 T 0093*0005*2 



pH^XYPEO" 

.♦♦BaREAS" % "ARfASIZE". 
.••2EU0O0'' 

• ••5SPEED'' 
i''9TlMEL" X 
»'' + 08lOSTA'' 
»"9SENSr' % 
% THIS CARD 
IX END OF 



"T I MEL I MIT" 
% "lOsTATUS" 
"SENSITIVE" 

meRfUy Occupies 
fill statement. 



A SEQUENCE NUMBER, 



I*-FILEATTRiBUTeS[0] I 
END i 
FOR 1*1 STEP -1 UNTIL 1 DO IF F I LEATTR I bUTeS[ I ] , [ i? I 36 3»Q ThEN 

begin FILEATTRlBUTElNDX^n GO EXiT END > 
EXiTi 

END OF FILEATTRIBUTEINDX | 



94 IS 



93 IS 



0849 
0849 
0849 
0849 
0849 
0849 
0849 
0849 
0849 
0849 
06A9 
18 
0849 
0849 
0849 

0849 

0649 

0849 

16 



3103 
3104 
3105 
3106 
3107 
3101 
3109 
3110 
3111 
3120 
3130 
LONG* 



3140 
3150 
3160 

3170 
3180 
3190 

LONGf 



0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 

NEXT 
0093 
0093 
0093 
0093 
0093 
0093 

NEXT 



I0005t2 

(000512 

1000512 

10005(2 

100051 2 

1000512 

1000512 

1000512 

1000512 

1000512 

1.000512 

SEG 93 

1000512 

IQD06I0 

1000610 

1000611 

1001211 

i00l3<2 

SEG 3 



COMMENT FILEATTRIBUTEHANOLER HAN 

A CALL ON FlLEATTRjBUTES 

1, STMTI PASSES NwFS. 

FAN WILL TEL 

AND XiT, 

?. actualparapart: 

passes n«fa, 
already been 

THE VALUE OF 

3. PRIMARY! 

PASSES N»fP» 
IF THERE iS 
ON THE TYPE 

There is an 

To BOTH ChAn 
IN THE TOP 
ATTRIBUTES T 
ATTRIBUTE In 
TAH WILL RET 
CATYPE OR BT 

4. BOOPRIMI 

PASSE 

5. IODEC« 

PASSE 
HAVE 
DETER 
END Of comment > 
INTEGER PROCEDURE FlLEATT 
BEGtN 
REAi. ATTRIBUTEINDX I 



DLES FILE ATTRIBUTE STUFF. IT CONSTRUCTS 
INTRINSIC. IT fS CALLED BY 5 PROCEDURES! 
AND TELLS FAH TO EXPECT AN ASSfGNOP, 

L FTLEATTRIBUTFS TO CHANGE THE ATTRIBUTE 



AND TELLS FAH ThAT ThE FRE 
EMITTED, IT ALSO TELLS FAH 
THE ATTRIBUTE IN THE TOP OF 



DESC HAS 
TO LEAVE 
THE STACK. 



AND TELLS FAH TO HANDLE AN ASSIGNOR 
ONE (BY CALLING AEXP OR BEXP» DEPENDING 
OF ATTRIBUTE) OR JUST TO EMIT A ZERO, IF 

ASSiGNOPi Then fah tells fileattributes 

GE the attribute AND LEAVE THE VALUE 
F The STACK. OTHERWISE* FAH TELLS FILE- 
ONLY LEAVE THE VALUE OF THE REQUIRED 

THE TOP OF THE STACK, IN ALL CASES. 
URN THE TYPE OF ATTRIBUTE COMPILED 
YPE), 



S N*FP» AND DOES ThE SAME AS #3 (ABOVE). 

S N»FI0« AND TELLS FAH THAT A MKS & FILE DESC 
ALREADY BEEN EMITTED, THE ATTRIBUTEINDX IS 
MINED BY lODEC* AND IS PASSED VIA 6T1, 

RtBUTEhANOlERCN)! value N» REAL N i 



STACKfF*3) « ATTRIBUTEINDX 

BOOLEAN ASSOP I 
STACKfF+4) s ASSOP 



08493200 
08493210 
08493220 
08493230 
08493240 
08493250 
08493260 
08493270 
06493280 
08493290 
08493300 
08493310 
06493320 
08493330 
06493340 
08493350 
08493360 
08493370 
08493360 
08493390 
08493400 
08493410 
08493420 
0849 3-4 30 
08493440 
08493450 
06493460 
08493470 
08493480 
0849M90 
START OF SEGMENT 



T 0003I0630!0 

T 00031083010 

T 0003(083010 

T 0003*0830(0 

T 0003*0830(0 

T OOO31O63OIO 

T OOO3IO83OIO 

T 0003*0830(0 

T 0Q03I0A3QI0 

T 0003(0830(0 

T 0003(0830(0 

T 0OOaJ083QIQ 

T 0003*0830(0 

T 0003*0630*0 

T 0003! 083.0 10 

T OOO3IO63OIO 

T 0003*0830(0 

T 000310*^01.0. 

T 0003(063010 

T 0003(0630(0 

T Ofl0li0540-I0 

T 0003(0630(0 

T 0003*063010 

T ooojiOBjaio 

T 0003*0630(0 

T 0003(0630(0 

T OOOllOA^IO 

T 0003*0630(0 

T 0003*0630(0 

T O0O3*O6j0J0- 



084 93500 T 0095(00-0010 



labfu do 

IF N«FA 
BFG 
EMI 
GO 
END 
EMITO(MK 
IF ELCIA 
BFG 

donesomei 

IF 



nesome»donemorf 
Then go to oone 
in attributeind 

TL(0)* EMITl(O) 

To oonemore I 
) 

S)l PASSFIUE I 

ss#pERioD Then 

IN 



IF N#FS Then 

DONEMOREI 



ATTRIBUTElNDXi-F 
BEGIN 

stepitmf false then begin 

IF STePI'LFTB 

begin 
stepiTid 

END 
ELSE EMiTucO) 
EMITl(O) t %% 

IF ASS0P*ELCL 
BEGIN 

FLAG(295)»I**D 
IF BOOLE 

Then fla 

STEPfT ; 

IF Boole 

then BEX 
END 

Else if n«fs 

ELSE EMITlCO) 
EMITnUMCIF AT 
IF ATTRIBUTEI 
IF ATTRIBUTEI 
IF ATTRIBUTEI 
IF ATTRIBUTE! 
IF ATTRIBUTEI 
& FiLEATTRi 

i FILEATTRIBU 

, EMITL((ATTRIB 

ft REAL( 

EMITPAIRCGNAT 

FiLEATTRIBUTE 

IF BOOLE 

THEN BTy 

END f 



»EXIT i 

SOME ELSE IF N«FlO THEN 

x*gTii if stepi)*relop THEN i»i-i; assop*true; 

I %%% DUmi parameter.,, for possible FUTR USE, 



% Mark the stack & stack a file descriptor, 

ERRC290) else 



ileattri8Uteindx(True)*o then err(29o else 

comMentjsdelete this card to get actton label 
rkfT then 

expmf check(Rtbrket.433)Then go exitistepit? 

I 

% dUmi parameter.,, for possible future use. 
asssassignop Then 

eleTe This card to allow genrl filatt assgnmt 

ANfFlLEATTRlBUTEStATTRlBUTElNDXl.mi]) 
G(?933 i 

ANfFiLEATTRlBUTEStATTRlBUTElNDXj.[2tn) 
P ELSE AEXP t 

THEN BEGIN ERRC292)J GO EXIT END 

t 
TRlBUTElNDX. 1 ThEN "dACCESS" ELSE 
NDX* 4 Then "dOTHRUS" ELSE 
NDX-12 Then "dARASlZ** ELSE 

NDx»i5 Then ••6timlmt'' else 
NDx»i6 Then "eiosTAT" else 
NDx»»j7 Then ♦•6snstiv" else 

BUTESCATTRIBUTEIN0XH6I12»363 

TEStATTRlBUTElNDXHl»3un I 

UTeINDX-1) & ReAL(N«FP or N»FA)[39l47tn 

ASS0P)C3SU?'U3) i 

CPoWeRSOFTENJiLOD); EMITV(GNAT(FILATTINT)) t 

HANDLER* 

ANrFlLEATTRlBUTES[ATTRlBUTElN0X3,[2tt ]) 

PE ELSE ATYPE I 



; 



END 
EXIT« 
END OF FILEATTRiBUTCHANDLeR * 



95 



08493510 
08493520 
08493530 
O849354O 
08493550 
08493560 
08493570 
08493580 
08493590 
08493600 
08491610 
08493620 
08493625 
084936^0 
08493640 
08493650 
08493660 
08493670 
08493675 
08493680 
08493700 
08493705 
08493710 
08493720 
O849373O 

08493740 
08493750 
08493760 
O8A93770 
08493780 
08493790 
08493795 
08493800 
08493805 
08493010 
08493812 
08493820 
08493830 
08493840 
08493850 
08493A&Q 
08493870 
08493880 
08491890 
08493900 
08493910 
08493920 
08493930 
IS 72 LONG. 



00951000010 
00951000010 
0095l0002t0 
00951000610 
0095^1000*4-0 
00951000811 
00951000811 
00*5lOOiOW 
00951001210 
0095i00l2t 1 
00944-001112 
0095I00}6I0 
00951001611 
00951 OO4BIQ 
OO95IOO18IO 
0095i00i8t0 
00951002010 
0095^002011 
0095*002210 
0095lOQ22.lt 
00951002410 
00951002411 
0095tQQ26Jl 

0095I0027»2 
0095*002912 
0095 1 0029 1 3 
0095*003010 
0095*0032*1 

009,51 Qi)12Jl 

0095*0035*3 
0095*0037*2 
aO 9.510011^12 
0095*0041*2 
0095*0043*2 
0095*004-512 
0095*0047*2 
0095*0049*2 
00951005011. 
0095*0052*0 
0095*0055*3 
00951 05.5712 
009510059*1 

009510059*3 
Q0_»5.1 006510 
0095*0062*1 
0095*0062*1 
00?5*0Q62»1 
0095*0063*2 
NEXT SEG 3 



PROCEDURE SPACESTMT* 

BEGIN COMMENT THE SPftCE STATEMENT IS BEST THOUGHT OF AS A 

SUBSET OF THE READ STATEMENT WHERE ZERO WORDS. ARE READ, 

FOR The EXACT Syntax for the space statement and the 



08494000 
08495000 
084 96000 
08497000 



T 0003*0830*0 

T 0003*0830*0 

T OOOJ-108-iai^- 

T 0003*0830*0 



PARAMETERS PASSpD TO THE INTERPTJ ROUTINE SEE THE COMMENTS 

roR The Read statement* 

Label exit* comment exit appears after the last 

executable statement in spacestmt; 
stepit; 

IF CHECK{LEFTPAREN»43A) 

Then go to exit; 
comment error 434 means missing left parenthesis in 

space statement; 

stepiti 

IF not RANSECFILElDiSUPERFILElD) 

Then begin comment error 435 means improper file 

IDENTIFIER IN SPACE STATEMENT; 
ERR0Rf435)J GO TO EXITI 

end; 
emit0(mks)j 

EMITPAIR(GNAT( 

powersoften),uod); passfiue; 
emiTl(O); 

IF CHECK(C0MMA»436) 

Then go to exit; 
comment error 436 means missing comma in space statement; 

STEPlTI AEXP; 

IF CHECK(RTPaREN»4373 

Then gO to exit; 

COMMENT ERROR 437 MEANS MISSING RIGHT PARENTHESIS IN 
SPACE STATEMENT; 
EMITL(O); EMiTLcO); EMlTLcD* 

handleThetailendofaReaoorspacestatement; 

EXiTi; 

END spacestmt; 



08498000 T 
08499000 T 
08500000 T 
START OF SEGMENT * 
08501000 T 
08502000 T 
08503000 T 
08504000 T 
08505000 T 
08506000 T 
08507000 T 
08508000 T 
08509000 T 
08510000 T 
08511000 T 
08512000 T 
08513000 T 
08514000 T 
08515000 T 
08515100 T 
08516000 T 
08517000 T 
08518000 T 
08519000 T 
08520000 T 
08521000 T 
08522000 T 
08523000 T 
08524000 T 
08525000 T 
08526000 T 
08527000 T 
96 IS 18 LONG» 



0003(083010 
0003(083010 
00031083010 
Id******** 96 

00961000010 
0096(000010 
0096(000011 
0096t000l(2 
0096(0002(0 
0096(0002(0 
0096(0002(0 
0096(0002(1 
0096(0003(2 
0096(0004(1 
0096(0004(1 
0096(0005(3 
0096(0005(3 
00964 00064 1 

0096(0007(2 
0096(0008(1 
0096(0009(2 
0096(0009(3 
0096(0011(2 
0096(0011(2 
0096(0012(0 
0096(0012(1 

0096(001313 
0096(0013*3 
0096(0013(3 
0096(0016(0 
0096(0016(1 
0096(0017*2 
NEXT SEG 3 



PROCEDURE writestmt; 

BEGIN COMMENT WRiTeSTMT GE 
intrinsic PROCEDURE 
DETERMINED BY ThE FOR 
I HAVE LISTED BELOW 
WRITESTmT PROCEDURE A 
ARE passed To InTeRPT 

******* *-li***,t>\^*^#^^f*tii 

for an explanation 
units not described h 
Readstmt routine, 

<CARRIAGE CONTROLX** 



NERATES CODE TO CALL INTeRPTO, AN 

N THE DRUM, PASSING TO IT PARAMETERS 

MAT OF The write statement. 
The various cases considered by the 

ND the corresponding parameters WHICH 

0, 

*******************ii,iif*,imiif,i^4iit^t******** 

OF THE Parameters and syntactical 
eRe» See The comments for thf 



tD8L]/tPAGn/CN0]/<ARlTHMETiC 
EXPRESSI0N>/<EMPTY> 
CHARACTER MODE OUTPUT EDITING ROUTINf SIMILAR 
FOR INPUT, 

<EMPTY> rDBLJ [PAGE] fNO] <ARIThMETic EXP> 
EXPRESSIONS VALUE 
12 4 8 

WRITE(<FILE part><carriage controls>)/ 



ChARi IS THE 
to CiMi 
<CARRiAGE> 

Channel skip 
lineskip 



fCHARl,POWERSOFTEN»FlLE»CHANNEL SKIP, LINE SKIP, 0,0,0) 



08528000 
08539000 
08530000 
08531000 
08532000 
08533000 
08534000 
08515000 
08536000 
08537000 
O8S30QOO 
08539000 
06540000 
61 41 000 
08542000 
08543000 
085 4^^000 
08545000 
06546000 
08547000 
08548000 



T 0003(0630(0 

T 000310^30(0 

T 0003*0830*0 

T 0003(0830*0 

T 000340630*0 

T 0003*0830*0 

T 0003(0630(0 

T 0001 1 043^ I 

T 0003(0630*0 

T 0003*0630*0 

T O0O3lQ8iQlO 

T 0003(0830(0 

T 0003(0630(0 

T 00011063010 

T 0003(0830(0 

T 0003*0630*0 

T 00034 oaioi-o 

T 0003*0630*0 

T 0003*0830(0 

T 0003*06301-0 

T 0003*0830*0 



«« *lll ** *« *lll ** *« ** ** «* «* ** #* 
WRlTF(<riLE PART><CARrtIAGt: CONTROL>. <FORMAT PART>)/ 



** 



2V0ID 
IVOID 
XVOID 
XVOID 



STACKfF*?) » LiSTADDRESS 

STACKfr*3) a UOCKTOg 

STACKff**) a ARC 

$TACKfF*5-) 8 HOLD 



fCHARl»POWE:HSOFTENfFlLE»CHANNrL SKIP, LINE SKIP»F0RMAT 
INDEX. FORMAT ARRAY DESCR IPTOR* ) 

«« iti* *^ 1^^ *« *« «^ i^i^t *« *« ** *« «« ;^4r 

WRlTEf<FILE PART><CARRIAGE C0NTR0L> t <F0RMAT PART>, <UI ST> ) / 

(CHARI.POWERSOFTEN»riLE. CHANNEL SKIPiLINE SkIP»FORMAT 
INDEX. FORMAT ArRaY DESCR 1 PTOR » L I ST ROUTINE DESCRIPTOR) 

#* ** *4i ^ni, *4< I** ** 4>* >l>* ** ** ** Hf* ** 

WRITec<FILE PART><CARRIAGE CONTROL>.*»<LIST>)/ 

(CHARliPOWE«S0FTEN.FILEiCHANNEL SKlP.UlNE SKlPi 0. Ot L 1ST 

ROUTINE DESCRIPTOR) 

If* o* ** ** t* ** ** ** ** ** ** ** ** ** 

WRiTf(<FIUE PaRT>CCARRIAGE cONTROL>.<aRIThMeTic EXPRESSION 
>»<ROW DESIgNAT0R>) 

fCHARl.POWERSOFTEN.FlLE»CHANNEL SKIP, LINE SK IP. 0, N. ARRAY 
ROW DESCtUPTOR) 
*4i ** <¥^( nt^ *« itiiK 4t* ** ** *« «* «* t* «*; 

LABEL EXIT? COMMENT EXiT APPEARS AFTER THE LAST 

EXECUTABLE STATEMENT IN WRiTeSTMTJ 
LABEL CHKSECONDI COMMENT I IS NOW POINTING AT THE COMMA 

SEPARATING ThE FIRST AND SECOND 
PARAMETERS! 
LABEL ONEPARFNSh? COMMENT MS POINTING AT THE RIGHT 

PARENTHESIS AT THIS POINT AND I HAVE 
JUST DISCOVERED THAT THIS IS THE ONE 
PARAMETER CASEl 
DEFlNt ACrUMl « RRliJ COMMENT ACCUMl IS USED AS A 

TEMPORARY CELL FOR ACCUMtUl 



Label passlist; comment i is pointing at the comma 

PRECEFDING THE UlST WHEN THIS LABfL IS 

Reached; 
label emitcall« commpnt i is pointing at the statement 

DELIMITER. The CODE AT EMITCALL EMITS THE 

Code to call interpto^ 
label chkrtparen» 
label writxformi 

INTEGER LISTADDRESS? COMMENT TEMP TO MOLD LIST ADD DESci 
BOOLEAN LOCKTOG.ARCJ 



INTEGER H0LD;X 

IF tLOCKTOG*STEPl»L0CKV) THEN STEPlTl 
IF CHECK(LEFTPAREn»43B) 

Then go to exit? 
comment error 436 means missing left parenthesis in a 



06549000 T 00031083010 

0S550000 T oooiioasoio 

08551000 T 00031083010 

08552000 T 0003»0830t0 

QB 5 5 3D 00 T 00031 083^(110 

06554000 T 00031083010 

06555000 T OOO3IO83OIO 

06556000 T OOO3IOB1OIO 

06557000 T 00031083010 

08558000 T 0003l0830lO 

D6559QQ0 T 0Q03ii>830J0 

08560000 T 00031083010 

06561000 T 00031083010 

06562000 T 0003 J 0630 !0 

06563000 T 00031083010 

08564000 T 00031083010 

08565000 T 00031083010 

08566000 T 0003(083010 

08567000 T OOO3IO83OIO 

08568000 T 00031 0830J0 

08569000 T OOO31O63OIO 

08570000 T 0003»0830IO 

08574000 T OOO3I.O-83OJ 
START OF SEGMENT **♦*»*♦♦** 97 

08572000 T 00971000010 

08573000 T 00971000010 

08574000 T 00971000010 

08575000 T 00971000010 

08576000 T 0097 1 DQOC.I 

08577000 T 00971000010 

08578000 T 00971000010 

08579000 T 00971000010 

08580000 T 0097*000010 

08581000 T 00971000010 

08582000 T QQ97I0QQOIQ 

08583000 T 00971000010 

08584000 T 00971000010 

08585000 T 00971000010 

06586000 T 00971000010 

08587000 T 0097l0000«0 

08548000 I 0097X000010 

08589000 T 00971000010 

08590000 T 00971000010 

08591000 T 0091 IMQO i Q 

08591100 T 00971000010 

08591200 T 00971000010 

08591500 T 00971000010 

08591600 T 00971000010 



08591700 T 0097(000010 



08592000 
08593000 
08594000 
08595000 



T 0097(0000(0 

T 0097(000211 

T 0D57J00Q3I2 

T 0097*000410 



WRITE STATEMENTi 
EMlTO(MKS)j 

IF STEPI ^ BOOARRAYID AND ELCLASS < iNTARRAYfD THEN 
BEGIN VaRIABLECFDI 

tF TABLECI-2) |t FACTOR THEN 

BEGIN ERR(439)J GO TO EXIT ENoJ 
ARc * TRUE* HOLD ♦ H 
EMiTClDJ tMlT(4); EMlT0f280)) 
FMlTPAlR(GNAT(POWFRSOFTEN),LOD); 
EMlTO(XCH)< 
END EuSe 



BEGIN 
IF NO 

Then 



T RANGE(FIL.EID»SUPERFIIEID) 

BEGIN COMMENT ERROR f39 MEANS IMPROPER 

IDENTtFtER in a write STATEMENT? 

ERR(439)? GO TO EXiT; 

end; 



FILE 



emitpair 
powersof 

ENOJ 
IFfRRBl 

Then beg 



(RNATf 
TEN),LOD)j 



PASSFILEJ 



•ELCLASS 8 COMMA) OR ElCLASS m RTPAREN 
IN COMMENT STANDARD CARRIAGE CONTROL CASEl 
EMiTL(O); EMiTLCD* 
IF HRbI 

Then go chkseconoj 

ONcPaRfNSHJSTePITI EMITL(O); EMITL(0)J 

GOgOGO «. NOT ^RCt% 



END 
IF ELCLA 

Begin st 

IF 

EMI 
IF 

END) 

IF CHECK 

Then go 

COMMENT 
PARARAME 
STEPlTI 

%%% The 

XXX 
XXX 
XXX 
XXX 
XXX 
XXX 
XXX 
IF 



EMiTL(O); 



GO emitcall; 



ss«leftparen then 

EPITJ AeXPJ EMiTOdF LOCKTOq TheN SSN 
ELCLASSaCOMMA THEN BEGIN STEPiT; AEXP 

EMlTPAlR(OaNG)' 
TD(33»33»l5)> EMlT(0)l 
CHECK(RTPaREN,104) THEN GO EXIT ELSE GO ChKRTPAREN 



ELSE $SP)I 

END ELSE 



(LFTbRKeT,440) 
TO EXIT; 

ERROR 440 MEANS IMPROPER 
TER IN A WRITE STATEMENT! 



DELIMITER FOR FiRST 



[OPN 
AND 

NO. 
RIGH 
THE 
AND 
*»»S 
ACCUM 



IF 



FOLLOWING CODE COMPILES CODE FOR CDPN] » [DPN. •] » 
f<AEXp>i»[*J»[*»*3't*»<AEXP>l»C<AEXp>]tI<AEXP>i»] 
[<AEXP>,<AEXP>], WHERE DPN IS STOP* DBL» PAGE, OR 

THE FIRST (LEFTMOST) <AEXP> IS THE CHANNEL5KIP. 
T JUSTIFIED To ITS C-FIELD, THE SECOND <A£Xp> IS 
WAIT-TImE, RESIDING IN THE F-FIELD OF CHANNCLSKlPi 
ALSO TURNING ON THE EXP-SIGN BIT OF CHANNfLSKlP. 
ARE CONSIDERED TO BE EMPTIES. 
1*-IF ACcUMl*ACCUMtl]»»'3DBL00'' THEN 2 ELSE 

IF ACcUM1«"4PAGE0« THEN 4 ELSE 

IF ACcUMlf^ftSTOPO" THEN 16 ELSE 

IF ACcUM1«''2N0000" THEN 8 ELSE Oi«0 THEN XXX CDPN 

STEPi«coMMA Then xxx have [Dpn. 

IF STpPi^FACTOP Then XXX have tDPNt* 
BEGIN EMITNOCACCUMDI STEPIT END 



08596000 
08597000 
08597100 
08597200 
08597100 
08597400 
08597450 
08597500 
08597600 
08597700 
08597800 
08597900 
08598000 
06599000 
08600000 
08601000 
08602000 
08603000 
08604000 
08605000 
08605500 
06606000 
08607000 
08608000 
08609000 
08610000 
08611000 
08611100 
08612000 
08613000 
08613100 
06613200 
08613300 
08613400 
08613500 
086^3600 
08613700 
06614000 
08615000 
08616000 
08617000 
06618000 
08619000 
06619010 
08619020 
08619030 
08649040 
06619050 
08619060 
06619070 
08619060 
08619090 
Q66.i9i)95 
06620000 
08620010 
08630020 
08621000 



00971000410 
00971000410 
00971000512 

00971000712 
00971000610 
0097l00l0|0 

OO97IOO11I3 
009710.01-3-12 
00971001513 
0097l00i7«2 
0-097 tOOl 7x3 
00971001713 
0097l00tet0 

00971004611 
00971002010 
00971002010 
009710021)2 
00971002112 
0097I0021»2 
0097)002113 
0097I0023«2 
0097»0023«2 
0097*002411 
0097)002610 
0097)0027)3 
0097)0027)3 
009710026)1 

0097)0031)2 
.0097lil035l0 
0097)0033)2 
0097)0033)2 
097 1. 00 J 4.10- 
0097)0037)3 
0097)0040)0 
00971 004113 
0097)0043)3 
0097)0044)1 

O09r!0045i3 

0097)0046)0 

0097)0047)2 

0097100.4712 

0097)0047)2 

0097)0047)3 

0097.10.04^13 

0097)0047)3 

0097)0047)3 

0O97lO04Zia 

0097)0047)3 

0097)0047)3 

00971-0047)3 

0097)0047)3 

0097)0050)1 

00571005211. 

0097)0054)1 

0097)0057)3 

0091-1.0059^12 

009710060)1 



EUSE 



else; 



if checkcr 

Then go to 

comment e 

CONTROL Pa 
CHKRTPARENUr STE^I » 

Then gO to 
if checkcc 
Then go to 
comment e 
delimitek 

CHKSECONDlSTEPlTI 

if rangecf 
Then begin 

writxform; 



ELSE IF ACCIJMrn»"6 

BEGIN EMITLCI); EMI 

ELSE BEGIN EMiTTlME 

ELSE EMITNO(ACCUMI) XXX 

IF ELCLASS.FACTOP THEN % 

IF stePi»comma Then 

iF STEPInFACTO 

BEGIN EMI 

ELSE !F ACCUMri]»"6 

BEGIN EmITlcDI EMI 

ELSE BEGIN EMI 
ELSE EMlTNO(l) XXX 
BEGIN AEXPJ EMITOCS 

XX HAVE [AEXP 

IF elclaSS-comma th 
tf stepi»facto 

ELSE IF ACCUMCU'^e 
BEGIN EMlTL(l)> EMI 
FLSE begin EMI 
EMiTL(O) > XXX iS 
END t 
TBRKET»«41) 

EXITJ 
RROR 441 MEANS 
RTl 

RTPAREN 

onePaRfnsh; 

0MMA»44?) 

EXIT? 
RROR 442 MEANS 
IN A WRiTE STA 



UNLOC* THEN XXX 
TDf47,4,l)l STE 
t EMITU(ACCUMI) 
HAVE ONLY tOPN 
XX HAVE [♦ 

XXX HAVE C«i 
P THEN XXX HAVE 
TNOCDI STEPIT 

UNLOC Then xxx 

TD(47»4.1)I STE 
TTIME; EMITU(I) 
HAVE ONLY [* 
SP)J EMITPAIRCJ 

EN XXX HAVE tAE 
P THEN STEPIT X 
UNLOC" THEN XXX 
TD(47,4,1)| STE 
TTIME; EMIT0(L0 
NO DPN, 



fNS. UNLOCK 
PIT END 
ENDXrOPN,AEXp 



END 

f ♦•Unlock 
PIT End 

END Xt*#AEXP 

UNKtISN)! 

XP, 

XXHAVE rAEXP»* 

[AEXPiUNLOCK 
PIT END 
R)ENDlXtAEXP»A 



MISSING RIGHT BRACKET IN CARRIAGE 



ILLEGAL 
TEMENTI 



CARRIAGE CONTROL 



END* 
IF FLCLASS.LFTB 
BEGIN 1*1- 
IF ELCLASS 
ELSE IF ST 
IF ELCLASS 

BEGIN 
ELSE EMiTt, 
GO To PASS 
END 
ELSE IF ELCLASS 
BEGIN EMIT 
IF STEPI«M 
IF ELCLASS 

BEGIN 
ELSE EMITl 



RMTID.SUPERFRMTID) 
COMMENT This is the FORMAT FORM OF THE WRlTEl 

passfoRmat; 

IF stePi * rtpaken 

THEN BEGIN COMMENT THIS IS THE TWO PARAMETER 

CASE OF The write* 

stepit; emitl(0)j go emttcallj 
fNd; 
go passlist; 

RKET then xxx FREE FIELD AT LEAST » lAEXP]/. 
1* BANAI EMITOCSSP); EMI TpAlR( 1 1 ADO J J 

j^mulop then err(443) 

epiibmulop Then begin emitocssn); stepit end > 

XXX FREE FIELD ,« C AEXp]/r AEXP3, 

EMIT0(SSP)| EMlTPAlRclf ADD) END 
FIELD « rAEXPj/, 



slftbrket Then 

UI-ll BANAI 
(1) ; Xxx FREE 
LIST i 



■MULOP THEN XXX FREE FIELD AT LEAST » /, 
L(l) i 

ULOP THEN BEGIN EMITOCSSn); STePIT END t 
•LFTBRKET THEN XXX FREE FIELD • /[AEXP], 

Ul-^r BANAI EMIT0(SSP)J EMiTPAlBC 1 »ADD) 
CI) i %%% FREE FIELD « /. 



END 



08621002 
06621Q04 

0862l0i0 
08621020 
06622000 
08622010 
08623000 
066244)00 
06624002 
06624004 
06625000 
06626000 
08627000 
08627100 
06628000 
08629000 
08629002 
08629004 
08630000 
08631000 
08632000 
08633000 
0863AQ00 
06635000 
08636000 
08637000 
08638000 
06639000 
06640000 
06641000 
0864?000 
06643000 
08644000 
08645000 
08646000 
06647000 
08648000 
08649000 
08650000 
08651000 
086520QQ 
06653000 
06653100 
08653110 
06653120 
08653125 
0865.3130 
08653140 
06653150 
06653160 
08653170 
08653180 
08 6§ 31 90 
08653195 
08653200 
08453510 
08653220 



T 0097«0063«2 

T 0097»0069l2 

T 0097»0072«0 

T ' 00971007811 

T 00971006011 

T 0097»0081«3 

T 00971008312 

T 00971004414 

T 00971008712 

T 00971006811 

T 00971009113 

T 0097J0098I1 

T 00971010011 

T 0097J0103J2 

T 00971010312 

T 00971010410 

T OOSriQlOAlQ 

T 0097fOl06IO 

T 0097»0lill2 

T 0097J0U7I3 

T 00971011810 

T 0097»0li6l0 

T Q0971QIV8I1 

T 0097J0120I0 

T 0097«0l20l0 

T 00971012010 

T 0097«0l20tl 

T 0097I012H3 

T 00971012210 

T 00971012312 

T 0097»0i2312 

T 00971012312 

T 0097»0124I1 

T 00971012512 

T 0097I012AI0 

T 00971012611 

T 00971012713 

T 009 7 101261 1 

T 00971012811 

T 00971013010 

T OO97l.D.l.i0l0 

T 0097i0i30il 

T 0097I0130U 

T. 0097.1013113 

T 00971013513 

T 00971013712 

T Q097lQlAQiX 

T 00971014113 

T 0097t0l45»2 

T 00971014611 

T 00971014712 

T 0097|0i47l2 

T 0-a9.7 tOl4ai t- 

T 0097l0l49»3 

T 00971015211 

T 0097101^X2 

T 00971015712 



FPEt FIEUD FORMAT ; 



IS THE ASTERISK 
EMITLCO); 



FORM OF The 
STEPIT; 



ao TO writxform; endi 



GO TO PASsmST ; 

end of scanning for 
if elclass « factor 
Then begin commfnt this 

EMiTLrO); 

GO PASSLISTJ 
END> 
IF ACCUMlt ^••♦KOOOO" THEN 
BEGIN EXPLtCtTFORMAT; 

IF ARC Then 

BEGIN KLUOGEf-HOLD)^ 
GO TO EXiTi 

end array to array case; 
emitl(0)i aexp; 

if checkccomma.443) 
Then qo to exiT; 

COMMENT ERROR 4^*3 MEANS IMPROPER DELIMITER FOR SfCOND 
PARAMETER IN WRfTr STATEMENT! 
STEPlTJ 

if rangecbooarrayidf intarhayid) 

Then begin comment This iS the row designator casci 

VARlABLEtFDJ 

IF TA8LECI-2) * FACTOP 

THEN BEGIN COMMENT ERROR 444 MEANS IMPROPER 
DESIGNATOR IN A WRITE STATEMENTI 
ERR0R(444); GO TO EXIT! 

FNni 

IF CHfCK(RTPAReN.445) 

THEN r,o TO exit; 

comment error 445 means mlsslnq right 
parenthesis after a row designator fn a 
statement; 
gogogo ♦ true;x 



write; 



ROW 



WRITE 



GO emitcall; 



MEANS MiSSiNG 

TO exit; 



ROW DESIGNATOR; 



stepit; 

END 
EtSE BEGIN COMMENT ERROR 446 
ERR0Rf446); GO 

end; 

passuistmf checkcc0mmaf447) 
Then go to exiT; 

comment ERROR 447 MEANS IMPROPER DELIMITER PRECEEDING A 
LIST IN A WRITE STATEMENT; 
IF STEPI f LISTID AND ELCLASS ^ SUpERLlSTiD 

THEN BEGIN RRl«.L I STqEN; GO TO EmITCALL END! 
CHECKER(ELBATtn); 
IF ELCLASS « SUPERLlSTiD THEN 

BEGIN COMMENT SUBSCRIPTED SWITCH LIST ID; 
LI ST ADDRESs*ELBATtn» address; 

bana; 
emitvclistaddRess); 

IF LiSTaODRESS > 1023 THEN EMlTO(PRTE); 

EMiTOCLOD)! 
I*I-i; COMMENT STeP DOWN ThE&I FROM BANA; 
END ELSE 
BEGIN COMMENT A COMMON LIST ID; 

EMlTPAlR(ELBAT[n.AODRESS,LOD); 

end; 

STEPlTj 



08653230 

08653240 

0B654000 

08655000 

08656000 

08657000 

08656000 

O8658O1O 

08656020 

08658100 

08658200 

08658300 

08658400 

08659000 

08660000 

08661000 

08662000 

08663000 

06664000 

08665000 

08666000 

08667000 

08668000 

08669000 

08670000 

08671000 

06672000 

08673000 

08674000 

08675000 

08676000 

08677000 

086 77 lOQ 

08678000 

08679000 

0S68Q00Q 

08681000 

08682000 

08683000 

08684000 

08685000 

0848^^000 

08687000 

08686000 

Q866A500 

08689000 

08690000 

086920flO 

08693000 

08694000 

06 694500 

08695000 

08695500 

Q8A9-6000 
06696500 
06696520 
06696530 
08696540 



0097;0l58ll 

00971015912 

00971015912 

00971015912 

0097i0l60i0 

00971 016210 

00971016211 

0097l0i62>l 

0097(016313 

0097l0i67(2 

00971016712 

0097t0l69t2 

0097«0i69»3 

0097»0i69l3 

00971017011 

0097»0l7l«2 

0097»0l72»l 

0097*0172; 1 

0097;0i72ll 

00971017312 

009710173*3 

00971017411 

00971017512 

00971017611 

0097;0l77l3 

0097;0i77l3 

00971017811 

00971017811 

00971017912 

00971016011 

0097;0l80ll 

0097t0l60tl 

0097IOU0II 

00971018112 

00971018210 

00 9710 182 to 

0097101821 1 

00971018410 

00971018410 

0097l0i84»l 

00971018513 

00971-018513 

00971018513 

009710187(2 

00971014913 

0097(0190*1 

009710191(3 

00971049210 

0097(019313 

00971019410 

0i)97l0t94ll 

00971019611 

0097l0i97(3 

OO971O19A-I4 

0097(019811 

0097(019912 

aQ5riQ2X)U2- 

0097*020112 



IF chf:ck(RtpaRen»4<(8) then go to exit; 

COMMENT 446 JS IMPRoPpR LfST DELMfTfR JN WRiTE STATEMENT) 

stfpiT; 

EMiTCALLI IF ELCLASS-LFTBRKeT AND NOT ARC THEN 

Begin emitocmkS); 

IF STEPi # Colon then dexp else emit(0)i 

IF ELCLASS^COLON THEN EMlT(O) ELSE 
begin STEPlTi DEXP END) 
IF CHECK(RTBRKET,433) THEN GO EXIT) 
EMITLC15)) EMITV{5)) STEPIT) 

end;x 

IF gogogo thenx 

BEGIN EMITCO)) EMITCO)) EMIT(0))X 
EMlT(0)i fMlTCO)! EMlTVC12)I8i 

END ELSE EMITV(P,NaT{INTeRPTO)))I 

GOGOgO * FALSE)! 
EXITI) 
END WRlTESTMT) 



97 IS 



08696550 




0097)020113 


06696560 




009710203)2 


06697000 




0097«0203»2 


08698000 




0097)0203)3 


Q6696100 




0097IQ205I3 


08696200 




009710206)1 


08698300 




0097)0210)0 


08696400 




0097)0212)0 


06696500 




009710213)3 


06698600 




0097)0215)2 


06696700 




009710217)2 


08696750 




0097)0217)2 


06698600 




0097)0217)3 


06698650 




00971 0220 IQ 


08698900 




0097)0222)1 


06696950 




0097)022««0 


06699000 




oo97^a^^5-t2 


06700000 




0097)0225)2 


228 LONG 


I* 


NEXT SEB 3 



PROCEDURE LOCKSTMT) 

RFGIN COMMENT THE LOcK STATEMENT ROUTINE GENERATES CODE THAT 
CALLS ON THE FILE CONTROL ROUTINE PASSING TO IT ThE 
FOLLOWING PARAMETERS fOR ThE CORRESPONDING CASES, 
************** ***itt* *»'********************** ***tif*****i^***** 
<LOCK STATEMENT>)|3iL0CK(<FlLE PART>,SAVE)/ 



(2»0,FILE.4) 

«* ** ** 414, *« *« 

L0CKc<FlLE PART>tRELEASE) 



♦ ♦ 



♦ * 



** 



** 



** i|r4> 



** 



>«>* 



C6»0,FILE»4)) 

LABEL EXIT) COMMENT THE LABEL EXIT APPEARS AFTER THE LAST 

EXECUTABLE STATEMENT IN THE LOCK ROUTINE) 
DEFINE ThISL ^ RRl*) COMMENT ThISL IS A TfMP CELL 

FOR THE CURRENT L REGISTER) 
DEFINE LTEMP a RR2I) COMMENT LTEMP CONTAINS ThE 

L Register setting for thf 

SAVE OR RELEASE LITERAL ThAT 
gets PASSED TO KEN MEYERS) 



STEPiT) 

if checkcleftp 

Then go to exi 

comment error 

in a lock stat 

STEPiT) 

IF NOT 

Then begin com 

IF NOT RA 
BEGIN ERR 
VARlABLEf 
IF TABLEt 
EMiTOCDUP 



AREN»450) 
T) 

NUMBER 450 MEANS MlSSlNQ LEFT PARENTHESIS 
EMENT) 

RANGE(FILEID,SUPERFILEID) 

MENT must BE READ-ONLY ARRAY TYPE LOCK) 

NGEcBOQARRAYlDf INTAfiRAYlD) THEN 

(45i)) GO TO EXIT END) 

PL)) L ♦ L-ll 

I-2)^rACT0P THEN FLA6C208)J 

)) EMITO(LOD)) EMITLC24)) 



08701000 T 
06702000 T 
08703000 T 
08704000 T 
08705000 T 
067.06000 T 
06707000 T 
08708000 T 

08709000 T 

08710000 T 

08711000 T 

08712000 T 

08713000 T 

START Of Segment 

06714000 T 
08715000 T 
08716000 T 
067-4 70aa T 
08718000 T 
08719000 T 
067?0000 T 
08721000 T 
08722000 T 
0B723Oi)D T 
08724000 T 
06725000 T 
06726000 T 
08727000 T 
067?8000 T 
087261 Qi)T 
08726200 T 
08728300 T 
08728400 T 
08726500 T 



0003)0830)0 
0003)0830)0 
0003)083010 
0003)0830)0 
0003*0630)0 
00031 0830) Q 
0003)063010 
0003)0830)0 
00031083-010 
0003)0830)0 
0003)0830)0 
000310630)0 
0003)0830)0 



4i*«4i«i««*«* 



98 



00961000010 
0096)0000)0 
0096)0000)0 
OO.9ai.OOOO 10 
0096)0000)0 
0096)0000)0 
009&10 000)0 
0098)0000)0 
0096)0000)1 
00961000412 
0096)0002)0 
0098)0002)0 
0098)000210 
0098)0002)1 
0098)0003)2 
0.0961000411 
0096)0003)3 
009810007)3 

009610009)3 
0098)0012)1 



M 



EMITD(43»3»5)I EMlTO(XCH)> EMlTO(STD); 

ir f LCLaSSbRtPARF.N then STEPIT else ERR{104)| 

GO TO EXIT 

FNd) 

PASFILEJ 
IF ELcLaSS»RTPAREN ThfN El-BATtCl«-I-2) + U.CUASS«- 

REUEASEV ELSE 

if check(c0mma»45?> 
Then qo to exiti 

COMMENT FRROR 45? MEANS MISSiNG COMMA IN A LOCK STATEMENT 
> 

THISL*L> L«-LTEMPJ 

IF(RRB1*STEPi » RfLEASEV) or ELCLASS « DECLARATORS AND 
ELBAftn.AnDRESS.SAVEV OR eLCLASS»FACTOP 

Then eMitl(if Rrbi 
Then 6 

ELSE tF ELCLASS«FACT0P ThEN 8 FLSf 2) 
ELSE BEGIN COMMENT ERROR 453 MEANS IMPROPER UNIT 
DISPOSITION PARTI 
ERR0R(453)I GO TO EXiTi 
END? 

L«-THISL> 

stepit; 

IF CHECK(RTPAREN»454) 

Then go to exiti 

COMMENT ERROR 454 MEANS MISSING RIGHT PARENTHESIS IN A 
LOCK STATEMENT! 
STEPlTI 
FXITIJ 

END lockstmt; 



98 IS 



08728600 T 0098 

09729000 T 0098 

08730000 T 0058 

08731000 T 0098 

08732000 T 0098 

08732100 T 0090 

08732200 T 0098 

08733000 T 0098 
08734000 T 0098 

08735000 T 0098 

08736000 T 0098 

0B7 370O0 T 0098 

08738000 T 0098 

08739000 T 0098 

087ft00QO T OOlfl 

08741000 T 0098 

08742000 T 0098 

08741000 T 0098 

08744000 T 0098 

08745000 T 0098 

08746000 T 0098 

08747000 T 0098 

08748000 T 0098 

08749000 T 0098 

08750000 T 0098 

08751000 T 0098 

08752000 T 0098 

08753000 T 0096 

08754000 T 0098 

08755000 T 0098 

47 LONG. NEXT 



1001411 
1001713 
100201 1 
I0021<2 
1002112 
t002iI3 
1002512 
1002611 
10027-1 1 
1002912 
1002912 
100^9X2 
1003011 
1003211 
10(13512 
1003611 
1001611 
1004010 

1 004 112 
i0041l2 
10042^0 
1004210 
10043*2 
4 0043^14 
1004410 
1004512 
1004512 
1004512 
1004513 
»a046tO 
SCO 3 



PROCEDURE CLOSESTMTJ 

BEGIN COMMENT THE CLOSf STATEMENT ROUTINE GENERATES CODE THAT 
CALLS ON THE FILE CONTROL ROUTINE PASSING TO IT ThE 
FOLLOWING PARAMETERS FOR THE CORRESPONDING CASES, 

<CLOSE STaTEMENT>I ««>CLOSE(<FILE PART>iSAVE)/ 



(3»0,FILE»4) 

■did muf *« ** «» ttmi 4141 

CLOSE(<FILE PART>. RELEASE)/ 



♦ ♦ 



** 



** ** 



** 



** 



*4> 



f7»0,FlLE#4) 

iti* *i|> ** 4141 41* 4i4t 4t4i 4>4> ** ** ** ** ** 

CLOSE(<FILE PART>f*> 



41 4". 



(1»0»FILE»4) 
<CLOSE STATEMENt> »l« CLOSE(<FILE PART>. PURGE) 

(4f0tFlLE*A) 

4<4i *4! 4t4< ** ** ** *** ** ** ** ** ** I 

Label exiti cOmMfnt the Label exit appears after the last 
executable statement in the closestmt routinei 



087560OO 
08757000 
08758000 
08759000 
08760000 
08761000 
08 76 2 000 
08763000 
08764000 
08765QO0 
08766000 
08767000 

oartaooo. 

08769000 
08770000 
08771000 
08771100 
08771200 
08771100 
08771400 
08772000 
START OF SrG^t^NT- 
08773000 



T 0003 «0« 3010 

T 00031083010 

T 00031083010 

T .00031083010 

T 0003*083010 

T 00031083010 

I 00031083010 

T 00031083010 

T 00031083010 

t 00031053010 

T 00031083010 

T OOO3IO83OIO 

T 00031043010 

T 00031083010 

T OOO31OB3OIO 

T O0O31O&301-0 

T 00031083010 

T 00031083010 

T 00034X)e30lO 

T 00031083010 

T 0003*083010 

..A4L*AAAJtUftAA. 99.-. 

T 00991000010 



DEFINE TwISL «» RRl#» COMMENT ThiSL JS A TeMP CEUU 

FOR THE CURRENT LREGISTER* 
DEFINE LTEMP b RR2#; COMMENT LTEMP CONTAINS THE 

L Register setting for the 

SAVE OR REUEASE LITERaU THAT 
GETS PASSED TO KEN MEYERSi 
LABEL EMITREST; COMMENT I iS POINTING AT THE UNIT 

DiSPOTlON PART AND CODE FOR THE LAST THREE 
PARAMETERS TO THE FILE CONTROL ROUTINE 
MUST NOW BE GENERATED) 
STEPiTi 
IF ChECK(LEFTPAREN»455) 

Then go to exiTi 

comment error 455 means missing left parenthesis in a 
close statement! 

STEPiT) 

IF NOT RaN6E(FILFID.SUPERFILEI0) 

Then begin comment error 456 means improper file part in a 
CLOSE Statement* 

ERR0Re456); go to FXITI 
END? 

PASFILE? 

IF elclass«rtparen Then ELBATr(i*i-2)+n, class* 

RELEASEV ELSE 

if check(c0mma»457) 
Then go to exit; 

comment error 457 means mlsslnq comma in a close 
statement; 

THiSl*L» LtLTEMPi 

IF STEPl ■ RELEASeV 

Then begin comment release unit disposition part case» 
EMiTLfr); 60 emitrest; 

ENDI 
IF ELCLASS » FAcToP 

Then begin comment asterisk unit disposition part casei 

EMlTLfDI GO emitrest; 

end; 

IF ELCLASS » declarators AND ELBATt I ] .ADDRESS «! SaVEV 
Then BEGIN COMMENT SAVE UNIT DiSPOSTlON PART CASE; 

EMiTLf3); GO emitrest; 
end; 

IF ACCUMtl] •"SPURGE" THEN BEGIN COMMENT FILE PURfiEJ 

EMlTL(4)i GO EMITREST; 
ENOf 
ERR0R(45a)) GO To EXiT; 

COMMENT ERROR 458 MEANS IMPROPER UNIT DISPOSITION PART 
IN A CLOSE STATEMENT; 
EMiTRfSTlSTEPlTJ 

L*THISLJ 
IF CHECKCRtPaRENi 459) 

Then qO to exiT; 

COMMENT ERROR 459 MEANS MlSSjNG RIGHT PARENThESiS IN A 

Close statement; 
stepitj 

EXITH 

END closestmt; 



99 is 



08774000 

08775000 

08776000 

08777000 

08778000 

08779000 

08780000 

06781000 

08782000 

08783000 

08784000 

08785000 

08786000 

08787000 

08788000 

08789000 

08790000 

08791000 

08792000 

08793000 

08794000 

08795000 

08795100 

08795200 

08796000 

08797000 

08798000 

08799000 

08800000 

08801000 

08802000 

08801000 

08804000 

08805000 

08806000 

08807000 

08808000 

08809000 

08810000 

08811000 

088] 2000 

08812100 

08812200 

08812300 

08813000 

08814000 

098 150 00 

08816000 

08817000 

OBfilSOOO 

08819000 

08820000 

oes^iooo 

08822000 
08823000 
08824000 

36 LONG* 



00991000010 
0099I000OI0 
00991000010 
00991000010 
00991 OOOOIO 
00991000010 
00991000010 
00991000^40 
00991000010 
00991000010 
009910004X4 
009910000(1 
00991000112 
00991000210 
0099(0002*0 
0099(0002(0 

0^99*OO02ii 

0099(0003(2 

0099(0004(1 

009910004(1 

0099(0005(3 

0099(000513 

0099(000610 

0099(001010 

0099(0011*3 

0099(001211 

0099(001313 

0099(0013(3 

00991001313 

0099(001512 

00991001 51 3 

0099100.1611 

0099(0018(0 

00991001810 

0099 too 18 10 

0099(0019(2 

0099(0020(1 

0099(0020.11 

0099(0022(0 

0099(0023(3 

0099 1002ft (1 

0099(0024(1 

0099(0026(0 

OO99I0O2912- 

00991002912 

0099(0030(0 

0099I003Q(.0 

0099(0030(0 

00991003113 
00^91003210- 

00991003211 
00991003410 

O09»4.0a344a 

0099(0034(0 
0099(0034(1 
aO5at0O35l2 - 
NEXT SEG 3 



PROCEDURE RWNDSTMTI 

BFGIN COMMENT THE REWIND STATEMENT ROUTINE GENERATES CODE THAT 
CALLS ON THE FILE CONTROL ROUTINE PASSING TO IT ThE 
FOLLOWING PARAMfTfRS, 

<REWTND STATEMENT>n«REWlND(<FILE PART>) 

(0»0,FILE.4); 

LABEL EXIT* COMMENT THE LABEL EXIT APPEARS AFTER THE LAST 

EXECUTABLE STATEMENT IN THE REWIND ROUTfNEl 
DEFINE ThISL « RR\*f COMMENT ThiSL IS A TeMP CELL 

FOR THE CURRENT I RESlSTERI 
DEFINE LTEmP « RR2*^ COMMENT LTEMP CONTAINS THE 

L REGISTER SETTING FOR THE 
SAVE OR RELEASE LITERAL THAT 
GETS PASSED TO KEN MEYERS; 
STEPlTJ 
IF ChECK(LEFTPAREN»460) 

Then go to exit* 

comment error 46o means missing left parenthesis in a 
Rewind statement* 

STEPlTI 

IF NOT RaNgECFILeID»SUPERFILEID) 

Then begin comment error 46i means improper file part in a 
Rewind statement; 
err0r(4643; go to exit! 
end; 
pasfilej 

IF CHECK(RTPaREN»462) 

Then go to exiT; 

comment error 46? means missing right parenthesis in a 
Rewind statement* 

stePit; THiSLfrLi l*ltemp; 

EMtTL(O); L*ThISL; 
EXITJI 
END RWnDSTMTI 



06625000 
08826000 
08827000 
08828000 
08829000 
O883OOOO 
06031000 
08832000 
O6833OOO 
START OF SEGMENT 
08834000 
08835000 
06636000 
08837000 
O8838OOO 
08839000 
06840000 
06841000 
06842000 
08843000 
08844000 
06845000 
08846000 
08647000 
08846000 
08849000 
08850000 
08651000 
06852000 
06853000 
08854000 
08855000 
08856000 
08857000 
08856000 
08859000 
08860000 
lOO IS 13 LONG 



T 00031063010 

T 00031063010 

T 00031063010 

T 00031063010 

T 00031063010 

T 00031083010 

T 0003*0630t0 

T 0003»0830IO 

T 00031063010 
«*»**««»** 100 

T OIOOJOOOOIO 

T OIOOIOOOOIO 

T OlOOlOOOOtO 

T OIOOIOOOOIO 

T OlOOlOOOOlO 

T OlOOIOOOOJO 

T OlOOlOOOOtO 

T OlOOlOOOOlO 

T oiooiooaoti 

T 01001000112 

T 01001000210 

T 01001000210 

T 01001000210 

T 01001000211 

T O1OQJQ003I2 

T 01001000411 

T 01001000411 

T 01QOIQ005I3 

T 01001000513 

T O1OOIOOO6IO 

T O1OOIOOO6U 

T oiooioooeio 

T 01001000610 

T 01001000610 

T OlOOIOOlOlO 

T OlOOlOOllU 

T Ol00»00l2l0 

I NEXT SEG 3 



PROCEDURE explicitformat; 

BErIN integer PRT; array TeD0C[0»7»0i127]I 



STACKfF+2) 
STACKfF*3) 



^ PRT 
« TEDOC 



M0VEC0DECTfD0C»EDOC); 

GT5I«SgN0; GT1»«(2kS6AVL-1)42C4I46I23; SgNOIbSgAVLI 

F t« 0; PRT to GfTSPAcECTRUE»''4); % FORMAT DESCR. 

PRT !■ PROgDESCBLoR(LDfS»0,PRT); 

FLCLASS l« "K"; TBI U FORMATPHRASE; 

sfgmfntcf.sgno.6T5); sgavl ib sgavl+i; 



06860050 

08660100 

START OF SEGMENT 



06660150 
06660200 
06860250 
08660300 
0&860350 
06660400 



T OOO3IO63OIO 
T OOO31O83OIO 



T O1O1IOOO21O 

T 010MI100440 

T oioiioooeii 

T 01011001112 

T 0l0it0i)42J4 

T 0l0il00l4ll 



Sr,NO U GT5I 



move:codE(Tedoc»edoc)j 
'- " """ Then err(136)» 



IF uastelclass # •♦>•♦ Then err(136)» 

IF FLCLASS « •♦^'' THEN FlBAT [ H . CLASS 

IF ELCLASs « ")" Then ELBATtn. class 

FLBATtI 1, class Is O; I UI-i; 
FMlTLtO); EMITPAIRCPRT«L00); 
END EXPLlClTFORMATj 



l» COMMA ELSE 
J» RTPAREN ELSE 



06660450 
06660500 
08860600 
08860650 
08860700 
08660750 
06660800 



T 0l0il00i7l2 

T 0l0ll00?0l0 

T 01011002210 

T 0101>0026IO 

T- OlQi IQ030.I.0 

T 0l0il0034M 

T 01011003610 



lOi IS HO LONG* NEXT SCQ 



COMMENT 

SORT! 
<AEXP> 
<AEXp> 


<AEXP> 

PROr.DFSC. 

PROfi.DFSC. 

* • • 

0.3,fl#5 

TP5 

TP4 

TP3 

TP2 

TPi 



DKO 

0/1 

O/l 

INF 

OUTr 

PD/0 

PD/0 







LIT 





* • • 









MSCWS 

procedure 
begtn 



SORTSTMT 
AND CALL 



AND MERGeSTMT 
SORTI. PASSING 

MERGE' 






<AEXP> 

PROG.DESC, 

PROG.DESC. 

2»3»4»5,6»7 

t * t 

FL7 

FL6 

FL5 

FL4 

FL3 

FL2 

Ftl 


0/1 


OUTr 



PO/0 







LIT 



1 

MSCW 



ANALYZE THEIR APPROPRIATE SYNTAX 
THE FOLLOWING? 

DISK SIZE. IF SPECIFIED 
CORE SIZE»IF SPECIFIED 
ALFA FLAG 
RECORD SIZE 

DESCRIPTOR TO COMPARE PROCEDUR 
DESCRIPTOR TO HIVALUE PROCEDUR 
NUMBER OF FILES TO MERGEt OR 
NUMBER OF SORTTAPES TO USE 
SCRATCH TAPES FOR SORT, 
OR MERGE FILES, POINTERS TO 
Top I/O DESCRlPTORSa OR ZERO 
IF NOT USED, 

DISK FILES FOR SORT 

TRUE IF INPUT PROCEDURE 
TRUE IF OUTPUT PROCEDURE 
POINTER TO I/O DESC FOR iNPUT 

OR OUTPUT FILE» OR MOThfR 

OF WORK Af?RAY, 
INPUT PROCEDURE DESCRIPTOR 
OUTPUT PROCEDURE 



PRT INDEX OF MERGE INTRINSIC 

SORT/MERGE FLAG 

SORT-FILE MOTHER 

DESCRIPTORS 



mergestmtj 

INTEGER JtK.FlLERiFlLrNDI 



STACKfF+2) 
STacK(F+3) 
STACKfF + <>) 



J 
K 

ftLfR 



ES 


06861000 


T O003I0830I0 






08862000 


T 00031083010 






06863000 


T OOO3IO63OIO 






08864000 


T 00031083010 






08865000 


T 00031083010 






08866000 


T 0003*063010 






08867000 


T 00031083010 




E 


06868000 


T 00031063010 




E 


08869000 


T 0003»0830IO 






08870000 


T 0003*083010 






08871000 


T 00031 OB3O-V0 






06872000 


T 0003<0630}0 






08873000 


T 0003«0830l0 






08874000 


T 00031083010 






08875000 


T 0003»0630IO 






08876000 


T 00031083010 




1 


08877000 


T Q0Q3 10830-10 






08878000 


T OOO31O83OIO 






08879000 


T 0003*063010 






08880000 


T OQ03I 0830.10 






06881000 


T 00031063010 






06882000 


T 0003*083010 






06863000 


T 0003*0630 !0 






06884000 


T 0003*083010 






06885000 


T 0003*0830*0 






08886000 


T 0003*083010 






08887000 


T 0003*0830*0 






08688000 


T 0003*0830*0 






0a&89O00 


T 00031083040 


.„. 




08890000 


T 0003*0830*0 






08891000 


T 0003*0830*0 






08492000 


T 0003-10^301 


,_ , 




08893000 


T 0003*0630*0 






08694000 


T 0003*0830*0 






06895000 


T 000310-83010 






08696000 


r 0003*063010 






08897000 


T 0003*0630*0 






08696000 


r 000 3 J 081010 






06900000 


r 0003)0630*0 






06901000 


r 0003*063010 






06902000 


r OJ)03I 0.A101Q -_ 




START 


OF SEGMENT 


(i*«4i4>4>««** 102 





STACKrr*5) » FILEND 
STACKfF+6) s OPTOG 



QUITJ 
END 



BOOLEAN OPTOGJ 

LABEL quit; 

STePIT; if CHECK(LEKTPaREN«36 
EMiTOfMKS)! EMlTL(l)| EMiTcO) 
EMIT(0)I EMIT(0)I EMlT(0)l 

IF optog*(STepi*filetd or ELC 

ELSE IF NOT OUTPROCHECKC ELBAT 

EMlTPAlR(EUBATril.ADDRES 

EMlTcO)nF OPTOG THEN BEGIN P 

EMITN{6NAT(S0RTA))» 
IF NOT COMMACHECK ThcN SO QUi 
EMlT{0); EM1TL(REAL(TRUE AND 
FILER*BUMPL» IF NOT HVfHECKtE 
EMlTPAiR(ELBATr II.ADdReSS.uOD 
IF NOT EQLESCHECK(ELBAT[n) T 
EMlTPAlR(ELBATtn,ADDRESS,LOD 
AEXPJ EM1TB(BFW.FILER#FILEN0* 
FOR J*l STEP 1 WHILE ElCLASSb 
BEGIN STEPITJ PaSSFIUE E 
FOR K*J STEP 1 UNTIL 7 DO EMI 
IF J>7 OR j<2 THEN BEGIN ERR( 
EMITL(J)I EMITB<BbW»8UmPL»F1L 
IF CHECK(RTPAREN.369) THEN GO 
EMIT(0)I EMITCO)? EMfTfO); 

fmitvcgnatcsortd); 
mergestmti 



06903000 T OiOgtOOOOlO 



7) THEN GO QUITI 

; emitl(gnat(Mergei)); 
lassbsupeRfileid) Then emiT(O) 

tl]) THEN GO OUIT ELSE 

S»LOD); 

ASSfILEJ Ii-I-l END ELSE 

T> 

NOT OPTOG))! EMIT(0)J 

LBATtll) THEN GO OUlTl 

)» IF NOT COMMACHECK THEN GO QUiTj 

HEN GO QUiTi 

); IF NOT COMMACHECK THEN GO QUiTj 

BUMPL)» 

COMMA DO 

no; 

T(0); j*j-n 

368); Go QUIT END; 
ER); EMITB(BFW»FILEND»L); 
QUIT; STEPIT; EMITO(SSN); 



08904000 
08905000 
08906000 
08907000 
08908000 
08909000 
08910000 
08911000 
0891U00 
08912000 
08913000 
08914000 
08915000 
08916000 
06917000 
08918000 
08919000 
06920000 
06921000 
06922000 
08923000 
08924000 
08925000 
08926000 
08927000 



102 IS 68 LONGff 



01021000010 
01021 GOOD to 
01021000210 
01021000513 
010240006^0 
0102IOOU«2 
01021001313 
01021 00451 3 
0l02t00i6ll 
0l02t0020ti 
0102I0Q21I3 
01021002411 
01021002713 

01 02*0030 to 

01021003210 
0l02t0034ll 

010210036! 

O1O2IOO421O 
0l02t0043t3 
01 0210049; 2 
0l02l0052tl 
Ol02t0057l2 
01021006010 
01021006210 
01021006410 
NEXT-SC6 3 



PROCEDURE SORTsTMt; 

BEGIN BOOLEAN I NPRO , OUTPROt 



STACKfF+2) a INPRO 

STACKfF4.3) a OUTPRO 

STACK(F+4) a A 

STACK<F+5) * J 



PRTC1037) 8 STUFFlUE 



08926000 

08929000 

START OF SEGMENT 



T 00031083010 
T 00Q31 063010 
*«4i«*iii««<i* 103 



INTEGER A.J; 



LABEU 
STREAM 



quit; define R0Sp1»280#j 
PROCEDURE STUFFlLEClOLOC»FN, 



FN, 



SFN); 



sfn ; 



VALUE 
BEGIN DI»TDLOC; Dl«.DT+5; D?*DC; 

Si+LOC FN; Si*5i+5; DS»3 CHR; Si*Si+7; 

os*ii LiT'»ooooooooSRT««; ds*chr; si*si-i; 

DS»7 LIT" 5DSRT**; DS»ChR» SFN^DP Sl*LOC 
Dit-IOLOCt OUOUS; SuSl-»-5l 05*3 CHRt 

END stuffile; 



sfn; 



08930000 T OlO3tO0O0t0 



08931000 T 
06932000 T 



06933000 
08934000 
08935000 
08936000 
08937000 
06938000 
06939000 



0l03t0000t0 
01031000010 

01031000010 
Ol03t0000t0 
OtOHOOOOXl 
0l03t000l )3 
0l03t0004t0 
01 03100044 
Ol03l0007t2 



PRT(1040) " INPROCHECK 



BOOLEAN PROCEDURE I NpRoCHECKCELBW ) » VALUE ELBWt REAL ElBW; 



08940000 T 01034«007*2 



IF EtBW,CLASS»»BOOpROClD THEN rRRf363) FUSE 
IF BOOLEANCELBW. FORMAL) THEN T NPRQCHECK*TRUE 
IF TAKE(GT1#-GIT(ELBW))>«1 THEN ERH(364) ELSE 
IF ARRAYChCCKcTaKcCGTi + D) THEN fRR(365) ELSE 
lNPROCHECK«.TRUE» 



ELSr 



08941000 
08941100 
08942000 
08943000 
08944000 



T 01031000712 

T oioaiooioii 

T 01031001312 

T 0l03l00l7l2 

T 01 0310020 II 



IF SFiLFNo«o Then 

BEGIN SFILEN0*FILEN01 

FOR J«.l STEP 1 UNTIL 7 DO 

IF MKABS(lDARRAYn27])<iDL0C.r33ll5]+3 THEN FLAG(40) ELSE 
BEGIN STUfFILE(TDLOC.(IF J<2 THEN 12 ELSE 2)&FILEN0 

r 30 J 361 12] » J); 
FlLFN0«.FILEN0+n 

end; end; 

EMiTOfMKS); EMiTV(BLOCkCTR); EMITPAIR(l.AOD); 

FMITPAiR(BLOCKCTR,STd)| EMIT(0)I EMITf0)> 

EMITN(2)I EMITPAIRcRdS); EM I TPA IRC A^GNAT C SORTA) » STD) I 

EMITOCMKS); EMITl(20)> EMITL(IOOO); EM1TL(3)> emitlcsfileno)! 

EMIT(0)I EMITO(LNG); EMITN(A)I EMIT0(INX)1 EMITL(2)» 

EMITL(I); EMULdO); EMlTcOJ EMlT(0)l EMITLC10)J 

CMITL(8)> EMITV(5)J 

FMIT(O); EMIT(O); EMfT(O); EMITCO)! EMIT(O); EMITCO)! 

emitl(gnat(Mergei)); emitcoj emiT(O); emiT(0)j stepitj 

IF CHECK(LEFTPaREN»355) THEN GO QUIT; 
% OUTPUT OPTION, 

IF STEPl«FlLEIO OR ELCLASSbSUPERF I LE I D THEN 
BEGIN EMlTtOjJ PASSFJLE; I»I*1 END ELSE 

BEGIN IF NOTfOUTPRO*OUTpROCHECK(ELBATtn))THEN GO OUlTI 
EMiTPAlRfELBATrn. ADDRESS. I, OD); EMI TLC A) ; EMI TN( 1 0) 

end; 

IF NOT COMMACHECK THEN GO QUlT> 
Z INPUT OPTION, 

IF ELCLASSbFILEID OR ELCLASS.SUPeRF I LE I D THEN 

BEGIN EMITPA1R(0»XCH)» PASSfILEI 1*1-1 END ELSE 

IF NOTflNPRO^lNPROCHECKfELBATtn)) THEN GO QUIT ELSE 

BEGIN EMITPAIR(ELBAT[I3, ADDRESS, LOD); EMlTO(XCH)J 

IF OUTPRO THEN EmITO(DUP) ELSE BEGIN EMITL(A)I 

EMiTNeio) End; end input pro; 
emitl(Realcoutpro)); emitl(realcinpro)); emiT(O); 

EMITO(LNG); EMITN(A); EMIT0(INX)I EMITO(LOO); 

emitpair(5»cdc?; emitcO); 
if not commacheck then go quit; . 
3! numrer OF Tapes. 

EMiT(O); emit(O); emitcoj emitcoj; emiT{0); 
emito(MkS); emitN(A); emitlcsfileno+2)i aexp; i*i-ii 

EMITL(U); EMITVCS); 

if NOT COMMACHECK THEN GO QUIT! 

X hivaLuf procedure, 

IF NOT HVCHECKtFUBATtT ]) THEN GO QUIT; 
EMITPAIR(EUBATM3,ADDRESS»L0D)J 
IF NOT COMMACHECK THEN GO QUIT; 
% COMPARE PROCEDURE, 

IF NOT EQLESCHECKfELBATtlJ) ThEN GO QUlTl 
EMlTPAlRfELBATti].ADDRESS*LOD); 



08945000 
08946000 
08947000 
08948000 
08949000 
08950000 
08991000 
089^2000 
08953000 
08954000 
08955000 
08956000 
08957000 
08958000 
08959000 
08964000 
06965000 
08966000 
08966500 
08967000 
08966000 
08969000 
08970000 
08971000 
08972000 
08972500 
08973000 
08974000 
08975000 
08976000 
08977000 
08978i)OQ 
08979000 
08980000 
08981000 
08983000 
08983500 
089B4000 
08985000 
08986000 
06987000 
08987500 
08988000 
08969O00 
08990000 
08990500 
08991 00 
08992000 



oioat 

OlOll 

01031 
Ol03» 

01031 
Ol03« 
01031 
01 031 
01031 
01031 
0103* 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
01031 
0103! 
01031 
Ol03t 
01031 
01031 
O1O3; 
01031 
01034 
01031 
0103» 
0103 1 
01031 
01031 
0103.1 
01031 
01031 

Qtoai 

01031 
O1O31 
aiXX34 

0103I 

01031 

04031 
0103I 



002410 

002513 

002712 

002810 

003210 

003513 

003712 

0036 r I 

004011 

004312 

004513 

004913 

005312 

00.57! 2 

006011 

006210 

006611 

007011 

007211 

007211 

007411 

007713 

008.010 

008211 

008312 

008410 

008410 

008610 

006912 

0091«3 

009411 

009712 

009810 

OlOOlO 

01 03 12 

010512 

010610 

Q 10610 

010913 

011410 

011513 

011611 

OII6II 

014-84-0 

012010 

0l21t2 

012142 

0122M 



% Record length. 

if not commacheck then go oulti aexp; emlto(ssn)i 

EMiTfO); EMlTPAfRrAtSND); 

% corf Size, 

IF ELCUASShCOMMA THEN 
BEGIN 
STEPlTl 
CORESZl* 
MAXCIF ELCLASS«N0NL1TN0 THEN C ELSE 12000t CORESZ ) ) 

aexp; 

END 
ELSE IF ELCLaSS.RtPAReN THEN 
BEGIN 

IF C0RESZ<1023 THEN CORESZ I ■12000| 
EMiT(03* 
END 
FLSE ERRC366); 
X DISK SIZE. 

IF ELCLASS«COMMa THEN BEGIN STePiT; AEXP END ELSE 

IF ELCLASS.RtPAReN then CMITCO) else ERR(366); 

if elclassj'Rtparen Then eRRc366) else stepiti 

OUiTJ EMiTVfGNArcSORTi ))J 

END sortstmt; 



09992500 
08993000 
08993500 
08993900 
08994000 
08994010 
08994020 
08994030 
08994040 
08994060 
08994070 
08994080 
08994090 
08994500 
08994510 
08994520 
08994530 
08994900 
08995000 
08995500 
06996000 
08997000 
08996000 



103 IS 157 LONG» 



010310 
010310 
01 03 10 
O1O3IO 
O1O3IO 
01 QUO 
0l03(0 
010310 
010310 
010310 
010310 
010310 
010310 
010310 
010310 
010310 
010310 
0103*0 
010310 
010310 
010310 
010310 
O1O31O 
NEXT SE 



12410 
U'HO 
I26«i 
12810 
12810 
12912 
129»3 
13010 
13010 
13512 
13513 
1351 3 
13713 
13810 
14010 
14112 
14112 
14313 
14313 
14610 
14913 
15211 
15410 
G 3 



COMMENT The program ROUTINE OOfS ThE INITIALIZATION AND 

FOR THE Rest of the compiler, the main program 

IS simply a call on the program ROUTINE! 
PROCEDURE PR06RAMI 
PRT(104t ) » PROGRAM 

BEGIN 
STREAM PROCEDURE MDESC ( WD. TOuOc )> VALUE WDI 



THE WRaPUP 

OF THE COMPILER 



PRTC1042) m MDESC 



START 



BEGIN DI«-L0C WDI DS* SeTISU LOC WD* I*T0L0C I DS«.WDS END* 



09000000 
0900i000 
09002000 
09003000 

09004000 

09005000 

OF SEGMENT 



T 0003«0830I0 

T 0003>OB30IO 

T 0003>0630I0 

T 0003»0830I0 

T OOO3IO63OIO 

T 00031083010 

HA******** 10^ 



09006000 T 01041000010 



COMMENT The following procedure prints OUT THE PRTt NAME* AND 

Segment number of The intrinsic procedures used in the 

OBJECT program* 
STREAM PROCEDURE WRT I NTRSCf SGNO, ALF A» PRT* F I L) » 
PRTCIO43) « WRTinTRSC 

VAlUe sgno.prti 

BEGIN LOCAL COUNT. DESTi 

Dn»FlLI DSt»4 LlT'^PRTt^J SM^LOC PRT» Sll«Sl + 4l TALLY;!»4> 

3(TF sc"'*©- Then % oont pRint leading zeroes. 

BEGIN Sli«Si+i; TALlY«sTALLY+63 END ELSE JUMP 0UT)> 
COuNTleTALLYI OSl«COUNT CHRJ DSI«4 LlT") s •♦; 
SliaALFAl SllpSl+2; DeSTi«dP % SAVE Dl, 
Dif.LOC COUnTi nS>«7 LlTfOw; DSUCHRl X NO OF CHARS IN NAME. 

dii»dest; dsucount chr» % int. name, 

DSi«29 LIT" INTRINSIC, SeGmENT NUMBER m •♦ > 
SlJ* LOC SgNOI DSI«4 OECi dS t «u I T" . "I 



09007000 T 
09008000 T 
090Q9QQO T 

09010000 T 



09011 000 
09012000 
09013000 
D 901 4000 
09015000 
09016000 
090} 7000 
09018000 
09019000 
090200QO 
09021000 



01041000113 
Ol04t0001l3 
01.0410001 J 3 
01041000113 

01041000113 

01041000113 

01041000210 

01041000313 

01041000411 

01041000712 

01 04100081 1 

01041000912 

0i04l00ill2 

040A1001413- 

0l04«00l5t3 



ENn wrtinTrso 



FILL! % jUnK leading BLANKS, 



09022000 
09023000 



T 01041001611 
T 01041001712 



OEFINE STARTINTrSc*426#I 

Label lii 

IDL0c*MKABS(idARRaY[01)) 

idloctemp ♦ idlocj 

FILL OPTlONSt*] WITH ♦'SCHECK", 0, 



% Op 1 



••6D 

••40 

••6F 
«9| 

"SL 
••4L 
"SL 
•♦3M 
•♦4T 
'♦4N 
••3N 
♦•7N 
"40 
"IS 

«5p 

••5P 
"45 
"3S 
••6S 
••6S 
••5S 
••4V 
••5V 
••4B 
••4X 

"71 

"8C0DE 



EBUG"»0, 
ECKO",0, 
ORMA",0. 
NTRl",0, 
ISTA"»0, 
IST0",0, 
ISTP",0, 
CP00",0, 
APeO",0, 
ESTO",0, 
EWOO"i0, 
EW1N".0, 
MIT0".0, 
0000". 0, 
RTOO"»0. 
UNCH",0» 
URGE^iO. 
r6S0".0, 
EQO0".O, 
EQER"tO, 
INGL",0» 
TUFF"»0, 
0ID0",0, 
0IDT".0, 
ENDO",0» 
REFO",0» 
NCLU"»0, 
F".0» 



% 


2( 


. 3 


% 


4 


. 5 


% 


6 


. 7 


% 


8 


. 9 


% 


10 


• U 


% 


12< 


) 13 


% 


14, 


. 15 


% 


16, 


. 17 


% 


18, 


. 19 


% 


20 


, 21 


% 


22. 


> 23 


% 


24, 


. 25 


% 


26. 


. 27 


% 


28, 


r 29 


% 


30, 


. 31 


% 


32 


. 33 


% 


34( 


» 35 


% 


36, 


. 37 


% 


38. 


» 39 


% 


40. 


' 41 


% 


42. 


. 43 


X 


44, 


. 45 


% 


46, 


. 47 


% 


48, 


, 49 


% 


50, 


» 51 


% 


52. 


. 53 


54t55 


56, 


57 





X107 
X106 



0> 



LiST0G««LlSTER««»B00LEAN(l-ERR0RC0UNT.[46»n)l 
OPTlONStnj l« Realclisterx 

COMMENT LISTOG IS NOT SET BY DEFAULT ON TIMESHAR|NGI 

NOHEADING «• TRUE? 

BUILOLINE,U7lll*SEQXEfiT0G*R,EM0T0.G«- 

B0OLEANCERR0RCOUNT,t47U])l 

ERRORcOUNT l« Oj 

ERRMAXti»999| % HAY BE CHANGED IN DOLLARCARD, 

BASENUH«*lOOOOI AdDVALUF J "10001 NEWBASE I -TRUE > 
COMMENT DEFAULT VaLUeS FOR •'sSfO" OPTIONj 

LaSTUSEO I« 41 % FOR INITIALIZATION, 

SgN0<.1ISGAVL«-2IPDtNX<-OI 

fiUeno»«dai»i> 

FllETHiNG * 4095J 
MaXSTACK * 5131 



09024000 
09025000 
09026000 
09027000 
090? 70 02 
START OF SEGMENT 
09027004 
09027006 
09027008 
09027010 
09027012 
09027014 
09027016 
09027018 
09027020 
09027022 
09027024 
09027026 
09027028 
09027030 
09027032 
09027034 
90210 36 
09027038 
09027040 
09027042 
09027044 
09027046 
09027048 
09027050 
09027052 
09027054 
09027056 
09027058 
09427100 
105 IS 59 LONG 
09028000 
09028005 
09028010 
09028050 
09028101) 
09028150 
09028900 
09028910 
09028920 
09028930 
Q9.029i)a0 
09030000 
09031000 
09031100 
09032000 



0l04l00i7l3 
0i04l0Oi7J3 
01041001713 
01041002010 
010410.02011 

0l04l0022«l 

1 04 1 002211 

0104100221 1 

0104I0022U 

01041002211 

0l04t0022tl 

0l04l0022!l 

01041002211 

0104100221 1 

01041002211 

01041008211 

01041002211 

01041002211 

0104IQ022I1 

01041002211 

0l04l0022tl 

QIMI0Q221.1. 

01041002211 

01041002211 

01 04 1 00 22 II 

01041002211 

01041002211 

01041 0022U 

01041002211 

01041002211 

01041 Q022 II 

01041002211 

01041002211 

oimioozzii 

NEXT SEG 104 
01041002211 
0104104X2513 
01041002712 
01041002712 
01041002^1 3 
01041002810 
01041003112 
01041001413 
01041003211 
01041003411 
D1(U.J0Q-3.4J1 
01041003513 
01041003713 

01011003912 
01041003913 



COMMENT 



NpXTiNFO «■ LASTiNpO * LASTSEOROWxpSe + LASTSEQUENCEf 1 1 

PUTNBUMP(0)I 

8LANKeT(0, iNFOtLASTSEQROWfLASTSEQUENCE])! % FOR "t CHECK", 

READACARD; % INtTiAUI?ATION op NCR.FCR» and LCHf AND 

% READS FIRST CARD INTO CARD BUFFER, 
LA5TUSED J« !» X ASSUMES CARD ONLY UNTiU TOL.D DIFFERENTLY, 
NXTELBT*!! FAULTLEVEL*32I 
PRTI * PRTIMAX ., i8l 
MRCLEAN ♦ TRUEi 
START FILLING TABLES NEEDED TO COMPILE A PROGRAM! 
FILL TENr*3 WITh 



OCTll2l4'>0000000000» 
0CT107303240000000'0» 
OCT1045753604000000# 
OCT0001351035564000, 
OCT0032iS57H2036440» 
0CTo06543?1274l3543» 
0CT0l21?65707274266# 
0CT0152513201307703* 
0CT0205126764556310* 
0CT024l?06l70l75347r 
0CT027'2356132665013, 
0CT03246411A1345435. 
0CT0361131664625027» 
OCT0412227375067064» 
0CT0444367706263476, 
OCT0501060411731665. 
OCTO5321O66O73O5375, 
0CT0564132154331566, 

0CT062l0l20l436ii20f 
0CT065l773450267005f 
0CT0703707272645341, 
0CT07374ei3047O7l00» 
OCT0771665435043073; 

COMMENT THIS IS ThF FIL 

The first 
Then oRdin 
Then intri 
FILL iKiFori**) with 



OCTll41000000000000» 

OCT1111750000000000, 
0CTlO6364U0OOO0O00» 
0CT1037346545000000, 
0cT00U643245l2l000» 
0cT0043432772446150» 
0cT0076740555316473» 
0CT0i31543271153343» 
0CT0163236041571663. 
0CT02l635456l7ll7r2, 
0CT0251447626234641, 
OCT0303051561442216, 
0CT0336011371636745, 
0CT0371360241772234, 
OCT04226752743O47O1, 
0CT0455465667740415, 
0CTO5n2745l432O242, 
0CT054253O35U66674, 
0CT0575160607420123, 
0CT0631214417455344, 
0CT0662372362344606t 
0CT07l467n514l6632t 
OCT0751137556607072. 



OCT1131200000000000. 

OcTll02342000000000t 
OcT10546ll32oOOOOOOt 
0cT101ll24027620000i 
0CT0022214li6345200t 
0CT0054341571157602, 
OCTOU1053071060221» 
OCT0142074147406234# 
0CT0174105452130240» 
0cT023l0O477i627437, 
0cT026l76l5737040Ui 
0CT0313664115752661, 
OCT0347413670206536, 
0cT040l6543l2370703f 
0CT0433454553366062, 
OCT0467003245730521* 
0CT052l55J«374Q4ai2* 
0CT0553256443424453. 
0CT0606414751324150, 
OCT 064 145 7523 310635* 
0cT067307l057035747f 
0CT0726047403722400* 
0CT07613675123.50710J 



L. FOR The Second row of infOi 

ITeMS ARE STREAM RESERVED WORDS* 
ARy RfSfRVED W0RDS» 

NSic fUnctionsi 



09033000 
09034000 
09034500 
09035000 
09036000 
09037000 
09038000 
090391)00 
09040000 
09040100 
09041000 
09042000 
09043000 
09044000 
09045000 
09046000 
09047000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
09054000 
09055000 
09056000 
09057000 
START OF SEGMENT 
0905B0OO 
09059000 
09060000 
09.061000 
09062000 
09063000 
09064O0Q 
09065000 
09066000 
090JL70QO 
09068000 
09069000 
0907QO0O 
09071000 
09072000 
09073000 
09074000 
09075000 
090 76000- 
09077000 
09078000 
09079000 
09080000 
106 IS 69 LONG 

90 8 1000-- 

09082000 
09083000 
09084000 
09085000 



01041004011 

0l04t004dt2 

01041004410 

0l04l0046t0 

01041-004611 

0104100461 1 

01041004712 

Ol04»004BI| 

O1O4IOO5OIO 

O1O4IOO5OII 

0l04l00f^ail 

01041005112 

01041005112 

104 1005112 

01041005112 

01041005112 

0104IQ05-U2 

01041005112 

01041005112 

01041005112 

01041005112 

0104I005H2 

01041045112 

Dl04l005n2 

010410051(2 

Ol04tOOSlt2 

01041005112 
414.41*4141**1* 106 

Oi04t00$2l4 

0104I0052U 

01041005211 

Ol04tOQ52it 

01041005211 

01041005211 

01041&052J1 

01041005211 

01041005211 

0.104lQ0.5.2tl 

01041005211 

01041005211 

0104.1 Q052Jt. 

0104I0052U 

01041005211 

QIQ4JD0S2LI 

0104100521 1 

01041005211 

0404I0O&Z1I 

010410052(1 
0104I0052U 
01 04400-52 J 4 
0104100521 1 
NEXT SEG 104 

O-4XX4JlO0-5*14- 

01041005211 
01041005211 
0404l00t2-l-l 

0l04»0052«l 



OCTo670000600000400» "gSlOOO''* 



OCT0700001040000402# 

OCT071000H6000040^» 

OCT0720001630000406» 

OCT0730000530000410» 

0CT07400O015000041?. 

0cT07500016200004l4, 

OCT0760000740000416» 

OcTo770000500000420i 

OcTlOlO000730000fl?2# 

OCT102000H60000424, 

0cTl030001170000426, 

0CT1040001430000430» 

OcTl050000340000432» 

OcTl06000l036400434, 

0cTl06000l066500436, 

OcTl06000i020500440, 

0cTi06000i357700442. 

OCT1O6OOO1O573OO444, 

OCTi06000i6l7200446, 

OCT)060000727600450, 

OCTl0600004i7500452» 

0CTiO60000766700454, 

OCTJ060000176600456, 

OcTl004000260000460# 

0CTO4 3000005 0000000* 

0CTl33O0Ol03O0O0OO0» 

OCT0430000170000525, 

OcT0660000000000000# 

0CT0430000030000503, 

OCT0470000000000000. 

OcTl070000000000655, 

OCT0430000230000000, 

OcTl360006000000000f 

OCT0550000000000000r 

OcT0520000000000000f 

OCT0430000100000000» 

0CT0570000000000000, 

OcT0600000000000000» 

OcTl300002030000000» 

0cT0360000000000644» 

0CT0430000210000000, 

OCTO61OOOOOOI2OOOOO, 

0CT0530000000000000, 

OCT0430000200000554» 

OCTllOOOOOOOOOOOOOO, 

OCT0640000000000604, 

0CT06 30000000000000* 

OCT0430000130000000. 

OCTO*30000060000000» 

OCT1310000000000000» 

OCT0430000070000000. 

0CT043O00O110O00613, 

OcTOSOOOOOOOOOOOOOO, 

OcTi3600l6000000000. 

OCT0430000140000000, 



•'2DI000'' 
''2CIO0O'* 

"205000" 
•'4SKIP0'' 
•♦4JUMP0'' 
•'2DB000'' 
'•2SB000'' 
''2SC000'' 
"SLOcOo" 
•'2DC000" 
"SbOcAL" 
"SLitOo" 
"3SET00" 
"SRESET" 
•♦3WDS00" 
••3CHR00" 
"3ADD00'' 
"SSUbOO" 
''3Z0NOO*' 
•♦3NUM00'* 
"SOCTOO" 
"SDEcOO" 
"610061" 
"5ALPHA" 
"3AND00" 
"5ARRAY" 
"SBEGIN" 
"7BO0Lr" 

"scLosr" 

"7cOmMf« 
"6DEF1N" 
"3DIV00" 
"2DO0OO" 
"6D0UBU" 
"4DUMP0" 
"4eLSE0" 

"SrNnOo" 

"3eQv00" 
"SFALSr" 
"4FILE0'' 
"4FILL0'' 
'•3F0R00'' 
"6F0RMA" 
"7F0RWA" 
"2G0O0O" 
"ZIFOOO" 
"2INO0O" 
"7INTEG" 
"3IMP00" 

"StABEU" 
"4L.IST0" 
"4L0rKO'' 
"3M0d00" 
"7M0NIT" 



"EOOOOOOO". 



"ANOOOOOO"* 

"NTOOOOOO", 
"EOOOOOOO**, 



"EOOOOOOO": 



"TOOOOOOO"* 
•♦RDOOOOOO"! 



•♦eroooooo"* 

"OROOOOOO"* 



comment 


256» 09086000 






START OF SEGMENT 


COMMENT 


258 


I 09087000 


COMMENT 


260 


J 09088000 


COMMENT 


262 


i 09089000 


COMMENT 


264 


1 09090000 


COMMENT 


266 


t 09091000 


COMMENT 


268 


) 09092000 


COMMENT 


270 


1 09093000 


COMMENT 


272 


1 09094000 


COMMENT 


274 


1 0909S000 


COMMENT 


276 


1 09096000 


COMMENT 


278 


i 09097000 


COMMENT 


280 


I 09098000 


COMMENT 


262 


1 09099000 


COMMENT 


284 


1 09100000 


COMMENT 


286 


I 09101000 


COMMENT 


286 


I 09102000 


COMMENT 


290 


t 09103000 


COMMENT 


292 


1 09104000 


COMMENT 


294 


1 09105000 


COMMENT 


296 


1 09106000 


COMMENT 


298, 


1 09107000 


COMMENT 


300J 


1 09108000 


COMMENT 


302 


1 09109000 


COMMENT 


3041 


1 09110000 


COMMENT 


307, 


09111000 


COMMENT 


309 


1 09112000 


COMMENT 


311 


t 09113000 


COMMENT 


313 


1 09114000 


COMMENT 


3151 


1 09115000 


COMMENT 


318) 


09116000 


COMMENT 


320) 


09117000 


COMMENT 


323) 


09118000 


COMMENT 


326) 


09119000 


COMMENT 


328) 


09120000 


COMMENT 


330) 


09121000 


COMMENT 


333) 


09122QQO 


COMMENT 


335) 


09123000 


COMMENT 


337; 


09124000 


COMMENT 


339j 


09125.000 


COMMENT 


341) 


09126000 


COMMENT 


3431 


09127000 




SA 


09ia8000 


COMMENT 


347) 


09129000 


COMMENT 


349j 


09130000 


COMMENT 


3521 


0913.1QQ0 


COMMENT 


3551 


09132000 


COMMENT 


3571 


09133000 


COMMENT 


3591 


09134000 


COMMENT 


3611 


09135000 


COMMENT 


364j 


09136000 


COMMENT 


3A6i 


09131^00 


COMMENT 


368} 


09138000 


COMMpNT 


370] 


09139000 


COMMENT 


37 2 j 


091400QQ 


COMMENT 


3741 


09141000 



01041005312 

*«i|itt«>(>*4< 107 
01041005411 
01041005411 

0l04l(xa54^^ 

01041005411 

0104}005«>1 

01041005411 

0104100541 1 

0104I0054I 1 

010410054*1 

01041005411 

01041005411 

0l04t005Jn 

01041005411 

01041005411 

01041-00.5-411 

01041005411 

010410054} 

01 04 100541 

O1O4IOO54I 

0l04l0054t 

O1O41QD541 
0104100541 
0104100541 
0104100541 
0l04t0054i 
0104100541 
0104100541 
0104)00541 
010410054) 
01 041005 A I 
010410054) 
0104)0054) 
0104100541 
0104)0054) 
0104)00541 
0104100541 
0104)0054) 
0104)0054) 

01 041 005 41 
0104)0054) 
0104)0054) 
0104100541 
0104)0054) 
0l04«0054) 

010410054 J 
0104)0054) 
0104)00541 
0104tDQ$41 
0104)0054) 
0104)0054) 
0104)00-541 
0104)00541 
0104)0054) 
01041 Q 0541 
0104)0054) 



OCT1250000000000000. 

OCTl3?0000430000624, 

0CTO4300O01200O0O0O. 

OCT04300000l0000476» 

OcTOt30000160000463, 

OcT0440000000000000, 

OCT0430000040000000, 

OCT0650000000000000, 

OcTOSlOOOOOOOOOOOOO, 

OCT 04 3000002000077 3. 

OCT 0460000000000000, 

OCTillOOOOOOOOOOOOO, 

OCT04 300OO22O0O0O00, 

0CT0430000150000562. 

OCT1120000000000000» 

0-CTl 130000000000000. 

OCT0360000010000000, 

0cT0560000000000000i 

OCTIHOOOOOOOOOOOOO, 

OCT0540000000000540, 

OcTllSOOOOOOOOOOOOO. 

OcT0450000000000531p 

OCT0130000000140673, 

OCT0130000000060000, 

OCT0130000000040000, 

OCT0130000000360000, 

OCT0130000000040000, 

Oc TO 130000000040000, 

OCT0130000000240000, 

OCT0130000000040000, 

0cT0130OOOO0O0405l5, 

OC TO 130000000440000, 

0CT014000O00O040000, 

OCTO 130000000060000, 

OC TO 130000050060000, 

OCT0130000000060000, 

OCT0000000000060000, 

OCT0130000000040000, 

OCT0130000000060000, 

0CT0130000000060000, 

OCT0130000140060000, 

OCT0130000150060000, 

OCT0130000160060000, 

OCT0000000000040000, 

0CT0130000000560652, 

OCTO 130000000640000, 

0CTO4 30000240000000, 



"SNOjOO"* 
"20R000", 
"30UTO0"* 
•♦30WnOO"» 

"gPRocr"' 

''4READ0''* 
"4RtAL.0"» 

•*6REW1N", 
•'4SAVE0"» 
"SSPaCe"* 
'♦4STfP0"» 
''6STREA"* 
"dSWiTc*** 
"4THfN0'*» 
'•2T0000''* 
•'4TRUE0''* 

"SVALUf"* 

'♦5whtI-f'*» 

'*4WITH0'*t 
"SWRiTf"* 
•'3ABS00''» 
♦'6ARcTa''» 
•*3C0S00"» 
-6eNtIf"» 
"SeXPOO"* 
"2LN000'*, 
'♦4SlfiN0», 
•'3SINO0"* 
'•4SQRT0'*, 
"41 IMEO«, 
"SZIPOO'S 
'♦90UTPU"* 
"IBLOCK"* 
•^eiNPUT"* 
"ftSORTO"* 
'*4dUMP0''» 
"IX tO "» 

•*igo to**» 

"IALrOL"* 
"lALsOft 
"iaLrOU"* 
"SMERGF"* 
-dSTATU"* 

••smaxoo". 

••6AUxMf''» 



"DUREOOOO": 



"SEOOOOOO**, 
"DOOOOOOO", 



"MOOOOOOO**, 
"HOOOOOOO". 



"NOOOOOOO**, 
•♦ROOOOOOO'', 



0, 
'•T(W)0000'', 
•• CONTROL", 
"(WJOOOOO", 
0» OCTOOOOOO 

"THE lOOO", 

" souveR "» 

" WRITE '*f 
" READ ••, 
" SELECT ", 

OCTOOOOOO 
"SOOOOOOO". 

"MOOOOOOO") 



COMMENT 377; 

COMMENT 379| 

COMMENT 3811 

COMMENT 383> 

COMMENT 385> 

COMMfNT 388; 

COMMENT 390; 

COMMENT 392; 

COMMENT 3951 

COMMENT 398; 

COMMENT 400; 

COMMENT 402; 

COMMENT 404; 

COMMENT 407; 

COMMENT 410; 

COMMENT 412; 

COMMENT 414; 

COMMENT 416; 

COMMENT 418; 

COMMENT 420; 

COMMENT 422; 

COMMENT 424; 
OCT0000000000700000,S;426 
OCTOOOOOOOOOl 600000,1429; 
OCTOOOOOOOOO 1500000,14 33; 
OCT0000000001100000,«4 36 
OCT0000000002000000,X44 0; 
OCTOOOOOOOOO 1700000, 144 3; 
Oc T 000000000 1 000000, X446 
OCTOOOOOOOOOi 400000, X44 9; 
OCT 000000000 1300000,1452; 
OCTOOOOOOOOOl 200000, 1455 

COMMENT 455; 
OCTOOOOOOOOOO 100000, J! 461; 
C TO 000000000 2000 00,!I[ 4 65; 
OC T 0000000000 300000, X 4 69; 
0000400000,1 473 
OCT0000000000500000,X477; 
OCT 0000000000600000 •Z480; 
OCT0000000002 100000, 1484; 
OCT 0000000002200000, 14 88; 
OCT0000000002300000,|492; 
OCT0000000002400000,|4 96; 
0002700000,* 500 
OCT000000000300QOOO.J503 
OCT000000000310004 7,|507 

X510 



COMMENT THIS JS THE FlLU FOR STACKHEAOJ 
FILI STAcKhEAOC*] WITH 
320,359,313,458,385, 0, 337, 347, 383, 36 i , 379, 4 12, 



0, 0, 0,372, 



355,309, 0, 0,368, 0,446, 0, 0, 549, 3l 1 ,41 0, 0, 0,400, 0, 

0, 0, 0, 0,503»315, 0, 0,330, 0» 0, 0» 0» 0, 0,440, 

390,449,349, 0,414» 0, 0, 0,452^ 0» 0, 0» 0» 0# 0» 0, 

381*328, 0» 0, 0» 0, 0, 0, 0, 0» 0,436» 0»402»407, 0, 



09142000 
09143000 
09144000 
09145000 

09146000 
09147000 
09148000 
09149000 
09150000 
09151000 
09152000 
09153000 
09154000 
09155000 
09156000 
09157000 
09158000 
09159000 
09160000 
09161000 
09162000 
09163000 
09164000 
09165000 
09166000 
09167000 
09168.000 
09169000 
09170000 
09171000 
09172000 
09173000 
09174000 
09ir5000 
09176000 
09177000 
09178000 
09179000 
09180000 
09181000 
09182000 
09183000 
09184000 
09184100 
09184200 
09184300 
09185000 
107 IS 257 LONG 
09185100 
09186000 
09187000 
09188000 
09189000 
START OF SraMENI 
09190000 
09191000 
09 192000 
09193000 



0104100541 1 
01041005411 
Ql04IOOSfti 1 
01041005411 
01041005411 
01041005411 
01041005411 
01041005411 

01041005411 
01041005411 
0104I00S4I1 
0104 1 0054 II 
01041005411 

01041005411 
01041005414 
01041005411 
01041005411 
01041005411 
01041005411 
0104(005411 
01041005411 
01041005411 
01041005411 
01041005411 
01041005411 
01041005411 
01041005411 
0104*005411 
010410054*1 
0104100541], 
01041005411 
01 04 10054 11 
01041005411 
01041005411 
010410054*1 
01041005411 
01041005411 
01041005411 
01041 00S411 
01041005411 
01041005411 
0l04l0Oi4U 
01041005411 
01041005411 
01 04 1 0054X1 
01041005411 
01041005411 
NEXT SEG 104 
01041005411 
01041005411 
Q104IQ0S411 
01041005411 
01041005512 

* *»,#.*♦ *.*M. lO-fi 

O1O4IOO56IO 
01041005610 
04041-00561-0- 
01041005610 






0» 0,377» 
0* 0*A33« 
0» 0» 0» 



0» 0. 0»416»455»355» 0» 0»357. 
0ii418*398f 343' 0* 0*326*339* Ot 
0» 0»422» 0»392» 0» 0» 0»424# 



0»552»374. 0* 
Of Ot366i Oi 

o; 



FILL SuPERSTACKt*] WITH 
0* 0.313* 0*307* 0*337*347,383* 



0»379,412* 0» 0* 0*372* 



335.309, 0* 
0. 0. 0* 

390. 0.364. 
0*328, 0* 
0* 0.377. 
* 0* 0* 
0* 0* 0» 



0* 0* 0* 0» 

0* 0* 0* 0* 

0.414* 0. 0. 

0, 0. 0* 0* 

0.510* 0*416* 

0, 0*398* 0* 

0, 0* 0* Of 



0, 0, 0*420*410* 0* 0* 0* 0, 

0. 0. 0* 0* 0* 0* 0* 0* 0* 

0* 0* 0* 0* 0* 0* 0* 0. 0* 

0* 0* 0* 0* 0< 0*402* 0* 0* 

0*355* 0* 0*357» 0» 0» 0. 0. 

0* 0,326*339* 0* 0* 0*366* 0* 

0* 0* 0* 0*424* Oi 



XWF 
XWF 

XWF 
XWF 
XWF 
ZWF 

XWF 
XWF 



COMMENT THIS IS THE FILL FOR ThE SPECIAL CHARACTORSJ 

FILL sPECiALt*] With 

0CT1200000000200000, COMMENT #1 OCTOOOOOOOOOOlOOOOO, COMMENT ^t 



octooooooo 

OCT1340000 
0CT1350O0O 
0CT1220OO0 
0CT1270000 
OCT1340010 
OCT1360001 
OCTOOOOOOO 
0CT135OOO0 
OCTO62OOOO 
OcTOOOOOOO 
0CT1170000 
OCT134OOOI 
OCT123OOOO 
0*01 



000000000, 
450002763* 
200000000* 
000060000, 
000000000* 
450003571. 
000000000, 
000040000, 
600000000, 
000000000, 
000000000, 
000000000, 
050002561, 
000000000, 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 
COMMENT 



OCT1160000000120000, 

>f OCT1340000250002662, 

♦J OCTOOOOOOOOOOOOOOOO, 

,} OCT1210000000000000, 

&; OCT0420000000000000, 

<J OCT1260000000000000, 

x; OCTOOOOOOOOOOOOOOOO, 

S» OCT1370000000000000, 

-; OCT1240000000160000. 

i OCT1340010250003470, 

OCT1360002000000000, 

,; OCT0000000000020000, 

#J OCT13400U050002460, 

]; OCT0000000000140000, 



COMMENT 1; 
COMMENT >; 



• * 



COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 
COMMENT 
•COMMENT 
COMMENT 
COMMENT 
COMMENT 




U 

♦ I 

♦ J 
)) 

/> 
%t 

Mt 
•♦J 



COMMENT THIS 15 THE FILL FOR ThE REALLY 
FILL INfO[2,*] WITh OcT00300001 20000000 . 



spfcial characters for DATACOMj 
••2LB000". % THESE ENTRIES ARE 



OCTOO3OOOOI3OOOO 

0CT0030000140000 

0CT0030000150000 

OCTOO30OOOI6OOOO 

OCT0030OOO17OO00 

OCT0030000200000 

0CT00300O02l00OO 

OCTOO3OOO022OOOO 

OCT0030000230000 

0CT0030000240000 

0CT0030000250000 

OCT0030000260000 

OCT0030000270000 

OCTOO3OO0O3OOOO 

0cT003000O3l000O 

0CT0130000000740000, "3MiN00'** 

OCT0130000001040000, "SdELAY"* 

OCT0000000000060000, •♦|SUPER''» " 

OCT0000000000060000, "JOYNAM". " 



000, 

000, 

000, 

000, 

000, 

000, 

000, 

000, 

000# 

000* 

000» 

000* 

000* 

0000* 

OOOf 



MOVE 
IC DI 



••2RB0O0'' 
"SfiTROO" 
"SGEQOO" 
"3EQL00" 
"SNEQOO" 
•♦SLEOOO" 
«3LSS00- 
"5TIMES" 
"SlNPUT" 
••21OOOO" 
-6SERIA" 
"eRANDO" 
"duPDAT** 
"dOUTPU 
"7CANTU'' 
Oc 
OC 
R •♦, OC 
aLs"* OC 



% DESIGNED TO LOOK 

% LIKE DEFINE 

X DECLARATIONS AT 

% BLOCK LEVEL 6, 



"LOOOOOOO'** 

"M0000000'», 

"EOOOOOOO"* 
•',''T0000000'', 
i^SEOOOOOO"* 
T0000000003200000,X549 
T0000000003300000,x552 
TOO0000OOO340000O»X555 
T0000000004000000,X559 



09194000 
09195000 
09196000 

108 IS 125 LONG 

09196100 
09196200 
START OF SEGMENT 
09196300 
09196400 
09196500 
09196600 
09196700 
09196800 
09196900 

109 IS 125 LONG 

09197000 
09196000 
09199000 
START OF SEGMENT 
09200000 
09201000 
09202000 
09203000 
09204000 
09205000 
09206000 
09207000 
09208000 
09209000 
09210000 
09211000 
09212000 
09213000 
09214000 

110 IS 32 LONG 

09214100 
09214105 
START OF SEGMENT 
09214110 
09214115 
09214120 
09214125 
09214130 
09214135 
09214140 
09214145 
09214150 
09214155 
09214160 
09214165 
09214170 
09214180 
09214190 
09214200 
09214210 
09214220 
09214230 



0i04«0056l0 
0104(005610 
01041005610 

NEXT SEG 104 
01041005610 
0104100561 1 
«««4i**4>*« 109 
0l04!0Q58f0 
0l04t0056t0 
010410056*0 
01041005610 
Ol04»0056t0 
0104(005610 
01041005610 

NEXT SEG 104 
OIO4IOO58IO 
Ol04iOOS6iO 
0l04t0056ti 

01041005913 
01041005913 
010410059(3 
010410059(3 
010410059(3 
01041005913 
0104(0059(3 
0104(0059*3 
0104(005913 
0104(005913 
0104(0059(3 
0104(005913 
0104(0059(3 
0104(0059(3 
0104(005913 
NEXT SEG 10* 
0104(0059(3 
0104(0059(3 

0104(0061(3 
0104(006113 
010410061(3 
0104(0061*3 
0104(0061*3 
010410061*3 
010410061*3 
010410061(3 
0104(0.061(3 
0104(0061(3 
0104(0061(3 
010410061(3 
0104(0061(3 
01041006113 
01041006113 
0104(0061*3 
0104(0061(3 
01 0.4 (0061 13 
0104(0061(3 



OCT0130000000060000» 

Oct 00000000000ft 0000. 
Oct 0000000000040000. 

OCT0130000001140000, 
OCT0130000001240000, 
OCT0130000001340000, 
OCTOl 3000000144 0000, 
OCT0130000001540000* 
OCT0130000001640000. 
OCT0130000001740000. 
OCT0130000002040000. 
0CT0130000002140000. 
OcTOl30000002240000f 
OCT0130000002360000. 
OCT0130000002460000. 
OCT0130000002560000. 
OCT0130000002640000, 
OC TO 130000002740000, 
OCT0130000003060000, 
OCT0130000003160000, 
OCT0130000000040000, 
OCT0130000000040000, 
0CT0130000000060000. 
0CT0130000000040000. 
OCT0130000000040000, 
0CT0130000000040000, 
Oc TO 130000000040000, 
Oc TO 13000000004 0000. 
0CTO1300O0O00040O00, 
OCTO 13000000004 0000. 
OCT0130000000040000, 
0CT0030000260000000, 
OCT0030000270000000, 
OC TOO 30000240000000 » 
0CT20000000O0004 050. 
0CT04 30000250000000. 

0. 



"IFILE " 
"SnCPWR" 

"sdcmth- 
"SosoRt** 

•'ftCEXPO" 
"SCLNOO" 
"4CSfN0*' 
•♦4CC050'' 
"SCSqRT" 
•♦4DEXP0'' 
''3DIN00'' 
''4DSIN0'' 
"400050** 
•♦70ARCT'' 
"601081" 

"8DARCT" 
"4DM0D0" 

•'4CABS0'' 
"7ARCTA'' 
"eoROUN" 
"SLOfilO" 

"ScOtan" 
"eARcsr 
"SARrOs" 

"4SINH0" 
"4C0SH0'' 
♦•4TANH0'* 
"SERrOO" 
•♦SGAMMa" 
"SL-NflAM" 
"3TAN00" 
"4FAST0" 
"4SL0W0'' 
•'7PR0TE'' 
COMMENT PO 

"5Flrl-D" 
">SORT " 
COMMfNt La 



"ATTRBUTS"* 



"ANOOOOOO". 
••OOOOOOOO". 
•♦AN200000''« 



••N2000000'', 
"DOOOOOOO". 



"NOOOOOOO**! 



OCT0000000015000000 
OCT0000000005600000 
OCT0000000005500000 
OCT0000000012300000 
OCTOOOOOOOOlOOOOOOO 
OCT0000000010200000 
OCT0000000010600000 
OCTOOOOOOOOllOOOOOO 
0CT0000000012400000 
OCT0000000007700000 
OCTOOOOOOOOIOIQOOOO 
OCT0000000010500000 
OCT0000000010700000 
OCT0000000011300000 
0CT0000000010400000 
OCT0000000011500000 
OCT0000000006500000 
OCT0000000005300000 
OCT0000000011400000 
0CT0OOOOOQ00610Q0O0 
0CTOO0OOOOO103OOOOO 
0CTO000OO00112O00O0 
0CTOOOOOO00U6OOOOO 
0CTO00OOOO0117O0000 
OCT0000000012000000 
QCT0000000012100000 
OCT0000000012200000 
OCT0000000012500000 
OCTOOOOOOOQ12600000 
OCT0000000012700000 
0CT00O00OO011100007 



"CTOOOOOO". 
WERS Of TEN ; 

"temporary. "yooooooo". 
stseouenceiLastseqrow ; 



% SORTA 



.X563 
,X567 
,X570 
,X573 
.Jt576 
t%579 
.X582 
»X5B5 
.X588 
tX591 

• ZS94 
.«597 
»X600 
iX603 
.1607 
.X611 

• Z615 
.X6l8 
.X621 

• Z625 
.X629 
.X632 
.X635 
.X639 
iX642 
.X645 
.K648 
,l!65l 

• X654 
tX657 
*X660 

X663 
X665 
X667 
X670 
X671 
X673 
X674 



COMMENT NOW LINK THESE ENtRIfS INTO STACKHFADI 
FOR NeXTINfO*512 STeP 2 UNTIL 534.537 STEP 3 UNTIL 546 

.567STEP 3UNTIL 603,607sTeP 4uNTIL 615. 6l8, 621 STeP «UNTiL 629,632.635, 
639 STEP 3 UNTIL 660.663 STEP 2 UNTiL 667, 67l xii7. 

DO PUT(TAKF(NEXTlNF0)4STACKHEAPtGT2tTAKE(NEXTlNF0+l)M0D 125] t 35l 351 l3] . 
STACKfF*2) » *TfMPORARY STORAGE* 

LASTiNF0*-STACKHfAD[GT2]*NEXTINF0); 
NeKTiNfO * LASTINFO ♦ LASTSEQROW x 256 + LaSTSeQUeNCE + U 
BUiL0LTNE.r45tn*TRUE t 
PUTNBUmP(O); 

FILL MACROt*] WiTh 

0CT0131. COMMENT SfS A 00 I 



111 IS 



092 
09? 
092 
092 
092 
092 
09? 
09? 
09? 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 

092 
092 
092 
092 
092 
092 
092 

166 
092 
092 
09? 
09? 
092 

092 
092 
09? 
09? 
092 
092 



OCTOiUf 
OCTOOOO, 
0CT0140. 
OCT0130* 
0CT0117. 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



SFD A 
SYNTAX 
INC A 
SRS A 
SRD A 



Ql 
ERR0R02 

03 
04 
05 



START OF SEGMENT 



092 
09? 
092 



4240 
4250 
4255 
4260 
4270 
4295 
4300 
4305 
4310 
4315 
4320 
4325 
4330 
4340 
4345 
4350 
4355 
4360 
4365 
4370 
4375 
4380 
4385 
4390 
4395 
4400 
4405 
4410 
4415 
4420 
4425 
4426 
4427 
4428 
4430 
4432 
4435 
4440 P 
LONG, 



4500 
4510 
4515 
4516 
4520 

4530 
4980 
4985 
4990 
5000 
6000 



010410061 
0104100^1 
010410061 
010410061 

01 04 1 ao 6 1 

010410061 
010410061 
010410061 
010410061 
010410061 
010410061 
010410061 
010410061 
0104>QQ61 
010410061 
010410061 
0104I0D61 
010410061 
010410061 
1 04 1 006 1 
010410061 
010410061 
01 041 04)61 
0104f0061 
010410061 
010410061 
010410061 
010410061 
010410061 
010410061 
010410061 
010A4Q041 
010410061 
010410061 
01041 0061 
010410061 
010410061 
01(1410061 
NEXT SEG 
010410061 
0lQ4lQ06l 
010410066 
010410066 
010410093. 



7000 
8000 
9000 



09.^2 0.050 
09221000 



T 010410100 

T 0lfl4-lill0M0 

T 010410108 

T 0104I0U0 

T 010440111 

T 010410111 

T 01041041^ 

T 0l04l0ll3 

T 0l04l0li3 

T 01 0.4 1 am 

T 010410113 



3 
3 

3 
3 
3 
3 
3 
3 
3 
3 
,3.., 

3 

3 

3 

3 

3 

3 

3 

3 

1 

04 

3 

3 



I 

2 



1 
1 

2 
3 

12 

2 

2 

2 

Z 

2 



oc 
oc 

Oc 

oc 
oc 
oc 
oc 
oc 
oc 

Oc 

oc 
oc 

Oc 
0cT00<«l2 

oc 
Oc 
oc 

OC 

oc 

OC 
OC 
OC 
OC 

Oc 
oc 

Oc 

Oc 
oc 
oc 
Oc 



TOOOOf 

TOOOOf 

T00310U3. 

T00l60l(>3» 

T00470U3» 

T00«00l43f 

T00300l43» 

T00170143p 

TOOOO* 

TOOOO. 

T0153» 

T010«» 

TOlSOf 

01430042, 

T0122» 

T0l06» 

TOOOO. 

TOOOO, 

T0056, 

TOOOO. 

TOOOO, 

TOOOO, 

TOOOO. 

T0007, 

TOOOO, 

TOOOO, 

T0115, 

T0U4, 

T0154, 

T0141I 



COMMENT 
COMMENT 
COMMENT 
COMMENT 

comme 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



SYNTAX 
SYNTAX 
CRF A» 
CRF At 
NT CRr 
CRF A* 
CRF A» 
CRF A. 
SYNTAX 
SYNTAX 
RSA A 
ROA 
RCA 
SEC 
SES 
SED 
SYNTAX 
SYNTAX 
TSA 
SYNTAX 
SYNTAX 
SYNTAX 
SYNTAX 
TDA 
SYNTAX 
SYNTAX 
SSA A 
SDA A 
SCA A 
STC A 



A 
A 

0. 
A 

A 



ERR0R06 
ERR0R07 
SFS 008 
SFD 009 
A* JFW 10 
INC Oil 
SRS 012 
SRD 013 
ERR0R14 
ERR0R15 

16 

17 

18 
CRF A* SEC 19 

20 

21 
ERR0R22 
ERR0R23 

24 
ERR0R25 
ERR0R26 
ERR0R27 
ERR0R26 

29 
ERR0R30 
ERR0R31 

32 

33 

34 

35 



FILL TrXTrO,*] WITH 0,0,0.0.0,0,0.0,0,0, 



••3# 
•♦># 

«1# 

"a* 

"O* 

"1* 

-2# 
"?# 
••0# 



I 



NEXTTeXt»26 > 

DO UNTIL STEPI « BEGINVI 
BUlLDLfNE»t45M]*FAL.SEI 

COMMrNT THE FOLLOWING IS THE FIRST CODE EXECUTED IN ANY PROGRAM, 
THE OUTER BLOCK(NUMBeR 1) CONSISTS OF THE FOLLOWING cODEl 



09222000 
09223000 
09224000 
09225000 
09226000 
09227000 
09228000 
09229000 
09230000 
09231000 
09232000 
09233000 
09234000 
09235000 
09236000 
09237000 
09238000 
09239000 
09240000 
092410QQ 
09242000 
09243000 
09244000 
092«5000 
09246000 
09247000 
09248000 
09249000 
092SQQ00 
09251000 

112 IS 36 IONS 

09251 01 Q 
START or SEGMENT 
09251020 
09251030 
09251040 
09251050 
09251060 
09251070 
09251080 
09251090 
09251100 
09251101 

09251108 
09251103 
09251104 
09251105 
0925U06 
09251107 
0925120JO 

113 IS 26 LONG 

09251300 
09252004 
09252050 
09252100 
09253000 
09254000 



01041011312 
01041011312 
01041011312 
01041011312 
01041011312 
01041011312 
01041011312 
0104101134 2 
01041011312 
01041011312 
0104i0ll34 2 
0104I0U3I2 
01041011312 
0104 1 01131 2 
01041011312 
Ol04fOli3l2 
QlQA.Ii)H3J2 
Ol04IOli3l2 
01041011312 
01041011312 
01041011312 

010410113)2 
01Q4IQ113I2 
01O4I0U3I2 
01041011312 
OlO4t0ll3t2 
01041011 312 
0lO4t0li3l2 
01041011312 
01041011312 
NEXT SEG 104 
01041011312 
nt0»minn$** 1J3 

01041011512 
01041011512 
01041011512 
01041011512 
01041 01 1 5 12 
01041011512 
01041011512 
01041011512 
01041011512 
01041011512 
Q104IQ11SI2 
01041011512 
01041011512 
01041011512 
01041011512 
01041011512 
01Q41011SJ2 
NEXT SEG 104 
01041011512 
01044Xill5-U 
01041011713 
01041011912 
01(1410119X2- 
01041011912 



m 



LITC 



MKS 



OPDC XXXX--- 



EMiTLfODUM 

GTi«-PROGDFS 

GTi i« GETS 

INSERTCOP 

ERRORTOG*T 

COMMENT This CO 

Thus avoidin 

The END, CARD 



THIS 
AND I 
CHARA 
ITS P 

THE S 
THIS 
IN SU 

C-REL 

IN Th 

THIS 

THAT 

UEVEU 

CEI-L. 

assum 

IT IS 

COMPL 

PROGR 

ITOcMkS)! 

CBtDRf3,0.0) 

PACEfTRUE»»5 

RUeJ BLOCKfF 
DE WILL PUT 
G E.O.F. NO 

Off an inpu 



PUTS A 
S ALSO 
CTER MO 

RimaRy 

TACK AF 

Sets th 

BPROGRA 
ATlVE A 
E PROGR 
ACCESSE 
GETS TH 

, xxxx 

AT THE 
ED TO C 
CHANGE 
ETE TO 
AM DESC 

)l * SEG.*? DESCR. 

ALSE)I 

AN EXTRA CARD ON OCROlMG TAPE 
LABEL CONDITION WHEN PATCHING 
T TAPe» 



BOTTOM ON THE STACK 

USED AS A ONE SYLLABLE 

DE PROGRAM TO CAUSE aN EXIT. 

FUNTION IS TO CUT BAcK 

TER A COMMUNICATE OPfRATOR, 

E PROGRAM UP FOR RUNNING 

M LEVEL. THIS IS TO ALLOW 

DDRESSING FOR CONSTANTS 

AM STREAM 

S A PROGRAM DESCRIPTOR 

E PROGRAM INTO SUBPROGRAM 

IS THE FIRST AVAILABLE PRT 

START OF COMPILATION XXXX IS 

ONTAIN A LABEL DESCRIPTOR 

D BEFORE COMPILATION IS 

LOOK LIKE A WORD MODF 

RIPTORI 



«107' 



IF NEWTOG THEN 

BFGIN FILL LIBARRAY[*3 WITH "END> END .^ ^^ 

"D ON 0Cf<''»'»DING TAP^j^E •• » " 

w M,M99999999f»j 

WRITE(NEWTAPE»10»LIBARRAYC*1) 

FND) 



"f^LAST CAR"! 



START 



114 



COMMENT THE FOLLOWING CODF SEARCHES THROUGH 
WHICH INTRINSICS HAVE BEEN USED, IF A 
USED THEN A PRT ADDRESS WILL HAVE BE 
THIS INDICATES THAT A DESCRIPTOR MUS 
|N THE PRT.POWeRSOFTEN iS ENTeReD IN 
PRT AS AN ABSENT DATA DEScRI PTOR, I T 
INFO BECAUSE IT IS MINUS, THE FlRST 
ENTRIES LOOKS LIKE THE REST OF INFO 
FIElO IS BROKEN InTq 2 PARTS, t33!2] 
INDEX OF CURRENT WORD TO LINK TO 
THE INCR FIELD IS USED BY IMPFUn, TH 
PORTION INDICATES AN INDEX THAT ALLO 
DRUM ADDRESSES TO ThE InTRINSiCSI 



INFO TO DETE 
N INTRINSIC 
EN ASSIGNED 
T BE BUILT F 

The OBJECT 
MAY BE RECOG 
WORD IN EACH 
EXCEPT THAT 

IS USED TO 
NEXT ENTRY, T 
E ADDITIONAL 
WS THE MCP T 



RHINE 

HAS BEEN 

AND 

OR PLACING 

PROrRAM 

NIZED IN 

OF THESE 
THE INCR 
ADD TO THE 

he rest of 
Info 

ASSIGN 



Lli 



GTI • GT3 * STARTINTRSCI 

GTl * gTI + (GT2 ♦ INF0tGTl,LlNKR.GTl.LINKC]),[33l2]l 



09255000 1 


r 010410] 


1912 




09256000 1 


r 0104I0J 


1191^ 




09257000 1 


r 0104101 


1912 




09258000 1 


r oi04tO] 


1912 




09259000 1 


r 010410] 


11912 




09260000 1 


r oiOAJOj 


ll9«2 




09261000 1 


r 0104101 


1912 




09262000 1 


r 010410] 


11912 




09263000 1 


r 0104101 


11912 




09264000 1 


r 010410] 


1912 




09265000 1 


' 010410] 


1912 




09266000 1 


r 010410] 


1912 





09267000 1 


r 010410] 


11912 




09268000 1 


r 010410] 


11912 




09269000 1 


r 010410] 


I9i2 


,.,. ™ 


09270000 1 


r 0104J0] 


1912 




09271000 1 


r 010410] 


1912 




09272000 1 


r 010410] 


1912 




09273000 1 


r 010410] 


2011 




09274000 1 


r 010410] 


L22II 




09274100 ( 


: 010410] 


2410 




09275000 1 


r 0i04>0] 


2610 




09275100 1 


' 010410] 


2713 




09275200 1 


' 010410] 


I2ri3 





09275250 1 


r 010410] 


2713 




09275300 1 


r OiOftiO] 


2713 




09275350 1 


r 0i04t0] 


26 11 




OF SEGMENT * 


I«i|i«4i*4t4i«4 


' 114 




09275ft00 1 


r 0iO4«O] 


L30I1 




09275450 1 


^ 1 0410: 


130U 




S 10 LONGi 


NEXT SE6 104 




09275500 1 


r 010410] 


3011 




09275550 1 


r 010410] 


1331 3 




09275600 1 


r 010410] 


13512 




09275650 1 


' 0l04»0] 


3512 




09275700 1 


r 010410] 


13512 





09275750 1 


r 010410] 


3512 




09275800 1 


r 010410] 


13512 




09275850 1 


r 0104IQ] 


11512 




09275900 1 


r 010410] 


135J2 




09275950 1 


r 010410] 


13512 




09276000 1 


r 040410] 


13512 




09277000 1 


r 010410] 


3512 




09278000 1 


r 010410] 


13512 




09279000 1 


r 010410] 


1.35.12 


„ 


09280000 1 


r 010410] 


3512 




09281000 1 


r 010410] 


[3512 




09282000 1 


r 010410] 


L3.S1.2 




09283000 1 


r 010410] 


13512 




09284000 1 


r 01041O] 


3512 




09285000 1 


r 010410] 


35iZ 





09286000 1 


r 010410] 


135»2 




09287000 1 


r 010410] 


3512 




09288X100 1 


r 01044X1] 


13512 




09289000 1 


r 010410] 


13512 




09290000 1 


r 01041O] 


13512 




092.91flOD 1 


r 0.10410] 


115X2 


„. 


09292000 1 


r 010410] 


136,10 





IF GT2 > THfN % 
BFGIN IF GT2. ADORE 
BEGIN SGNO • 
GT2 * 

X 

PDPRTf 
1 & I 

s s 

PDINX 
IF PRT 
BEGIN 



END 
ENDJ 

GT3 ♦ gTi 
GO TO Hi 
ENDl 

L«-L-1J COMMEN 

EMITL(5)IEMIT0(C0M 

ENlLtO,n * 1023 4 9999 

SFGMENT((L+3) DIV 

COMMENT IF THE POWERS'-OF-TE 

AT THIS TIME AS A T 

IF GTl«.fiT2.AnDRESS|t 

BEGIN Sr,AVL*'(SGNO«.S 

GT24.PR0Gr)ESCB 

M0VE(69,TeN»E 

BUILDLINE •• B 

SEGMENTc-69, 

BUILDLINE * B 
ENDJ 
BEGIN ARRAY PRTr J 7 .0 H 27 ] » 
PRT(l04ft) m •SEGMENT DESCRtPTOR* 



NOT POWERS OF TEN TABLE 
SS # THEN % IT MAS USED 
SfiAVL' SgAVL ♦ SGAVL ♦ U 

PR0GDESCBLDRCINF0[GTl,LlNKR.GTl.LINKc3.tlll] 

2 * 1* 0» 6T2, ADDRESS); 
PD|NX,[37t5]»PDlNX,rfl2«6]3 * 
NF0tGTl.LINKR»GTl,LlNKC3[13Jl8ll5] 
GNO[?8»38ll0] & lt2M7lin 
«• POiNX + It 

OG Then % write out intrinsics used; 

GT3 * GT3 * i; 

BLaNKET(H,LIN)| % BLANK BUFFER, 
WRtINTRSC(SGNO, lNF0tGT3.LlNKR,GT3,LTNKCl. 

B2D(GT2, [38110]), LlN>i 
IF NOHEADING THEN DATIMEI WRITeLINEI 



* GTj ♦ INF0tGTl,LlNKR,GTl.LINKC].t33»l5] ♦ U 



T WIPES OUT EXTRANEOUS BFW EMITTED BY BLOCK) 

)J 

9999tl0?20»28]; ENlLPTR •• IJ 

4.i»0); 

N TABLE HAS BEEN USED* IT IS WRITTEN OUT 

YPf 2 SEGMENTI 

thfn 

GAVL) + U 

LDRC2fO,GT2. ADDRESS)? 

DOCCOfO])! 

OOlE AN C2xREALC BUILDLINE))* 

SGNOfO)) 

UlL0LlNE.r46«U » 

SEGDICTC0J7,0«127]; 



09293000 
09294000 
09295000 
09296000 
09296100 
09?97000 
09298000 
09298100 
09299000 
09300000 
09300100 
09300150 
09300200 
09301000 
09302000 
09303000 
09304000 
09305000 
09305100 
09306000 
09306100 
09307000 
09307100 
09308000 
09309000 
09310000 
09311000 
09312000 
093130QO 
09314000 
09314100 
09315000 
09315100 
09316000 
09317000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



Ol04f 
01041 
01041 
0l04t 
OlOAt 
01041 
01041 
0l04i 
01041 
01041 
01041 
01041 
01041 
01041 
01041 
01041 
01041 
Ol04t 
01041 
01041 
01041 
01041 
1 04 1 
01041 
01041 
01041 
01041 
0l04t 
01041 
0l04t 
01041 
01Q4I 
01041 
0l04t 
01041 



014112 
014210 
014313 
014610 
01 4811 
0l52«0 
015410 
015713 
016010 
016112 
016210 
016313 
016512 
016810 
017011 
018210 
0l82t0 
018210 

018611 
018712 

018712 
018811 
019010 
019313 
019610 
019610 
019610 
019713 
020010 
020210 
020512 
P206I0 
020713 
020912 
020912 



STACKeF*3) 
STACKfF*4) 

STACKfF*5) 
STACK(F*6) 
STACKfF+7) 



PRT 
SEGDICT 



PRTADR 
StGMNT 
LINK 

COMMENT 



INTEGER PRTADR»SE6MNT»LiNk; 



START OF Segment **•*»»♦♦*♦ us 



09318000 T 0115J0005I3 



THE 



PRT AND SEGMENT DICTIONARY ARE NOW BUILTJ 



09333000 
09334000 
09335000 
09316000 
09337000 
09338000 
09339QQ0 
09340000 
09341000 
09342000 
09343000 
09344000 
09345000 
09346000 



T 01151000513 

T 0115J0005I3 

T 01151000513 

t 0115 1 00051 3 

T 01151000513 

T 01151000513 

T QUSlOOOSia 

T 01151000513 

T 01151000513 

T Oi.l5iO0i)JlJ 3 

T 01151000513 

T 0.1151000513 

T QlllfOOOSri. 

T 01151000513 



FOR 

IF 

BFGIN PRF 

UIN 

MDE 



SFG 

END ELSE 

BEGIN SEG 

SEG 

SEG 



I^-O STrP I UNTIL PdINX"-! 

(GTl«-P0PRT[i,C37t5]#I.C 

ADR*GTi,t8nO]» SEGMNT«.G 

KtSEGDlCTCSEGMNT,[36l5]# 

SC(gT1,[i8I10]&SEGMNTC18 

&(IF LlNK«0 THEN SEGMN 

C6t36il23&GTU4l4l23tS 

PRTtpRTADR OIV 128, PRT 

DlCTtSfGMNT.tSdlSj.SEGMN 

MNT*GT1,[28»10]| 
0lCTtSFGMNT,[36»53,SEGMN 
DlCTtSEGMNT.[36»5],SEGMN 
& 6T1[33«13j 15] & GTltA 



CO 
CO 
GT 
CO 
GT 



FN 
MMENT 
MMENT 
11*0; 
MMENT 
11 ♦GT 



Dl 
SET UP 
CODE T 



CO 
GT 

CO 
GT 
CO 
GT 
CO 
GTli«.GT 
CO 
GT 
COMMENT AD 
GT 
CO 

CO 

COMMENT WRf 

GTUMIN 

MO 

ZF 

in 

10 
COMMENT WRi 

ID 
IF 

ID 
COMMENT WRI 

ID 

ID 
COMMENT MAR 

ID 
COMMENT PAS 

ID 



MMeNT 
I1»GT 

MMENT 
lUGT 
MMENT 
I1*GT 

MMENT 

11*10 

MMFNT 
I1«-GT 
D IN 

IH«G 

MMENT 

IF 

MMENT 
TE OU 
(dOL 
VE{GT 
ROUT( 

ARRAY 
ARRAY 
TE OU 
ARRAY 
BUIL 



ADD 
IU{ 



ADD 
II* 



IN 

IF 

T 

E 

IN 

(IF 

T 

ADD IN 
II* 51? 

ADD IN 
U ♦ { 

ADD IN 
BUFFSIZ 

ADD SE 

II* SGA 

CORE ES 

TIUCOR 

CHECK 

GT|1 ^ 

AT ThI 
T FILE 
OC-lDl.0 
ItlDARR 
IDARRAY 
C4] IbMO 
[5]«.6T1 
T SE6ME 
tO]««MO 
DLINE T 



ARRAYtn*SGA 
TE OUT PRTI 
ARRAY[2] »»M0 
ARRAY[3]*PRT 
K FIRST EXEC 
ARRAY[6]*1I 
S NUMBER OF 
ARRAYt7] «■ ( 



newinx J 

ADD IN 

arrays; 
noofarRa 

HEN 2000 
LSE 5000) 

Segment 

NEWiNX < 
HEN lOoO 

STACK AN 

+ PRTtMA 

JRTI 
(FILENO * 

I/O BUFF 
El COMMEN 
GMENT Die 
VL-ll 

timate fo 
esz» 

IF TOTAL 
32000 Th 
S POINT 
PARAMETER 
CTEMP):t3 
AY[0],eOO 
t0]»0.30) 

veanoblOc 

; 

nt dictio 

veandbloc 

HEN IOaRR 
(L 

vl; 



I TOTAL SEGMENT 
CORE STORAGE RE 



YS »0 THEN EL 
ELSE IF NOOFAR 
i 

SIZE reouiRemen 

1000 THEN NEWI 
ELSE NEWiNX/2) 

D PRTJ 

X) 

i)x 5); 

er requirements 
t i/o size cal. 

T.SlZEJ 



DO 

4216) j),[38«io]80 Then 

Tl,[28llO]J 

SE6MNT,tftll7]],t8llOlJ 

133115] 

T*2048 ELSE LINK) 

[Iia5t3]« 

ADR MOD 128])) 
T,[ftll7'l],[8ll0]*PRTA0RJ 



T,[4ll7]]* 

T,t4U73]4GTl[23l39ll0] 
13113 I GTltlUt?]! 

SIZEl NEWINX*AKKUM| 
OUIREMENTSI 



SE IF NOOFARRAYS <4 

RAYS < 8 Then 3500 

TSI 

NX ELSE IF NEWINX <2000 



I 



IN P.IODECJ 



R SORTJ 

IS MORE THAN 8 
EN qTiI* 32000; 
GTII HAS THE NE 

BLOCK! 
3»15]*1' I28);il 
C[0,OJ)I 
t 
KCKDOC^GTliO); 

nahyi 

KCSEGDiCTfSGAVL 
AY[03«'lDARRAYtO 
DICT.S6AVu»?3tl 



moos; 

EDED* TOTAL CORE REQD; 
AHA 



VEANDBl0CK(PRT»PRT1MAX,3 
iMAXj 

uTABLE Segment; 

FILESI 
FILEN0-l)&GTlltl8l27il5] 



*1)1 

3&M0VEANDBL0CK 
8«33«153I 



); 



I!106" 
X106- 

xioe- 

X106- 



09347000 
09348000 
09349000 
09350000 
09 351000 
09352000 
09353000 
09.154000 
09354100 
09355000 
09 356000 
09357000 
09358000 
09359000 
09360000 
09361000 
0936i005 
09361010 
09361020 
09361030 
09361040 
09361050 
093M060 
09361070 
09361080 
09361100 
09361110 
09361120 
09361130 
09361140 
09361150 
09361160 
09361170 
09361180 
0936Uat 
0936U82 
09361190 
09361200 
09361210 
09393000 
09394000 
09395000 
09395500 
09396000 
09397000 
09398000 
09399006 
09399100 
09399150 
094^0040 
09A01000 
09402000 
0940*0^0 
09404000 
09405000 

094asiao 

09405200 



0115I0005I3 
01151000513 
01151000913 
01151001313 
OllSlOO-lAU 
01151001913 
01151002112 
01151002313 
01151002611 
01151002913 
0U5t003il3 
011SI0033I3 
0115I0037I2 
01 15 1 0039 1 3 
01151004211 
01151004610 
01151004614 
01151004713 
01151004713 
01151004810 
01151004810 
01151005011 
01151005318 
0115I0055»3 
0ll5f0055«3 
01 15 » 005810 
0115I0061»2 
0115I0061»2 
01151006312 
0115*006312 
01151006512 
01151004512 
01151006611 
0115«0066f I 
01X5.1 006810 
01151006810 
01151006913 

01 1.5 1 00.^9 ra 

01151007113 

01151007113 

Oll.5i.0jQ7l.U. 

01151007610 

0u5»0078li 

oiisioflaoii) 

01151008312 
01151008411 

0ll-5i0.a8iH4 
01151008713 
01151008912 
01151-00924-^ 
01151009312 
01151009312 
,011^.I,0«*4*« 
01151009713 
0115J0097I3 
041510*9814 
01151009811 



PRT(10A5) 
PRT(1046) 



« *SEGMENT 
« PAN 



COMMENT WRITE DISK SEGMENT ZERO; 

GTHaOAl DAIwOl MOVE( 30» I ARRA Y[03 ,PRTr 0, J ) I 
r,T2l«M0VEANDB'-0CK(PRT.30*6)> OAlnQTll 
IF CODEFILE THE^ WRITE(LINe); 

IF SAVETIME I AND ERRORCOuNt b OTHEN 
LOCK(CODE»SAVE)^ 
CLOSEfCARD»REUEASE)l X RELEASE PRIMARY INPUT FILE, 
CLOSE(TAPE»RELEASE)l t REUEASE SECONDARY INPUT FILE, 
UOCKfNEWTAPE»*>* % CLOSE WilH CRUNCH, 
IF LISTER OR NOT NOHfAOING ThEN 
BEGIN FORMAT PANCNUmBeR Of ERRORS DETECTED m 
DESCRIPTOR* 



XIO 

XIO 



6- 
6- 

6- 



Xll 
Xtl 
Xll 



9« 
9« 
9- 



.U.", 



COMPfbATH 



09406000 T 01151010113 

09407000 P 0U3t0l01l3 

09407010 C 0115»0105»3 

09407020 C 01151010912 

09407050 T 0115101141-0 

09407100 T 01151011610 

09407200 C 01151011810 

09407500 C 01151012010 

09407400 C 01151012113 

09408000 T 0115»0123I3 

09409000 T 01151012411 



START 
START 



OF SEGMENT 
OF SEGMENT 



Hftk^^imm**** 116 

^:tin#*>ff*'¥<¥* 117 



»"iON Time 

"PRT SIZE « 
WORDS* DISK 



SIZE = 



SECONDS, "^XJS.JA*/ 
TOTAL SEGMENT SIZE ■•'.U. 
'fUf" SEGSJ NO, PGM, SE6S 



I4/"EST1MATE0 CqRE STqRAGE REQUIRED a^tU*" WORDS.", 
/"ESTIMATED AUXILIARY MEMORY REQUIRED "•'»I6»" WORDS,". 
/"NUMBER OF CARO-IMAGES PROCESSED « •♦»F7,0)I 

FORMAT SERRCTHERE WERE ".VSf" SEQUENCE ERRORS")? 

PRT{1047) » SERR 

M0VECHARACTERSU»lNF0[LASTSEQR0W,LASTSEQUENCE-n»0»GTl.4) 
M0VECHARACTERS(4MNF0[LASTSEQR0W,LASTSEQUENCE-n#4»GT2.4) 

IF checktog Then 

WRfTECLlNErOBL] »SfRR,IF NuMSeQUENCEERRORS * 
PRT(1050) M *LIST, LABEL* OR SEGMENT DESCRIPTOR* 

Then "A" else ♦♦i"i if numsequenceerrors * o 
Then " no" elsf. numsequenceeRrors)* 

WRlTE(L|NE[DBL],PAN,FRR0RC0UNT,CTlMECn-TlME1 )/60,gT1,GT2 
or segment DESCRIPTOR* 

PRTIMAX,AKKUM,IF DASChUNK ThEN DA ELSE C CDA + CHUNK-1 ) 
01 V ChUNK)xCHUNk»SgAVL'1»GTii,AUXMEMREQ#CARDC0UnT)I 
END END END PROGRAM* 
:GMEnT DESCRIPTOR* 



09410000 T 
09411000 T 
09412000 T 
09413000 T 
09414000 T 

09414100 T 
66 LONGf 

09414101 T 



117 I 
START OF SEGMENT *♦♦♦♦***♦* UB 



01171000010 
01 17 1 0000 10 
01171000010 
0117I0000I0 
01 171 0000 fO 
01171000010 
NEXT SEG U6 
01 16 10000 JO 



118 IS 



9 LONG. 
09415000 T 

09416000 T 

09416001 T 

09416002 T 



PRT(l05l) » *LIST, LABELi 



PRT(105?) * *SE( 

PRT(1053) * *5EGMENT DESCRIPTOR* 



09416004 
09416006 
09417000 

09418000 
09419000 
09420000 



NEXT SEG 116 
01161000010 
01161000312 
0116 J 0006 to 
01161000712 

01161001211 
0ll6«00l6ll 
01161002411 

01161003512 
01161004210 
011610053*3 



116 IS 55 LONG. NEXT SEG 115 

115 IS 134 LON^Gf NEXT SEG 104 
104 IS 215 LONG. NEXT SEG 3 



COMMENT THIS SECTION CONTAINS GENERATORS USED BY THE BLOCK ROUTINE; 

COMMENT FORMaTPhRASC COMPILES A PSEUOO CODE USED BY THE OBJECT TIME 
FORMATING ROUTINES TO PRODUCE DESIRED I/O, ThEBE IS ONE 
WORD OF PSEUdO CODE PRODUCED FOR EACH EDITING PHRaSE. IN 
ADDITION ONE WORD IS PRODUCED FOR EACH LEFT PARENTHESIS. 
RIGHT PARENTHESIS. AND STROKE. EACH SIX CHARACTORS Of 
STRING ALSO PRODUCES qNE WoRD, IN ADDITION THERE IS qnE 
EXTRA WORD FOR EACH LEFT PARENTHESIS WITH NO REPEAT PART, 
This iS AN IMPLIED STROKE TO CONTRQi. END OF LINE CONDI- 
TIONS, THE WORD IS BROKEN UP INTO NINE FIELDSl 



10000000 
10001000 
10002000 
10003000 
10004000 
10005000 
10006000 
10007000 
10008Q0O 
10009000 



00031 
00031 
00031 
0003) 
00031 
0X1034 
00031 
00031 
00031 
00031 



063010 
083010 
Q&lQlO 
083010 
083010 
O^lOlO 
063010 
083010 
083010 
083010 



S IS 

Type 

BETWE 

Words 

IF c 

IF 

IF 

IF 

IF 
GIVEN 

IF C 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 
W IS 

For s 

ADJUS 
REPEA 
REPEA 
HOW M 
IMPLI 
A NON 
THE 
FORMA 
BE 

The 

FOR X, 
FOR 
FOR 
FOR 



FOR 



S « r 
REPEA 
SKIP 
CODF 

w s r 
wi « 

A DIS 
WORDS 
EN Th 
. GI 
ODE « 
ODE " 
ODE * 
ODE s 
ODE » 
S B 

ODE a 

ODE'l 

ODE « 

ODE ■ 

ODE iB 

ODE 

ODE 

ODE 

ODE 

ODE 

ODE 

ODE 

THE 

tring 

TED, 
T IS 

T FIE 

ANY W 

ED ST 

-ZERO 

DESC 

TING 

THE D 

N FOR 

W a 

W2 s 

T, W 

W 

A» W 

W 

s 



mi. 
T « ras 

* C3?|6 

6t6]* 
[28U], 
TlNGUfS 
t CODE 
E VARlO 
VEN S « 
THEN 
THEN 
THEN 
THEN 
THfN 
WE HA 

thfn 
Then t 

2 THEN 
THEN 

Then 

THEN 
THEN 

The 



llO], 



2 

4 
6 
6 



4 
6 
8 
10 
11 



I « 

IF 

IF 

F 



12 THEN 

13 The 

U THEN 

15 The 

ield wi 

S [1213 

THE RES 
THE REP 
LD, REP 
ORDS BA 
ROKES A 
REPEAT 
RIPTION 
TYPES. 

EClMAt 

D, WiK 
SKIP ■ 

Dl s D 
•(WIDTH 
2»DlaD2 
1 • W, 
1 • 6/ 
KIP 



1 

I 

FOR E 

D + 1 F 



* I 

The 
The 

< 8 
> 6 
>16 

D-1 



skip«o 

F W-D-l 
F W-D-l 
1 AND D 
OR D, 



W2 s 
HER BE 
IS TH 
US EDI 
1 WE 
RIGHT 
STRIN 
lEFTP 
STROK 
SCALE 
VE 
D« 

X> 
A* 
I' 

F» 
E# 

N U, 

0> 
N V» 

L, 
N R. 
DTH. 
6] IS 
T OF T 
EAT FI 
EAT s 
CK THE 
RE DiS 
FIELD 
OF WI 
FOR T 
PART. 
W2»Dts 
WIDTH 
? sO. 
-1) MO 
• Of 

SKIP « 

SKIP « 

E W > 

N Wi • 

N Wt ■ 

THEN 

THEN 

THFN 

> 16 

*> 8 T 
< 8 T 
2 ARE 
SKIP » 



[2AH], Dl " iZOiUlt D2 « rl6lfll. 

TWEEN EDITING PHRASES AND OTHER 

F INTERNAL CODE To DISTINGUISH 

TING PHRASES OR BETWEEN THE OTHER 

HAVEl 

PAREN. 

G* 

AREN, 

E. 



W CHARACTORS OF AlPHA» RIGhT 

HE FIELDS ARE MEANINGLESS, 

ELO - FOR LEFTPARENS WITH NO 

0. FOR RIGHTPARENSf REPEAT TELLS 

CORRESPONDING LEFTPAREN IS. 
TINGUISHED FROM VISIBLE STROKES BY 
S. 

,W2» Dl» AND D2 APPLIES ONLY TO 
HE PURPOSES OF DESCRIPTION LET 

W ISf OF COURSE* THE WIDTH, 
D2»SKIP«0. 
MOO 64 AND Wl a WIDTH DiV 64. 

64» WibCWIOTh-I) DIV 64, AND 

IF W < 6, OTHERWISE 
W-6, W2«'D1«02»0, 

16 Then w-i6 else o, 

8# W2 s W-SKlP-9. 

W^ W2 • 0, ALWAYS D1«D2«0. 
Dl ■ D, D2«0, 
Dl • 8, D2'«D*8, 
ERROR. 

THEN Skip » w-o-i7. otherwise 

HEN Wl«8* W2»W-D-l-SKIP-8, 
HEN Wl«W-D*l»W2*0, 
CALCULATED AS IN F EXCEPT THAT WE 
W-D-6. W1«W2»0. 



OOlOOOO 
OOllOOO 
0012000 
0013000 
0014000 
0015000 
0016000 
0017000 
00l8X>00 
0019000 
0020000 
0021000 
0022000 
0023000 
0023100 
0024000 
0025000 
0025010 
0026000 
0027000 
0028000 
0029000 
0030000 
00 30 100 
0031000 
0031100 
0032000 
0032100 
0033000 
0034000 
0035000 
0036000 
0037000 
0038000 
0039000 
0040000 
0041000 
0042000 
0043000 
0044000 
0045000 
0046000 
OO46O1O 
0046020 
0047000 
0048000 
0049000 
OO5QODO 
0051000 
OO92OOO 
0053.000 
OO54OOO 
00S5000 
OQ56OOO 
0057000 
OO58OOO 
0059a00 
0060000 



T 00031083010 

T 0003I0830IO 

T 00031083010 

T 00031083010 

T 0003»0830»0 

T 00031083010 

T 00031083010 

t 00031083010 

t ooo3io83oio 

t ooo3io83oio 

T 00031083010 

T 0003*083010 

T 000310830*0 

T 0003*0830*0 

T 0003*083010 

T 00031083010 

T 0003*083010 

T 0003*0830*0 

T 0003*0830*0 

T 0003*0830*0 

T 0003*0830*0 

T 000310830*0 

T 0003»0830»0 

T 0003*083010 

T 0003*0830*0 

T 0003*0830*0 

T 0003*0830*0 

T 0003*083010 

T 0003*0830*0 

T 0003*0830*0 

T 0003*0830*0 

T 0003*0830*0 

T 0003*083010 

T 0003*0830*0 

T OOO31O83OIO 

T 0003*0830(0 

T 0003*08iOtO 

T 0003*0830*0 

T 0003*083010 

T 0003*083010 

T 000310830*0 

T 0003*08^30*0 

T 0003*0830*0 

T 0003*0830*0 

T 0003*083^0*0 

T 0003*0830*0 

T 0003*0830*0 

T Q0fl3J0A3010 

T 0003*0830*0 

T 0003*0830*0 

T QOQ3I.0A30IQ 

T 0003*0630*0 

T 0003*083010 

T 0004lJQi30lO 

T 0003*0830*0 

T 000310830*0 

T 00Xi3-*0A3iil^ 

T 0003*0830*0 



FOR 
FOR 



0. 



5 THFN Wl»5 ELSE Wl m W, 



FOR 
FOR 
FOR 
FOR 



Ul 
Bt 
Rl 



0, 



PRT(1054) •» 



PROCEDURE 
WHIPOUT 



WUW2b01»D2xSKIP»0, 

W2s01«D?«0, IF W ► 

SKIP = W*W1. 
SKIP s Wj e W2 a Dl B D2 
SEE U-PHRASf. DESCRIPTION. 
SEE ABOVE F-PHRASE DESCRIPTION, 
SKIP « Wl • W2 » UNSET, D1»D2 AS 

f-PhRase description, 
formatphpase uses recursion to do analysis of 

WORDS ARf: GENERATED AND PLACED DiRECTLY INTO 
BUFFER. FORmaTPHRASE IS A BOOLEAN PROCEDURE 
IF IT NOTjCES AN ERROR* 
WHIP0UT(W)J value Wl REAL Wf 

BEGIN 

M0VE(l»W,ED0C[F,t38l33»F.[4ll73 3); 
IF DEBUGToG 
THEN BEGIN 

DEBUGW0RO{B?O(F)»W»LIN); 
WRITELINE fNDJ 
IF (F«-F + l) > 1024 THEN FLAG{307)J 



IN ABOVf 



SYNTAX. THE 
THE CODE 
WHICH REPORTS 



eNd WHIPOUTJ 



10061000 
10062000 
10063000 
10063100 
10063110 
10063200 
10063300 
10063400 
10064000 
10065000 
10066000 
10067000 
1006S000 

10069000 
10070000 
10071000 
10072000 
10073000 
10074000 
10075000 
10076000 
10077000 
10078000 
10079000 
10080000 
10081000 
10082000 



T 0003t0830tO 

T 00031083010 

T 00031083010 

T 00031083010 

T 00031-083010 

T 00031083010 

T 0003*083010 

T 00031083010 

T 00031083010 

T OOO3IO83OIO 

T 00031083010 

T OOO3IOB3OIO 

T 0003«0830t0 

T 00031083010 

T 00031083010 

T 0003iO83OI0 

T 0003I0834U 

T 00O3I0834I1 

T 00031083513 

T 00031083713 

T 000310848*0 

T 00031085142 

T 0003I085H2 

T 00031085112 

T 00031085112 

T 0003*085112 

T 0003*0851*2 



BOOLEAN PROCEDURE FORMaTPhRASEi 
BEGIN 

Label el»ex>exitpL1»L2^L3; 



PRT(1055) » 



procedure 
emitformat 



EM I TfORMaT( S, CODE »REPEAT,SKlP»W.Wl»W2» 01^023 1 



START 



VALUE S.C0de»REPEAT,SKiP,W»W1»W2»D1»D2 
REAL C0dE»REPEAT,SKiP»W#W1,W?.D1»D2 
boolean Si 



Begin 
w * 



IF w > 

REPEAT 



63 Then 



& 

& 
& 
& 
& 
& 
& 
& 



w 

SKIP 
Wl 

W2 
Dl 

D2 

cOde 

REaLCS) 



FLAG(163)« 
C 6142*6] 
[32*4216] 
12814414] 
t24»44l4] 
C20i44i41 
tl6t44i4] 
[ 2»44|4] 
t ll47Jl]i 



whipout(W) end fmitfOrmati 



10083000 
10084000 
10085000 
OF SEGMENT 
10086000 

10087000 
10088000 
1 0089000 
10090000 
10091000 
10092000 
10093000 
10094000 
10095000 
10096000 
10097000 
10098000 
10099000 



T 0003*0853*2 

T 0003*085312 

T 00031085312 

«4<«*4>«*4i** 119 

T 01191000010 

T 0ll9l0000t0 

T 0119*000010 

T 0ll9.tO0oCU0 

T 0119*0000*0 

T 0119*0002*0 

T 01191000312 

T 0119*000410 

T 0119*0005*2 

T 01191000610 

T 0119*0007*2 

T 0119*0006*0 

T 01191000912 

T 0119*001011 



PRT(1056) a 



STREAM 

packaLPha 



procedure packalpha t place* Letter I ctr) I 



lOl 00000 T 01191001210 






VAlUE LFTTER»CTR; 

BFOIN ni •■ PLACFl DS «■ 
Si ^ LOC CTRJ Si 
Si ♦- PLACrJ SI ^ 
S! ♦ LOC LETTER) 



Lit "b"; 

♦ Sl*7| DS 
Sl + 3) DS «• 

SI •• si + 7; 



♦ CHR> 
5 CHRJ 
DS ♦ ChR 



END PACKALPHA* 



lOlOlOOO 
10102000 
10103000 
10104000 
10105000 



T 01191001210 

T 0119l00l2f0 

T 01191001211 

T 01191001313 

T 01191001410 



STACKfr*3) I 
STACKCF*4J . 
STACKfF+5) . 
STACKfF+6) s 
8TACKtF+7) . 
STACK(F+10) 
STACKcF4in 
STACK(F+12) 
STACKfF*13) 



INTEGER REPEAT, SKlP.W,Wi,W2, 01, DP.CODEI BOOLEAN Si 



REPEAT 

SKIP 

W 

Wt 
W2 

' ni 

■ D2 
i CODE 
i S 



10106000 T 01191001512 



EL« 



DEFINE RRI 
RLE 
RST 

DEFINE RSC 

DEFINE RD 
RTb 

RF 
IF ELCLASS < 
IF EL 
ELSE BFfilN 



END 
IF ELCLASS 

Then beg 

SKIP 
EMITF 
DO BE 
IF 

UNTIL 

WHILE 
DO 



GHT n 0#» 
FT B 4#t 
ROKE * 6#> 
ALE = fl *» 
» 0#, RX js 
1 «. 
* 8#, RE = 

Then bfgin 

classs",'' or 

kepfat»*rfa 

IF ELCLASS. 



RU » 11 #, RV s 13 *. RR « 15 # ? 
2l« RA s A«, Rl n. 6#» 



10*» RO 9 J2I, RU ■ 14#* 
REPEAT * -FLCLASSJNEXTENT? 

ELCLASS***)" THEN GO EX ENO 
LCELCLASSit •♦<••); 

••*•♦ THEN BEGIN REPEAT . C12 I U ♦U 

NEXTENTJ 
END! 
OR ELCLASS«''<'» 



IF 

IF 
IF 



EL 
Th 

La 
RE 



REPEA 

WHIPO 

F»SKI 

ELSE IF LL 

Then be 

else if el 

Then be 

ELSE IF EL 
ELSE IF EL 

Else if el 



B It # W 

IN 

- ri 

0RmAT(TrUE,R 
GIN NFXTENTJ 

formatphRase 

ELCLASS * ♦♦ 
ELCLaSS ■ •♦ 

begin emitfo 
nextent end? 

CLASS # ") 

en go to el; 
stelclass » 
Peat » o the 

EMiTF0RmAT(T 

t*f-skip» f* 

UTcED0CrF.t3 

p+rePeati s*. 

CLASS m "O" 
GIN CODF*RO> 
CLASS as "D" 
QIN COOE*RDI 
CLASS m •♦,»• 
CLASS • «/« 
CLASS, «)•♦ OR 



IF LASTELCLASS."*' 



LEFT»REPEATf l,0,OfO,0,0); 
THEN GO TO EX END 

,"; 

RMAT(TRUE»RSTR0KE»Of l#0.0»0,0.0); 

•♦ and elclass * ">" 
"•" Then go to exi 

N 

RUEiRSTROKF* 1.0,0,0,0,0,0)1 

SKlPi 

8»3]»F,t4lt7]]&REPEAT[26!38»l0])i 

true; code*RRight end 

W«-8 END 

W*8 END 
THEN GO to L2 

Then go to exit 

ELCLASS»">'' THEN 
THEN GO EX ELSE GO EXIT 



10107000 T 


01 


191001512 




10108000 T 


01 


191001512 




10109000 T 


01 


191001512 




10109500 T 


01 


191001512 




lOiiooao T 


01 


191001512 




lOuOOlO T 


01 


191001512 




lOlilOOO T 


01 


191001512 




10112000 T 


01 


19 » 00151 2 




10112100 T 


01 


191001811 




10113000 T 


01 


191002112 




10113100 T 


01 


.19|Q023I-^ 




10113200 T 


01 


191002610 




10113300 T 


01 


191002611 




10U4QOQ T 


01 


111002611 


_, 


10115000 T 


01 


191002713 




10116000 T 


01 


191002611 




10117000 T 


01 


19IM29I3 




lOuSOOO T 


01 


19J0032I1 




10119000 T 


01 


191003313 




10120000 T 


01 


19 f 0035 J 2 




101?1000 T 


01 


191003611 




10122000 T 


01 


191003712 




10123000 T 


01 


19 1 0014112 





10124000 T 


01 


I9l0042t0 




10124100 T 


01 


191004312 




10124200 I 


01 


19 J 00 4111 





10125000 T 


01 


191004610 




10126000 T 


01 


191004611 




10 127.000 I 


.0449lXm50l^ 


-. — 


10127100 T 


01 


191009210 




10127200 T 


01 


I9t00s6l0 




iQiaaooo T 


01 


l9-|0Xl59ia 




10129000 T 


01 


19V0059U 




10130000 T 


01 


191006210 




i0i3.4_oao T 


ai 


4-9.1410^342- 





10132000 T 


01 


191006513 




10133000 T 


01 


191006611 




10 1^4000 T- 


0449100681X1- 


- 


10134100 T 


01191007010 





ELSE IF" ELCLA5S s -S" THEN 
BEGIN 

NEXTEnTi 

W ♦ IF FLClASS ' 
IF ELcLaSS*»' + " 
IF ELcLaSS*''*** 
IF ELcLaSS > 



« •♦■♦• THEN 1 ELSE O; 

OR ELCLASSs"-" THEN NEXTeNTI 



FtSf 



THEN REPEAT. [12I1]*-! 
THEN BEGIN ERR(136); 
GO TO EXIT 
END 

ELSE Repeat *• - elclassi 
EMi tfoRmat(thue»Rsc ALE » Repeat. o.w, 0,0, 0,0); 

GO TO L? 
END 
FLSE IF ELCLaSS « ••'♦« 

Then begin 

IF REPEAT # 1 Then FLAG(136); 
CODE ♦■ lOOJ 
DO BEGIN 
SKIP ♦ 11 

DO BEGIN RESULT *■ 5| COUNT «• Oj SCANNfRJ 
IF EUcLaSS * ACCUM[n,ri8J6] m CODE 
THEN BEGIN 

IF SKIP # 1 Then whipoutcwx 

GO TO L2 end; 
CODE ♦ •""♦) 

PACKALPHACWt ELCLASS, SKIP); 
END UNTtL skip «• SKiP+1 « 7t 
WHIPOUT(W) 
END UNTIL FALSE END 
ELSE BEGIN C0DE«-ELCLASS; 

if code » ••u'* or code « ♦*b«' then 

begin %%t all of compiler code to 
nfxtent ; 
SKiP V ; 

IF ELCLaSS » ♦♦*♦' OR ELCLaSS < THEN 

BEGIN XIX PhRASE IS AT LEAST UW OR U*, 
IF ELcLaSS « ••♦•♦ THEN REPEAT. [UMl ♦ 1 
ELSE W *. -ELCLASS ; 

nextent ; 

IF eLcUass ■ ",•• thfn 

BEGIN XXX Phrase is at least uw, or ut., 

nextent ; 

fF ELCLASS m «*« OR ELCLASS S ThfN 

BEGIN XXX Phrase is uw<or>*,d<or>», 
if ELCLASS » "*•♦ Then Repeat, n^jn*! 

ELSE SKIP - -ELCLASS ; 
NEXTENT ; 

END 

else 60 to ex 
fNo 

END 

ELSE l^' *-63 ; XXX PhRASE IS U, 

EMiTF0RMAT(FaLSE,RU»REPEAT,SKIP,W,REAL{CODE«''B''), 
REALCW<0)f 0.0) ; 

GO TO EXIT ; 

fnd OF u pwRase handler I 
IF getint Then begin w.-ii; Repeat. ti3jn*i end 



handle U-PhRASE, 



10134500 

I0l3fl5l0 

10134520 

10134530 

10134540 

10134545 

10134550 

10134560 

10134570 

10134580 

10134590 

10134600 

10134610 

10135000 

10136000 

10136500 

101 37000 

10138000 

10139000 

10140000 

10141000 

10142000 

10143000 

10144000 

10145000 

10146000 

10147000 

10148000 

101490QQ 

10150000 

10150100 

10150110 

10150120 

10150125 

10150130 

10150135 

10150140 

10150145 

10150150 

10150155 

101 SO 160 

10150165 

10150170 

101S0175 

I0i50i85 

10150190 

10150195 

10150200 

10150205 

10150210 

10150215 

10150220 

10150225 

10190230 

10150260 

I0lt0270 

10150280 



T 0119I0072U 
T 01191007313 
T 01191007410 
T 01191007411 
T 01191007713 
T 01191006010 
T 01191008312 
T 0119100*513 
T 01191008610 

T 01191008610 

T 01191008713 

T 01191009011 

T 01191009112 

T 01191009112 

T 01191009210 

T 0119I0093J2 

T 01191009512 

T 01191009513 

T 01191009610 

T 01191 00 96U 

T 01191009912 

T 01191010011 

T 0119»Q101«3 

T 01191010313 

T 0119|0104»0 

T 01191010512 

T 01191010611 

T 01191010811 

T O119r0l09t2. 

T 0ll9»0ll0«l 

T 01191011113 

T 0119I0U3U 

T 0119I0114I0 

T 0119»0114»1 

T 01191011512 

T 0ll9l0li7l2 

T 01191011713 

T 01191011912- 

T 0119J0122IO 

T 01191012211 

T 01 19 1 0123.12 

T 01191012313 

T 01191012410 

T 01 19 I 01 26 10 

T 01191012611 

T 01191012810 

T 01191 013112 

T 01191013113 

T 01191013113 

T 01191013113 

T 01191013113 

T 01191013113 

T 01 I9l0liai2 

T 01191013512 

T 01191013712 

T OlliiOlJZU 

T 01191013713 



M 



Ll« 



FLSE Fl.CL.AS 

IF CODF 
THEN BE 
SKIP *■ 

ELSE IF 
THEN BE 

flsf if code 

ELSE IF 

THEN RE 

NEXTrN 

IF ELC 

IF GET 

IF DIV 

IF CODE 

SKIP 

ELSE 

ELSE IF 

THEN BE 

SKIP - 

ELSE 1 

ELSE B 

ELSE IF 

THEN BE 

ELSF IF 
BEGIN C 
C 
I 



S l» "(W \m ELCLASS); 

GIN 

DIVIDFC 
CODE » •* 
GIN cOdE 



'R' 



L3I 

L2« 

EX» 
EXIT! 



FNO 



end; 

THEN BE 
IF W<W 

fmitformat( 

nextfntj go 

formatphras 

formatphrase 



CODE » " 
GiN cOdE 
Tj 

LASS^**." 

INT THEN 

IDECELCL 

m RF or 

♦ DiViD 

IF SKiP 

CODE * " 

GIN COOE 

W #• W,[ 

F CODE*" 

EGIN COO 

CODE « " 

GIN CODE 

CODEs^V 

ODE ♦ RV 

OUNT*ACC 

F EXaMiN 

BEGIN 
F EXaMtN 

Begin ne 

IF 
GTl 
LCLASS I 
END ELSE 
GIN CODE 
1 THEN W 
S,C0DE,R 
TO fXlT 
E ♦ TRUE 



WpW1»W2); CODE *■ Rl END 
F" 

♦ RF> 
HEN BEG 

E** 

♦ re; 



GO TO LI END 

IN CODE * RRl SO TO LI fND 



Then g 

BEGIN 
ASS+D1» 

CODE » 
E(W-ELC 

*■ W-EL 
X« 

♦ RXI 
42163 E 
T** THEN 
t*RM W 
A" 

•• RA» 

Then 
UMtn*o 

(NCR)-" 

RESULT* 

(NcR)B*' 

XTeNT* 

GETINT 

♦DIVIDE 

•-ELCLA 
IF COD 

* RLJ 

i«-w; SK 

EPEAT»S 
I 

i ERRCl 



EXI 

elclass»3; repeat, ti«»n*t eno^ 
Di.02) > Then go to exj 

RR THEN 
LASS-1»W1»W2) 
CLASS-6 < THEN QO TO fX END 

Wl * W.[36l4]j 
ND 

IF W*ABS(W)-l<0 THEN FLA6(136) 
1*W. [361431 W*W, [42163 END 

Wl ♦61 GO TO L3 END 



I 

" THEN 

7| SCANNER ENOI 

♦ ♦• THEN 

Then repeat, ri4n3*i else 

(ELCLASS, Dl#D2)i 
SSI 

Eb^L** 

Wl ♦ 5; 

IP «. W-Wl END ELSE GO EX ENDi 
KIPpW.W1,W2,D1.02)I 

36)1 



119 IS 



10150290 T 


01 


19 


10151000 T 


01 


19 


10152000 T 


ot 


19 


10153000 T 


01 


19 


10154000 T 


01 


19 


10155000 T 


01 


19 


10155500 T 


01 


19 


10156000 T 


01 


19 


10157000 T 


01 


19 


10156000 T 


01 


19 


10159000 T 


01 


19 


10159100 T 


01 


19 


10160000 T 


01 


19 


10161000 T 


01 


19 


10161500 T 


01 


19 


10162000 T 


01 


19 


10163000 T 


01 


19 


10164000 T 


01 


19 


10165000 T 


01 


19 


10165500 T 


01 


19 


10165505 T 


01 


19 


10166000 T 


01 


19 


10167000 T 


01 


19 


10167100 T 


01 


19 


10167200 T 


01 


19 


10167300 T 


01 


19 


10167400 T 


01 


19 


10167500 T 


01 


19 


10167600 T 


01 


19 


10167700 T 


01 


19 


10167800 T 


01 


19 


10167900 T 


01 


19 


10167910 T 


01 


19 


10168000 T 


01 


19 


10169000 T 


01 


19 


10170000 T 


01 


19 


10171000 T 


01 


19 


10172000 T 


01 


19 


10173000 T 


01 


19 


10174000 T 


01 


19 


225 LONG* 


NEX 


T 



J0141I2 
1014312 
104,4312 
1014410 
1014611 
lOU7l3 
1014913 
I0l52«l 
I0153J3 
•015610 
1015611 
1015713 
»0l61«2 
1016410 
1016513 
t0l68t0 
1017210 
1017312 
1017610 
«0l77l3 
1018210 
1018611 
1018712 
I Q| 90 1.0 
1019113 
1019211 
t 0194 11 
tOl96tO 
I0l96t0 

IQ199I3 

1020011 
1020313 
1.020513 
1020611 
J0207I3 
10210 «0 
1021312 
•021610 
1021810 
1021913 
SEQ 3 



COMMENT r.FTlNT DOfS A CALL ON NEXTENT AND CHECKS TO SEE IF AN INTfGER 

Was The Re^ultj if not error - otherwise make sign plus; 

BOOLEAN PROCEDURE GETINT; 

Begin nfxtent; tf elclass ♦ - elclass < o Then 
IF ELCLASSw-fw*") Then 6etint»true else 

BEGIN FLAGfl37); ELCLASS ♦ END 

END getint; 



10175000 

10176000 

lOl 77000. 

10178000 

10178100 

lOl 79.000 

10180000 



T 00031085312 

T 00031085312 

T OOi) 3 1085X12 

T 00031085312 

T 00031085512 

T 0003IQ857J1 

T 0003I0859I3 



COMMENT DIVIDE PARTlON^ THE PARAMETER NUMBER INTO THREE PARTS; THE 
RESULT IS PASSED BACK THROUGH Pl»P2» AND THE FUNCTION) 



lOl 81000 
10162000 



T 0.0031046210 
T 0003t0862<0 



IDENTIFIER. SEE CODE FOR DETAILS? 
INTEGER PROCEDURE DI V I DE (NUMBER. Pi . P? ) I 

VALUE NUMRERi INTEGER Pi » P2. NUMBER ) 
BEGIN 

IF NUMBER < Then begin FLAGMSe); ERRORTGG«-TRUEJ 

NUMBER ♦ ENDI 

PI * IF NUMBrR < 6 THEN NUMBER ELSE 81 

NUMBER ♦ NuMbER-PU 

P? •• IF NUMBfR < « THEN NUMBER ELSE 81 

DIVIDE * nuMber-P2 e^d oivide; 



10183000 
lOiSAOOO 
10185000 
10186000 
10187000 
10188000 
10189000 
10190000 
10191000 
10192000 



0003< 
0003; 

00031 
0003> 
QDQ3I 
00031 
00031 
0003 > 
0003« 
00031 



0862»0 

086210 

086210 

0862»0 

Qa6^1Q. 

086513 

086611 

086913 

087011 

087313 



THE ALPHA INT 
AFTER A DEFIN 
SO THAT THE 5 
I/O BUFFERS) 



PRT(1057> 



PRT<1060) 
PRT(l06i) 



COMMENT nEFTMrREN PACKS THF ALPha FOR A OEFlNp. INTO INPO, .D 
PRINCIPALLY ELIMINATES BLANKS AND COMMENTS, PUTO 
ACTUALLY DOES ThE MECHANICAL WORK OF PROCESSING T 
ChARACTORS from ACCUM to INFO, THE FINAL TRANSFE 
IN PACKINFO, The OTheR FUNCTION SERVED BY DEFINE 

That of countinr defines and cRosshatchcs in orde 
Allow nested defines, 

a word on the overall plan of attack on hand 

DEFINES! 

THERE are four PLACES THAT THERE IS CODE WRI 

EXPLICITLY FOR THE DEFINE. 

FIRST IS DeFINEGEN WHICH LOADS 
SECOND IS IN THE TABLE ROUTINE 

NOTICED, HERE A SETUP IS PERFORMED 

Will SCAN info, since, info cunlike 

A save ARRAY, We CAN NOT DIRECTLY SCAN INFO, INS 
FOOL READACARD SO THAT THE ALPHA IS FETCHED FROM 

Placed into a small save array cdefinearray) jnst 
Being fetched from an i/o device, naturally we m 

NESTING WHICH IS OBTAINED BY USING DEFINEARRAY AS 
STACK. The quantities saved are LCR^NCR, and LAS 
LASTUSED DOUBLES AS A DEVICE FOR DIRECTING THE FL 
INFORMATION FROM l/O GEAR AND FROM INFO DURING AN 
DEFINES, THIS STACKING IS DONE HERE BY THE TAgLE 

THIRD IS READACARD WHICH HAS NOW BEEN FAIRLY 
DESCRIBED. THE ONLY ADDITIONAL COMMENT NECESSARY 
LASTUSED SERVES AS AN INDEX To FETCH NEXT WORO OF 
FROM INFO, READACARD FETCHES ONLY ONE WORD AT A T 

FOURTH IS ALSO IN THE TABLE ROUTINE, IT IS 

Place that a crossmatch iS noticed, it causes an 
So That the scanner will stop scanning that part 
And resume its previous tasks, a distinction is 

BETWEEN CROSSHATChES SCANNED AFTER A DEFINE DECLA 

And those scanned during the recall process, the 

ONLY causes an UNSETUp; 

procedure definegen«macro«j)» value macro. jj BOOLEAN macro; re 

DEFINEGEN 

BEGIN 

OWN INTEGER CHARCOUnTi REMCOUNTI 



FFINE6EN 

geTheR 

HE 

R is DONE 
GEN iS 
R TO 

leing 

TTEN 

INFO. 
ED ID IS 
CANNER 
IS MOT 
TEAD WE 
INFO AND 
EAD OF 
UST HAVE 

A SMALL 
TUSED. 
OW OF 
ALYSiS OF 

ROUTINE. 

WELL 
IS THAT 

ALPHA 

1 ME, 

AT The 

UNSETUP 
OF INFO 
MADE 
RATION 

LATER 

AL J» 



10193000 
10194000 
10195000 
10196000 
10197000 
10198000 
IO199OOO 
10200000 
10201000 
10202000 
10203000 
1020A000 
10205000 
10206000 
10207.000 
10208000 
10209000 
10210000 
10211000 
10212000 

10213000 

10214000 

10215000 

IO216OOO 

10217000 

10218000 

10249000 

10220000 

10221000 

10222000 

10223000 

10224000 

102.250-0.0 T 

10226000 T 

10227000 T 

1022SO0O T 



00031087712 
0003«0877»2 
0003t0877t2 
00031067712 
00031087712 
0003 » 08 7 71 2 
0003t0877»2 
0003«0877I2 

00031087712 
00031087712 
00031087712 
00031087712 
00031087712 
00031087712 
00031087712 
00031087712 

P0Q3lO87r.l2 
0003(087712 
00031087712 
0OQ3.IP177«2 
00031087712 
0003»0877»2 
00031087712 
0003I0877«2 
00031087712 
0003^1087713 
0003J0877I2 
0003»0877»2 
0001i08TII-2 
0003I0877«2 
0003*087712 
00031.0877X2 
0003I0877»2 
0003»0877»2 
0003 1087 7 12 



charcount 
Remcount 

COMMENT 



10229000 

IO21QOOO 

START OF SEGMENT 



T 00031087712 

T oQoai-Qazzi.2 

********** 120 



CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFlNf THAT WE 



10231000 T 01201000010 



M 



PROCEOURr 

putogether 



PRT(106?) 

STREAM 
PRT(1063) m PACKINFO 



HAVE PUT INTO 
ORS REMAINING 
PUTOsETheR(ChAR)I 



INFO, REMCOUNT CONTAINS 
IN THIS ROW OF INFOI 
REAL CwARI 



NUMBER OF CHARACT- 



BFGIN 
PROCEDURE 



PACKIMFOdNFO, I SK IP » COUNT, ASK IP . ACCUM) J 



VALUE lSKlPiCOUNT,ASKiPl 

Begin di «- info; di ♦ di + iskipi 

Si «• ACCUm»SI ♦ Sl + ASKIP> Si •. SI+3J 

DS ♦■COUNT chR end packinfo; 



10232000 
10233000 

10234000 

10235000 

10236000 

START OF SEGMENT 

10237000 
IO238OOO 
10239000 
10240000 



T 01201000010 

T O12O1OOOO1O 

T 0l20t0000t0 

T 01201000010 

T 01201.000010 
*«iti«*««4t** 121 

T 0121*000010 

T O12H0000I0 

T 01211000011 

T 0121 10001 » 3 



STACKfF+2) 
STACKfF+3) 



COUNT 
SKIPCOUNT 



INTEGER COUNT, SKIPCOUNT; 



IF (COUNT * CHAR,ri2t63) * CHARCOUNT > 2047 
THEN BEGIN FLAG(142); TBI* TRUE END 
ELSE BEGIN 

IF COUNT > ReMCOUNT 
THEN BEGIN 

SKIPCOUNT ♦ COUNT-CCOUNT*REMCOUNT)J 
REMCOuNt •■ 2048 END 
EUSE ReMcOuNT «■ ReMCOUNT-COUNTI 

gti * chaRcOunt div 6 4 nexttext; 

PACKlNFO(TEXT[GTi,LlNKR,GTl.LlNKCl, CHARCOUNT , T 451 3] 

COUNT. O.CHAR)! 

IF SKIPCOUNT jt THEN 

PACKINfO(TEXT[NEXTTEXT,LINKR+1»03»O.SKIPcOUNT» 

count.char); 

CHARCOUNT ♦ CHARcOUNT+SKfPcOUNT+COUNT END 
END PUTOgETHER' 



10241000 T 0121»0002«1 



121 IS 



10242000 T 
10243000 T 
10244000 T 
10245000 T 
10244000 T 
10247000 T 
10246000 T 
10249000 T 
10250000 T 
10251000 T 
10252O0O T 
10253000 T 
10254000 T 
10255 000 T 
10256000 T 
10257000 T 
34 LONG* 



0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
04 21 
0121 
0121 
0121 
0121 
0121 
NEXT 



1000211 
1000512 
1000713 
1000912 
too 09 1 2 
iOOlOll 
1001211 
room 3 
IOO1611 
1001811 

looatta 

1002313 
I0O24I0 

IJJOJI 13 

IOO26II 
1003112 
SEG 12Q 



STACK(F+2) . UASTRE5ULT 

STACK(F+3) » K 

STACK(F*4) « N 

STACK(F4.5) « ELCLASS 



STACKfr*6) « DINfO 
STACK<F + 7) . TSSTREAMTOr, 



INTEGER LASTRESULT* 
REAL K»N»ELClASs? 



DEFINE I»NXTeLBT*I 
LABEL F|NAL»PACKIN; 

Label back.sksc.exiti 
Real oinfo; 

boolean tsstreamtog* 



DiNFO ♦ J,C18I15]J 
J * J. [331151; 
TBI* false; 

tsstreamtog* streamtogi 

STRrAMTOG*TRUE; 



% 1289 



% 1269 



10256000 T 
IO2581OO T 



10256200 T 

1 02583O0 T 

10259000 T 

10259200 T 



01201000010 
0l20t0000l0 



01201000010 
04201000010 
01201000010 
01201000010 



10259400 T 01201000010 



10 25.9 600 
10259700 
10260000 
1 0260050 
10260100 



T 0|24J1W)0^04U 

T 0l20t000l»2 

T 0120I0002H 

T 01201000312- 

T 0l20l0004r0 



BACKJ 
SkSCI 

FINALi 



PACKINj 
COMm 



ChARCOUNT 

oefinectr 
Remcount 

stopoefin 
elclass»t 
nxtelbt«.n 

IF MACRO 
BEGIN IF 
IF K 
BEGI 
ELSE 
IF E 
BEGI 
IF E 
IF K 
IF E 



ENDI 



IF R 

FOR 

BEGI 



*■ 01 

♦ II 

•• C25 

E'-TRU 

ablec 

XTELB 
THEN 
ELCUA 
»0 TH 
N PUT 
GO P 

lclas 

N K«.K 

ucuas 

♦ K-i< 

ICLAS 

BESI 

esuut 

N ♦ 1 
N 
IF E 

BEGI 



end; 



LASTReSULT ♦ 2) 
6-N|:XTTeXT.LINKC)x8» 

El 

NXTel8T)> 

T-ll 

ss»comma then 

EN 

ogetherc'i'Oooo")! go to exit end 

ackin; 

s.ufftpaRen or elclass-lftsrket then 

*ll go to PACKIN END) 

SsRtparen or euclass-rtbrket then 

Tmen oo final else go packini 

SbSemicolon Then 

n flag(142>j go to final end else go packin 

« 1 Then if j # o then 

STpP 1 until J DO 

0UALCACCUM[l].tl2l63 + 3, ACCUMlU, 

DEFINFO[(N-I)xi0]) THEN 
N 

DEFINEPARAMCDINFO+I. N)l 

fiO packin; 



END? 



EXITJ 



IF RESULT « 

THEN BEGI 

ENT INSERT " MARKS - 

PUTOGET 

PUTOGET 

PUTOGET 

ELSE BEGIN 

IF BOOLEA 

THEN PU 

putogethf 
if tbi then 

LASTRESULT 
IF MACRO Th 
IF ELCLaSSs 
THEN BEGf 
IF ELCLASS 
IF PEFINECT 
THEN BEGI 
IF ELC 
DEFINE 
DEFINECTR »» OJ 
NEXTTEXT *. (CHAR 
END OEFlNEGENi 



N 

2130706432 IS DECIMAL FOR l^OOOOj 

HeRC2130706432)J 

HrRfACCUM[l])l 

HfR(2»30706432) END 

N(RESULT) AND BOOLEANCLASTRESULT) 

togethfrci oooo"); comment insert 
R(ACcuMrn) end; 
sO To exit; 
* result; 
EN 60 back; 

DECLARATORS 
N DEFINECTR 
»» CROSSHATCH 
R * 1 

N stopdefine ♦ true; 

LASS«.TABlE(I)»'COMMA THEN 

ctr«-definectr-i; go sksc 
streamtog-tsstreamtog; 

CoUNT+7) DIV 8 ♦ NEXTTEXT; 



AND ELBATCn. address ■ 
•• DEFlNECTRfi; GO BACK 
THEN GO back; 



blank; 



DEFINEV 

end; 



end; 



X 1289 



120 IS 



10261000 
10?62000 
10263000 
10263200 
10263300 
10263400 
10263500 
10263600 
10263700 
10263800 
10263900 
10264000 
10264100 
10264200 
10264300 
10264400 
10264410 
10264420 
10264500 
10264600 
10264650 
10264700 
1026475Q 
10264760 
10264600 
10264810 
10264620 
10264830 
10264900 
10264910 
10265000 
10266000 
10267000 
10268000 
10269000 
10270000 
10271000 
10272000 
10273000 
10274000 
10275000 
10276000 
10276500 
1Q27700Q 
10278000 
10279000 
10260000 
10281000 
10282000 
10283000 
10284000 
10285000 
10266000 
80 LONGf 



120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
12U 
120 
120 
120 
120 
120 
UQ 
120 
120 
12 Q 
120 
120 
120 
120 
120 
IZQ 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 



NEXT 



1000411 
1000513 
1000712 
1000913 
lOOiOll 
lOOllH 
1001312 
I 00 1 410 
1001411 

1001513 
1001712 
t0O21»2 
1002112 
1002211 
t0025l2 
1002611 
1003010 
1003011 
« 00 321 1 
1003211 
1003411 
1003610 
1003610 
1003611 
1004011 
1004112 
100421 1 
1004312 
1004312 
1004512 
1004610 
1004610 
I0047J2 
1004712 
1004610 
1004913 
lOOSOll 
1005210 
1005210 
I00S4I0 
1005^13 
1005611 
tO057»2 
1005510 
1006010 
1006410 
1.00.6512 
1006513 
1006712 
1004912 
1007112 
1007313 
10076 I 
SEG 3 



comment listelement is rrsponsiblf for the generation of code for ulst 

flementsi 
PRocEDuRr listelement; 

fJFCiJN 

Real ti,t?»T3j 



10287000 
10288000 
10289000 
10290000 
10291000 



T 00031087712 

T 00031087712 

T 0QQ3J0a77f2 

T 00031087712 

T 00031087712 



STACKfF+2) 3 Tl 
STACKfF*3) « T? 
STACKrF+«) » T3 



boofintShj 

STORE* 
LRTsSi 



START OF SEGMENT ♦♦♦♦♦♦♦♦♦♦ 122 



COMMENT FORCLAUSEI 



LABEL BOOriNiSH»STORE»LRTS? 
DiALA ♦ Ul ALB * 0| 
IF ELCLASS » fORV THEN FORSTMT 
ELSE IF ELCLASS m LFTrRKET 
THEN BEGIN COMMENT GROUP OF LIST ELEMENTS? 

00 begin stepiti listelement end until elclass#commai 
if elclass • rtbrket then stfpit else err(158) end 
Else begin comment thf meat of the matteri 

variables and expressions! 

L * (Tl«.L) + ll COMMENT SAVE L FOR LATER FjXUPi 
EMITPA1R(LSTRTN,STD); comment prepare LSTRTN FOR 

NEXT TIME AROUNDI 
IFCGTl - TaBLeCI+1) • COMMA 
OR GTl « RtPAReN 
OR GTl « RTBRKET) 
AND EtCLASS i BOOID AND ELCLASS < INTID 
THEN BEGIN cOMMENT SIMPLE VARIABLESI 
CHFCKFRcELBATtlJ); 
EMlTNtELBATCn. ADDRESS)! STEPIT END 
ELSE BEGIN IF ELCLASS > BOOaRRAYID 
AND ELCLASS i iNTftRRAYlD 
THEN BEGIN COMMENT IS EITHER A SUBCRlPTED VARIABLE 
OR THE BEGINNING OF AN EXPRESSION, THIS 
SITUATION IS VERY SIMILAR TQ ThaT IN 
ACTUAlPARAPaRT (SEE COMMENTS THERE FOR 
FURTHER DETAILS); 
T2 ♦• FL! T3 ♦ ELCLASSI VARI ABLtCT?) J 
IF TABLE(I-2)»FaCT0P AND TABLEC I -1 )«RTBRkET THEN ERRM57)I 
IF ELCLASS a COMMA OR 
ELCLASS m RTPAREN OR 
ELCLASS « RTBRKtT THEN 
IF T? . THEN GO TO STORE ELSE GO TO lRTSJ 
IF T3 « BOOARRAYID THEN GO TO BOOFINISh; 
SIMPARIThI 

IF ELCLASS « ReLOP THEN BEGIN RELATIONE 
SIMPBOO END END 
ELSE IF EXPRSS « DTyPE THEN ERRC156)» 
EMITPAIRCJUNK.STD)) EMITN(JUNK) END? 
EMIT0(RTS)| CQNSTANTCLEANI 
T2 .. LI L * Til eMITNUM(T2-LSTR); L«-T2 END END LSTELMTI 



122 IS 



10292000 T 
10293000 T 
10294000 T 
10295000 T 
10296000 T 
10297000 T 
10298000 T 
10299000 T 
10300000 T 
10301000 T 
10302000 T 
10303000 T 
10304000 T 
10305000 T 
10306000 T 
10307000 T 
10308000 T 
10308100 T 
10309000 T 
10310000 T 
10311000 T 
10312000 T 
10313000 T 
10314000 T 
10315000 T 
10316000 T 
10317000 T 
10318000 T 
10319000 T 
10320O0O T 
10321000 T 
10322000 T 
1032:^000 T 
10324000 T 
10325000 T 
10326000 T 
10327000 T 
10328000 T 
103290QQ T 
10330000 T 
55 LONGt 



01221000010 

01221000010 
01221000112 

0122»0002«1 
01221000313 
01221000411 
01221000610 
0l22l00i0i0 
0l22i0Oi04i 
0l22t00l0il 
01221001211 
01221001343 
01221001313 
01221001512 
01221 00 16 10 
01221001712 
01221001912 
01221 002010 
01221002112 
01221002312 
Q12ZVQQ26IQ 
0122«0024I1 
01221002610 
0122100261.0 
01221002610 
01221002610 
0l22>0O2610 
01221002610 
0122I0033»2 
0122100^410 
01221003512 
01221003610 
01-3240038+^ 
01221003913 
01221004010 
012210041-13 
01221004211 
01221004512 
01221 004 ri3 
01221004912 

NEXT SEG 3 



COMMENT LISTgEN COMPILES ALL THE CODE FOR A LIST. LISTGEN CALLS 
LiSTELEMFNT WHICH IS RESPONSIBLE FOR EACH INDIVIOUAU 
tlST Et^EMENT. LIST ELEMENT ALSO TAKE5» CARE. TO GENERATE 
CODE WHICH UPDATES LSTRTN AfTeR EACH CALL ON THE LIST. 



10331000 
10332000 
10333000 
10334000 



T 0003 1 08771 2 

T 00031087712 

T QUQ3l0a77l2. 

T 00031087712 



REAL 



listgen generates the changing of lstrtn to •!, The end 
Flag for a list, the code to jump around the list. 
The initial jump of The list, the obtaining of a prt cell 
For the list. The obtaining of an accidental program 
descriptor* The stuffing of f into this descriptor, 

LiSTGEN EXPECTS I TO POInT AT FIRST LIST ELEMENT AND 

leaves i pointing at first item bfyond ri6htparen, the 
Value returned by listgen is the location of the 

ACCIDENTAL EnTRY DESCRIPTOR IN THE PRT; 
PROCEDURE LISTGEN» 
BEGIN 

INTEGER jumplacf»listplace; 



STACK(F+3) 
STACKfF*4) 



jumplace 
listplace 



10335000 T 00031087712 

10336000 T 0003«0877I2 

10337000 T 0003I0877»2 

10338000 T 0003I0877I2 

10339000 T a003JM77l2 

10340000 T 00031087712 

10341000 T 0003»0877t2 

10342000 T 0003-1 087X12. 

10343000 T 00031087712 

10344000 T 00031087712 

1 345000 T 000 31 0877 J 2 

10346000 T 00031067712 
START OF SEGMENT ♦♦«•♦»*»♦• 123 



JUMPLACE «• BAEJ 

LiSTgeN * LISTPLACE * PR0GDEScBLDR( 0, L, ) > 
COMMENT BUILDS ACCIDENTAL ENTRY FOR LlSTI 

EMiTVfLSTRTN)! eMtT0(8FW)I LSTR ♦ Li 
COMMENT INITIAL JUMP OF A LIST* 

LiSTMODE •■ TRUEI 
COMMENT CAUSES fORSTMT TO RECOGNIZE ThAT WE ARE COMPUTING LISTS; 

UI-1» 
DO BEGIN 

stePiTi 

ltstelement 
end until elclass i» comma* 

EMiTLflH EMiTO(ChS)} 
EMiTPAIRaSTRTN.SND?? 
EmIT0(RTS)I 

COMMENT Set end flag of -i; 
constantclean; 

DIALA ♦ DlALB ♦ 0; 
LiSTMODE ♦• FALSE* 

adjust; 

EMITB(BFW.JUMPLaCe»L)> 

stufff(Listplace)i 

IF ELCLASS * RTPAREN THEN ERR(104) ELSE STEPIT 

END ListgeN; 



10347000 T 

1034W4JO T 

10349000 T 

10350000 T 

10351000 T 

10352000 T 

10353000 T 

10354000 T 

10355000 T 

10356000 T 

IO357OOO T 

IO358OOO T 

10359000 T 

10360000 T 

10361000 T 

10362000 T 

10363000 T 

10364000 T 

10365000 T 

10365100 T 

10366000 T 

10367000 T 

10366000 T 

10369000 T 
123 IS ?4 LONG* 



01231000010 
018110-001*2 
01231000312 
01231000312 
01231000513 
01231000513 
01231000610 
01231000610 
01231000713 
01231000610 
01231000611 
0123*000611 
0123*001010 
0123*001113- 
0123*0012*1 
0123*0013*3 
012310013*3 
0123*0014*0 
0123*0015*2 
0123.1 0016*0 
0123*0016*1 
0123*0017*3 
01231001611 
012310021*2 
NEXT SEG 3 



PRT(1064) a 



BOOLEAN 
MERRlMAC 



THEY ARE 
VARIABLES^ 



PROCEDURE MERRlMAc; 

BEGIN COMMENT THIS TtMe THE MEHRiMAC WILL HANDLE THE MONITOR. 

03 JULY 1963 
THERE ARE SlX TyPES Of MONITOR LIST ELEMENTS, 
LABELS, SWITCHES. SIMPLE VARIABLFS. SUBSCRIPTED 

arrays, and functjon designators. 

With one exception, the meRrimac routines only function 
IS To SAVE Information So that other routineSi such as the 
variable routine* can generate the actual cooe that call* 
The printi routiNe at object time, the one exception is 
The case of a subscripted variable with an expression for 

A SUBSCRIPT, The CODE FOR THE EXPRESSION IS GENERATED. AN 



10370000 T 0003*0877*2 



10371000 
10372000 
10373000 
10374000 
10375000 
IO376OOO 
10377.500 
10378000 
IO3790OO 
10380000 
10381000 



T 0X>0il0877l2 

T 0003*0877*2 

T 000310677*2 

T 0003 J 01.77 12 

T 0003*0677*2 

T 0003*0877*2 

I QQ0XIQMU2. 

T 0003*0677*2 

T 0003*0877*2 

T 005110677*2 

T 0003*0877*2 



ACCIDENT 
AODRrSS 

The PR 

INFORMAT 
FOR BOTH 
EXPLAINS 
AND The 
POSSIBLE 
ID 

N 

A 
V 
Sl- 

Sl* 



FOR 



AL EN 
OF Th 
INTI 
ION I 

moni 

THE 
PARAM 

CALL 
IS DE 

The I 

IS DE 
RRAY 

IS DE 

--SN 

PRINT 

"•■•Sn 

MONIT 

ONLY 

MAT T 



TRY PROG 
E DESCRI 
ROUTINE 
T RECEIV 

TORING A 
VARIOUS 

ete:rs Th 

S ON PRi 
FINED TO 
DEnTiFIE 
FINED TO 
OR SUBSC 

FINED TO 
IS DEFIN 

ed: 

* iS OEF 

ored. P 
IF They 
ype mon 



ram descriptor is created* AND THE 

ptor is remembered, 

is an intrinsic which prints the 

ES ACCORDING TO A SPECIFIED FORMAT 

nd dumping, the following chart 
actions taken by the printi routine 
at must be passed for the five 
nti, 

MEAN THE FIRST SEVEN CHARACTERS OF 
H TO BE PRINTED, 

MEAN THE NUMBER OF DIMENSIONS OF AN 
RIPTED VARIABLE. 

MEAN THE VALUE TO BE PRINTED. 
ED TO MEAN THE SUBSCRIPT TO BE 

INED To MEAN THE SUBSCRIPT To BE 
RINTI COMPARES SN* TO SN AND PRINTS 
ARE EQUAL. 
I TOR DUMP 



LABELS 
SWITCHES 



SIMPLE VARIABLES 
FUNCTION 



2 
3 



ARRAYS 
SUBSCRIPTED VaRS 



LABELS 

SIMPLE VARIABLES 

m m 

SUBSCRIPTED VaRS 



41 1> « iti* « * 41 * ***4* 

FORMAT TYPE PRINTOUT 



ARRAYS 




I 
2 
3 



ID 

ID*V 

IDtSl---SN3sV 

I0[S1---SN3«V 



» * » 4: 4> * * * * * 41 



ID*V1---VN 

* * 4> * 4< )|i 41 * 



THE FORMAT ThAT V IS PRINTED IN WILL BE DETERMINED BY 

THE TYPt: Of V, The following conventions apply for 

PASSING THE TYPEV TO PRINTI. 
TYPE TyPfV 



••<>•■•< 




BOOLEAN 





mm 


«p" w 


REAL. 


1 


m m 


• "• 


ALPHA 


2 



INTEGER 3 

m*mm 4>4<*4i>i' 



10382000 
10383000 
10384000 
10385000 
10386000 
10387000 
10366000 
10389000 
IO39OOOO 
10391000 
10392000 
IO393OOO 
10394000 
10395000 
10396000 
10397000 
10398000 
IO3990OO 
IO4OOOOO 
10401000 
IO4O2OOO 
10403000 
10404000 
10405000 
10406000 
10407000 
10408000 
10409000 
10410000 
10411000 
10412000 
1041 3000 
10414000 
10415000 
10416000 
10417000 
10416000 
10419QQ0 
10420000 
10421000 
10422000 
10423000 
10424000 
10425000 
10426000 
10427000 
10.428000 
10429000 
10430000 
10431000 
10432000 
10433000 
10424000 
10435000 
10436000 
10 43-7-0-0 a 
10438000 



00031087 
00031067 
00031087 
00031087 
000310-67 
0003*067 
00031067 
00011067 
00031087 
00031087 
00031067 
00031067 
0003)067 
00011 06T 
00031067 
00031067 
00031067 
00031067 
00031067 
00011067 
00031087 
00031087 
00011^067 
0003)067 
00031067 
00031087 
0003J087 
00031067 
00031067 
00031067 
00031067 
00031067 
00031067 
00031087 
0001} OJ 7 
00031067 
00031067 
00031067 
00031067 
00031087 

00011 oar 

0003)067 
0003)067 
QliilllQ-81- 
0003)067 
0003)067 
0003JO-a7 
0003)067 
0003)067 
0001108-7 
0003)067 
0003)067 
OOiXH-OW 
0003)067 
0003)067 

oxxoitOA^r 

0003)067 



2 

>2 
12 
>2 
>2 
>2 
>2 
12 

2 

12 

2 

'2 

1.2- 

>2 

2 

'2 

12 

12 

12 

>2 

12 

\2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

t 

2 

a 

2 

2 
2 

12 
2 
2 

12 
2 
2 
Z 
2 

2 
1-2. 

)2 



PpWLRSOFTEN IS A TABLE OF POWERS OF TEN THAT PRINTI 
AND OTHETR ROuTIMfS USE FOR CONVfRSION PURPDSFS. 
FORMAT TYPf ACTUAL PARAMETFRS 70 PRINT! 




1 
7. 



SINCE THF 
MONITOR FOR 

THE SCOPE OF 



<IU»CHAKl,FlLCiO> 

(V,TYPEVfPOWERSOFTEN.ID»CHARl,FlLEf 1) 

(S1-"SN»V»N»TYPEV»P0WERS0FTEN.ID.CHARI» 
FILE. 2) 

(Si*- — SN*»S1— -SN»V»N»TYPEV»POWERSOFTEN 
MD.CHARI#FILE»3) 

CDF.SCRIPTOR FOR THE ARRA Yt N, TYPrV» 
POWERS0FTEN.in»CHARI.FILE*4) 

RESTRICTION EXISTS THAT THE SCOPp OF THE 
A LABEL OR SWITCH MUST BE THE SAME AS 
THF LABEL OR SWITCH* THE INFORMATION 



THAT IS GATHFRFD BY THE MONITOR IS STORED IN THE 
ORlGlONAL ENTRY \W iNFO, IN THE CASES OF VARIABLES, 
ARRAYS, AND FUNCTION DES IGNATQRSi THE MONITORS SCOPE 
MAY BE DIFFERENT THAN THE SCOPE OF THE ITEM BEING 
MONITORED, THEREFORE* A NEW FNTRY IS MADE IN INFO 

WITH The current level counter and the additional 

MONITORING INFORMATION. 

*********F0RmAT of INFO FOR MONITORED I TEMS*»*******« 

ALL MONITORED HEMS- MONITOR BIT tHU IN Thf CLBAT 

word will be set, 
simple variables- a new entry is made in info with 
one extra word which contains the addrfss of 

The MONITOR FILE IN [371113, I WILL HAVE A 
DEFINE SVaRMONFILE « [37lll]l, 

ARRAYS- A NEW ENTRY IS MADE IN INFO WITH THE SAME 
NUMBER OF WORDS AS THE ORlGlONAL ENTRY. THE 
MONITOR FILE IS REMEMBERED IN [27J11] OF ThE 
FIRST WORD OF ADDITIONAL INFO. I WILL HAVE A 
DEFINE ARRAYMONFILE ■ r27Jinf, 

SUBSCRIPTED VARIABLES- ThE TECHNIQUE FOR HANDLING 

SUBSCRlPTLD VARIABLES IS IDENTICLE TO THE 

Technique for arrays except that each word 
of imfo containing lower bound inf0r|«ati0n 
Also contains monitor information* either 
A literal or an address will be Contained 

IN BITS 1121113. IN Clllll IS A BIT THAT 
DESIGNATES WRETheR AN OPDC OR A LiTC 

Should be generated using nztin: if the 

Bit is 1 THEN AN OPDC WILL BE GENERATED* 
ELSE A LiTC, IF AN OPDC IS GENERATED iT 
MAY BE ON A SiMPLF VARIABLE, OR ON AN 
ACCIDENTAL ENTRY PROGRAM DESCRIPTOR, THE 
PURPOSE OF THE L|TC OR OPDC IS TO PASS 

Si* 10 The printi routine, 
labels- the first word of additional info contains 

The ADDRESS OF THE FU.E OESCR-IPTofi IN THE 

origiOmal entry in BITS tiaiin. i will have a 



10439000 
10440000 
10441000 
10442000 
10443CU)0 
10444000 
1044S000 
10446000 
10447000 
10446000 
10449000 
10450000 
10451000 
10 4520 00 
10453000 
10454000 

1 04550 ao 

10456000 

10457000 

10456000 

10459000 

10460000 

10461000 

10462000 

10463000 

10464000 

10465000 

10466000 

10467000 

10466000 

10469000 

10470000 

10471000 

10472000 

10473000 

10474000 

10475000 

104 76000 

10477000 

10478000 

10479000 

10480000 

10481000 

104S2000 

10483000 

10484000 

10485000 

10486000 

10487000 

10488000 

10489000 

IO49OOOO 

104»1000 

IO492OOO 

IO493OOO 

IO4940OO 

10495000 



0003I0877I2 

0003I0677J2 

00031087712 

00031087712 

0aM4 0877l2 

00031087712 

00031087712 

00031 0477i2 

00031087712 

00031087712 

00031087712 

00031087712 

00031087712 

00031 QA7712 

00031087712 

00031087712 

0.003r0877l2 

00031087712 

00031067712 

0003I0877J2 

00031067712 

00031087712 

00031087712 

00031087712 

00031087712 

00031067 712 

00031087712 

00031087712 

000^1087712 

0003»0677t2 

00031087712 

00031087711 

00031087712 

0003P0877I2 

00031067712 

00031067712 

00031087712 

0001lQa7712 

00031087712 

00031087712 

00031 Qfl77l2 

00031087712 

00031067712 

00531087712 

0003»0677I2 

00031087712 

0003! 087712 

00031067712 

00031067712 

aOQ3J 0.47712 

00031067712 

0003«0877«2 
0aO3J-0a7 7-1-2 
00031067712 
00031067712 

00011 0A7 7X2 

00031087712 



4 

i 
i 

i 



DEFINE UAbLMON 
SWITCHES- THF MONITO 

1 WILL HAVE 
FUNCTION DpSfGNATORS 
WITH THE SAM 
ORiGlONAL EN 
REMEMBERED I 
ADDITIOKAL I 

funCmonfile 

nEFINF- FJLEIDENT b RR7#> 
DEFINE SUBSCRIPT m RRl#l 



FILE « [13111]!, 

R IS THE SAME AS THAT FOR LABELS. 

A DEFINE SWlTMONFILE « tl3lini. 

- A NEW ENTRY IS MADE IN JNFO 

E NUMBER OF WORDS AS THE 

TRY. THE MONITOR FILE IS 

N [271111 OF THE FIRST WORD OF 

NFO, 1 WILL HAVE A DEFINE 

» t27ini#i 

COMMENT FILEIDENT CONTAINS 



DEFINE NOD 

DFFINE INC 

DEFINE FLB 

DEFINE OPL 



IM « rr?«} com 

DIME 
VARI 

« RR3#> COMME 
ADDITI 
A NEW 
ATwORd « RR4#J 



IT » RRuti 



THE 

ADDRESS OF THE MONITOR FILE* 

COMMENT SUBSCRIPT IS USfD TO 
SAVE The ADDRESS OR VALUE OF A 
SUBSCRIPT. ONE ADDITIONAL BfT IS 
USED TO TELL WHETHER TO EMIT AN 
OPDC OR A LITC ON THIS ADDRESS OR 
VALUE* 

MEnT NODIM CONTAINS THE NUMBER OF 
NSiOnS OF AN ARRAY OR SUBSCRIPTED 
ABLE APPEARING IN A MONITOR LIST; 
NT INC CONTAINS THE LINK TO 
ONAL INFO AND IS USED WHFN MAKING 

entry in info for arraysl 
comment elbatworo contains the 
elbat word for a monitor list 
element; 

COMMENT OPLIT IS USED FOR MARKINq 
UBSCRIPTED VARIABLES TO TELL ME 
HETheR to EMIT AN OPDC OR A LiTC. 

IS USED FOR OPDC. 1 FOR LfTCI 
COMMENT TeSTVARB CONTAINS A LINK 
OINTING AT THE END OF ADDITIONAL 
NFO AND IS USED TO TELL WHEN TO 
TOP MOVING INFO FOR THE NEW ENTRY 
OR MONITORED ARRAYS! 
i COMMENT NXTINFOTEMP CONTAINS A 
LINK POINTING AT THE FjRST 
ADDITIONAL WORD OF INFO FOR 
MONITORED ARRAYS; 
DEFINE INSERTFIlE « 27«37tll#; COMMENT INSeRTFILE IS THE 

CONCATENATE DEFINE FOR 
STUFFING THE MONITOR FILE 
ADDRESS INTO THE FIRST 
ADDITIONAL INFO MORD FOR 
ARRAYS AND FUNCTIONS! 

COMMENT NOPARPART IS A 
PARTIAL WORD DESIGNATOR fAO 
lej USED TO EXTRACT THE 
NUMBER OF PARAMETERS FOR A 
GIVEN PROCEDURE FROM INFOI 
:OMMENT NOPaR CONTAINS THE NUMBER 

PARAMETERS FOR A FUNCTION 
■SigNaTOR APPEARING IN A MONITOR 
[ST; 

:N START IS REACHED. I MUST BE 
THE FILE IDENTIFIER IN ThE 

.aration; 



s 
w 



Define testvarb ■ rr5*; 

p 
I 
s 

F 
DEFINE NXTINFOTeMP « RR6# 



DEFINE NOPARPART « NOOIMPARTI; 



DEFINE NOP 



LABEL STAR 



AR ■ NOolMil C 
OF 
DE! 
LI 

t; comment whei 
pointing at 
monitor oecl' 



10496000 
10497000 
I049a000 
10499000 
10500000 
10501000 
10502000 
10503000 
10504000 
10505000 
START OF SEGMENT 
10506000 
10507000 
10508000- 
10509000 
lOSlOOOO 
10511000 
10512000 
10513000 
10514000 
10515000 
10516000 
10517000 
10518000 
10519000 
10520000 
10521000 
10522000 
10523000 
10524000 
10525000 
10526000 
1052700Q 
10528000 
10529000 
10530000 
10531000 
10532000 
10533000 
10534000 
10535000 
10536000 
10537000 
10538000 
10539000 
10540000 
10541000 
105A20DQ 
10543000 
10544000 
105A5QOO 
10546000 
10547000 
10548000 
10549000 
10550000 
10551Q0Q 
10552000 



00031087712 
00031087712 
00031 0877 1 2 
00031087712 
00031087712 
01)011.0.87712 
0003t0877t2 
00031087712 
0003(087712 
00031087712 

«******4'*4i J24 

T 01 24 J 0000*0 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
0124100004 
01241000010 
01241000010 
O124I0O0O10 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
O124I00OO1O 
0124(000010 
01241000010 
0124I0QOO10 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01241000010 
01Z4100jOOIO 
01241000010 
01241000010 
Dl24i&0.O.QlQ. 
012410000(0 
01241000010 
01241000011} 
012410000(0 
01241000010 

0124.100001.0 

01241000010 
01241000010 
0l2Alfi0QOlQ 
01241000010 



LABEL MARkMONITOReD 



LABEL STORESUBS; 
LABEL CHKCOMMA; 



LABEL EXIT 

STARTMF ELCLASS 

BEGIN IF ««? 

••6EXP 

END 

COMMENT IH 
rite 

FILEIDCNT* 

IF CHECKfL 

Then ro to 
comment er 

MARKMONfTORFntSTEPrTI 

if range(b 
Then begin 



c 

RE 
EA 
CO 
POI 
MON 

PRO 
J COmMeN 
''FILEID T 

"5tndex«» 

0V»« Or q« 
ERR(«00)l 



; comm 

TURNS 
i^ORD 
IT IN 

omment 

MEMBERS 
CH SUBS 
MMENT C 
NTiNG T 
ITOR LI 
CESSEDl 
T EXIT 
HEN 

OR Qb''^ 

"AZEROO 

GO EX 



ENT THE CODE AT MARKMON I TOREO 
ON The MONITOR BIT OF THE ELBAT 

IN THE MONITOR LIST AND STORES 
ACCUM[0] FOR THE E ROUTINEI 

STORESUBS IS THE CODE TrAT 
ALL THAT IS NECESSARY ABOUT 

CRIPT EXPRESSION! 

HKCOMMA REQUIRES THAT I BE 

HE LAST LOGICAL QUANTITY OF THE 

ST ELEMENT THAT HAS JUST BEEN 

EXITS THE MERRIMAC PROCEDURE^ 



FLAGO" OR Qw 
••THEN MERRIM 
ITI 



"eiNTOV OR Qi 
AC..TRUE ELSE 



ROR 400 IS MISSING FILE ID IN MONITOR DfO 

CKERCELBATciDJ 

ELBATrn.AODRESSI I*I*U 

EFTPARENf40i) 

EXlT> 
ROR «01 IS MISSING LEFT PARENThSIS IN MONITOR! 

ACCUMtO]»-ABS(ELBATtn)! 
OOiOf fNTiD) 

COMMENT THIS CODE HANDLES SIMPLE VARIABLES! 
E! PUTNBUMPCFILEIDENT)! 

30 CHkCOMMA] 



end; 

!F RANGE(B1 

Then begin 



iooarrayi 

COMMENT 
SUBSCRIP 
E! 

putnbump 
testvaRb 

ELBATwOR 

00 putnb 
until in 

IF TABLE 

Then gO 
testvaRb 

STePIT! 
STORfSUBSj IF(RR3*T 
STEP! * 
THEN BEG 



DflNTARRAYIO) 

This code handles arrays and 

TEO VARIABLESI 

NXTINF0TEMP«.NEXTINF0> 
CNOOIM-TAKEFRSTiFILElDENTCINSERTFILE])! 
"(NOOlMvNODlM, NODIMPART )*CINC«.C 
D*EL8AT[I)).LINK+ELBATW0RD.1NCR)! 
UMP(TAKE(lNc*lNC*n) 
C i TESTVARB! 

(1*1) * lftbRket 

chkcomma! 

•nodim*nxtinfotemp; 

ABLE(I+2) • COMMA OR RR3 • RTBRkeT) AND 
NONLITNO 

IN COMMENT THIS IS THE SIMPLE CASE OF 
SUBSCRIPTED VARIABLES, EITHER A LiTC 

OR AN OPDC ON A VARUBUE iS ALL ThAT 

15 NEEDED TO CAUL THE SUBSCRIPT! 

SUBSCH I PT^ELBATfiJ. ADDRESS! 

0PLIT«.0J 

IF NOT RANGEf I NTRnSI CPROC I D» INT ID) 

Then if check(Litno»402) 

THEN GO TO EXIT 
ELSE COMMENT MARK FOR LITC! 
OPLIT*!! 
COMMENT ERROR 402 IS BAD 
SUBSCRIPT IN MONITOR DECLARATION! 



10553000 
10554000 
10555000 
10556000 
IQ557OOO 
10558000 
IO559OOO 
10560000 
10561000 
10562000 
4056-JOOO 
10564000 
10565000 
1056S1QQ 
10565200 
10565300 
10564000 
10567000 
10566000 
10569000 
IO57OOOO 
10571000 
1 0572000 
10573000 
10574000 
10575000 
10576000 
10577000 

lOSZAO-OO 
10579000 
10580000 
10581000 
10582000 
10583000 
105840Q0 
10585000 
10586000 
10587000 
10588000 
10589000 
10590000 
10591000 
10592000 
1Q59J000 
10594000 
10595000 
10594000 
10597000 
10596000 
10§96S^00 
10599000 
10600000 
I06.a4i)0^ 
10602000 
10603000 
106Q4QOO 
10605000 



01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

01241000010 

O|24J0i)O.0J0 

01241000010 

01241000010 

01241000011 

01241000410 

01241000712 

0|24|00|4IO 

0124(001410 

01241001410 

01241001512 

0l24t00iei0 

0124I0018U 

01241001913 

0l24t00l9t3 

01241002211 

01241002312 

0l24t0024t0 

01241002512 

Qia4iQ0«-il3 

01241002513 

01241002610 

01241 00^712 

0l24i0027<2 

01241002811 

01241003112 

01241003210 

0124(003610 

01241003713 

01241003913 

01241004011 

O124I0O4U3 

01241004312 

01241004313 

01241004X12 

0124!0047!3 

01241004912 

Q|24iQ049ia 

01241004912 

0l24t0049!2 

01241005011 

0124I0051!2 

0124I0051«3 

Ol24Ji)fl4Al-3- 

01241005410 

0124(005410 

0124i0j055l 3 

01241005513 



ELSE BEGI 



STEPITI 



N rOMM 
SIIBSC 
SUBSC 
AND J 
PKOGK 
ADDRE 
MUST 
JUMPC 
ADES» 
JUMPC 
OPLiT 
IF MO 

Then 



ENT T 

ripte 

RIPT 
UMPEO 
AM DE 
SS SA 
BE MA 
HKNX} 
LiO)) 
HKXI 
fOl 

DE > 
BEGIN 



HIS IS THE SPECIAL CASF OF 
D VAHIABLCS. CODE FOR THIS 
EXPRESSION MUST BE GENERATEn 
AROUND* AN ACCIDENTAL ENTRy 
SCRIPTOR CREATED AND THE 
VED IN SUBSCRIPT, SUBSCRIPT 
RKED FOR AN OPDCI 

SUBSCRlPT*PROGDEScBLOR( 
AEXPI EMiTOcRTS)! 



ENOI 



COMMENT STUFF F AT THIS 
POINT IF MODE > O; 

stufffcsubscript);emitpaiR( 
subscript. std)i 



ENDI 
PUT(TAKE( 
SUBSCRIPT 

NXTlNpOTE 
IF ELcLaS 
THEN GO T 
IF CHfCKC 
THfN gO T 

COMMp-NT 
EXPRESSiO 
IF NXTINF 

Then begi 



NXriNFOTEMP*NXTlNFOTEMP+l) i 
[12»37»113 & 0PLITI11I47I01], 

kiO t • 



MP)| 

S a. COMMA 

STORESUBSI 

RTBRKET.403) 

EXIT! 



F^DJ 
60 CHKCOM 

end; 
if elclass « labeh 
Then begin comment 

IFfELBATW 
THEN BEGI 



u EA M * 

ERROR 403 IS IMPROPER SUBSCRIPT 

N DELIMITER IN MONITOR LIST ELfMENTI 

OTeMP * TESTVARB 

N comment error 404 MONITOR LIST 

ELEMENT HAS IMPROPER NUMBER Of 

SUBSCRIPTS! 

I*I-1J eRR0R(404)I go TO EXIT! 



IF 



LEVEL* 
BEGIN 
t%% CO 

%%% FN 
PUT(TA 



MAI 

d or el-class » shitchid 

This code handles labels and switches; 

ORD*ELBAT[n),LVL * LEVEL 
N COMMENT ERROR 405 MEANS LABEu OR 
switch MONITORED AT IMPROPER LEVELI 
ERR0RC405)I 60 TO EXlTI 

end; . 

PUT(TaKeFRST i FIUEIDENT[13I37I11]»GIT(ELBATCI]) 

); 

PUT (TAKE (I 

elbati 
end; 

IF RANGE(BOOPR0cln» 

Then begin comment 
E n 

fPR2*ELBATri]).UVL ThEN 



:ELBATW0R0)&(0''ABSCEUBATW0RD))CllH343f 

WORD); 60 chkcomma; 

intprocid) 

This code handles functions; 



PY forward bit from ELBATni INFO ENTRY INTO MONlTOR^S fNFO 

TftY» AND Then turn Off the elbatiu info entry^s forward bit, 

KE(LASTINF0+1) & TAKe( RR2 . LI NK + 1 ) t 1 » 1 1 1 ] ,LAST I NFO + 1 ) ; 



10606000 

10607000 

10608000 

10609000 

10610004) 

10611000 

10612000 

10613000 

10614000 

10615000 

1061 6000 

10616500 

10617000 

10616000 

106}9000 

10620000 

10621000 

10622000 

10623000 

10624000 

10625000 

10626000 

10627000 

10628000 

10629000 

10630000 

10631000 

10632000 

10633000 

10634000 

10635000 

10636000 

10637000 

10638000 

10639000 

10640000 

10641000 

10642000 

10643000 

10644000 

10645000 

10646000 

10647000 

10648001} 

10649000 

10650000 

l065tft^Hi- 

10652000 

10653000 

10654^00 

10655000 

10656000 

1Q6W0|X» 

10656011 

10656012 

10656013 

10656014 



01241005513 
01 24 1 005610 
01241005610 
01241005611 
042 4 too WU 
01241005611 
01241005611 
0i24i00§6il 
01241005611 
01241005611 
0U4I-0057I2 
01241006010 
01241006011 
01241006112 
0l24t0061t3 
0l24t0062*l 
01 241 006211 
01241006313 
0124*006410 
01241006410 
01241006410 
01241006610 
0l24f0068{0 
01241006811 
0124I0069»2 
01241007010 
01241007011 
01241007113 
0i24»a07tl4 
01241007113 
01241007210 
J 24100X3-12 
01241007312 
01241007312 
Ol24jaor5l3 
01241007513 
01241007610 
0124 10076 to 
01241007712 
01241007810 
01 241007 9.1 i 
01241008011 
01241006011 

01241008210 

0l24t0084;0 

04.24AX10A54.2- 

01241008713 

01241008811 

Ol2ikiOM&i4 

0l24;00e9t2 

0124(009010 

04^Jfl04W)i4- 

01241009211 

01241009312 

0424-l-aaSia42 

01241009312 



PUT(/\BSrTAKr(RR2.UlNK*l)).RR?,LlNK + l) I 



PUTNBUMPfNOPAR * TAKEFRST & 

FILEIDENTCINSERTFIUE])^ TESTVARB«-CN0PAR 

♦NOPAR, NOPARPART )+( I NC*(ELBATWORO*EtBATf H ) , 

LINK*ELBATWORD,INCR)* 

DO PUTNBUMPf TAKECINC*INC+1)) 

Until inc fc testvarb; 

GO chkcommaj 



ER 

c 

chkcommahf 
th 

IF 

Th 
c 



END 

RORcao 

omment 

stePi 

EN GO 

CHFCK 
EN GO 

omment 



monitor list euementi 



IF STfPI 

Then qO 

IF CHECK 

Then go 

COMMENT 

delimhe 
stePit* 

FXITI) 

FND MElRRiMAC; 



6)1 GO to EX|T| 

ERROR 406 IS IMPROPER 

a COMMA 
MaRKMONtToREDI 
CRTPaREN»407) 
TO EXITI 

error ftor is missing right parenthesis in monitor 
declaration! 
» Semicolon 

TO EXiTi 
{C0MMA»408) 
TO EXlTj 

E:RR0R ft08 MEANS 
Rj 

60 TO START! 



IMPROPER MONITOR DECLARATION 



124 IS 



10656015 T 

10656016 T 
10656030 T 
10657000 T 
10658000 T 
10659000 T 
10660000 T 
10661000 T 
10662000 T 
10663000 T 
10664000 T 
10665000 T 
10666000 T 
10667000 T 
1066B000 T 
10669000 T 
1067QO00 T 
10671000 T 
10672000 T 
10673000 T 
10674000 T 
10675000 T 
10676000 T 
10677000 T 
10678000 T 
10679000 T 
10680000 T 

127 LONG. 



0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
012 A 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
NEXT 



1009810 
I0i02t0 
10102(0 
1010211 
t0l04tl 
}0l06ll 
tOl09l3 

1011313 
1011410 

iaji4to 

1011512 
t0U5l2 
10 116 11 
1011713 
10118(0 

iou9ia 

t0li9(2 
1011912 
1044913 
(0120(1 
10121(2 
1012211 
(0122(1 
(0122(1 
1012313 
(0124(0 
SEG 3 



PRT(1065) s nMiJP 



PROCEDURF HMUP; 



10681000 T 0003(0877(2 



BFGIN COMMENT 

THERE ARE FOUR 
ARE LABELS* SiMpL 
ARRAYS, 

The dmup routtN 
The information t 
OF Reference i wo 
The parentheses a 

A dump hiST ELEmE 

have a counter as 
by one each time 
counter is kept i 
word of info. th 
The code generate 
First additional 
The code That i 

INITIALISE The CO 

Entry tq the bloc 

OTHER type code I 

. This code then 
dump indicator, 
IF They are equal 

FOR EACH DUMP LiS 



15 JULY 1963 
TYPES OF DUMP LIST ELEMENTS, THERE 
F VARIABLES* SUBSCRIPTED VARIABLES. AND 



F GENERATES 
hAT iS SAVED 
ULD LIKE TO 

s The dumpor 

NT A OUmPEE. 

sociaTed wit 
the label is 

N BITS [2(11 
E address of 

by dmup is 
word of info 
s generated 
unters menti 
K Containing 

S ONLY EXECU 
COMPARES th 

if They are 

it then PRO 
T ELEMENT, 



CODE AND SAVES INFORMATION, 
IS OF TWO TYPES. FOR EASE 
DEFINE THE DUMP LABEL OUTSIDE 
. AND ANY LABEL APPEARING AS 

BOTH DUMPORS AND OUMPEES 
H them which IS INCREMENTED 
PASSED, The ADDRESS OF THIS 
J OF THE FIRST ADDITIONAL 
THE PROGRAM DESCRIPTOR FOR 
KEPT IN BITS C24(in OF THE 
FOR THE DUMPOR, 
IS OF TWO TYPES, CODE TO 
ONED ABOVE iS EXECUTED UPON 
THF DUMP DECLARATION, THE 
TED WHEN THE DUMPOR I S PASSED 
E DUMPORS COUNTER WITH THE 
NOT EQUAL IT JUMPS To EXiT. 



CEEDS TO CALL PRINT! ONCE 

FOR A DESCRIPTION OF PRlNTl 



10682000 
10683000 
10684000 
1Q68S0QQ 
10686000 
10687000 
10688000 
10689000 
10690000 
10691000 
10692000 
10693000 
10694000 
10695000 
10696000 
10697000 
10698000 
10699000 
10700000 
10701000 
10702000 
107^3000 
10704000 



T 0003l0a77i2 

T 0003(0877(2 

T 0003(0877(2 

T 00031087712 

T 0003(0877(2 

T 0003(0877(2 

T 00031 047712 

T 000310877(2 

T 00031087712 

T Q003liia.ZZI2. 

T 0003(0877(2 

T 000310877(2 

T 000310871(2 

T 0003(0877(2 

T 0003(0977(2 

T Oa03lO«7Jl2 

T 0003(0877(2 

T 00031087712 

T 04)^-1087-712 

T 0003* 0877 (2 

T 0003(0877(2 

I -0XX04 1-0477*2- 

T 0003(0877(2 



See the comments for the merrimac routines 

LABEL START! COMMENT WHEN STaRT IS REACHED, I MUST BE 



.ABEL EXiTJ 



POfNTiNG AT THE FILF INDENTIFIER IN THE DUMP 

DECLARATION) 

COMMENT EXIT APPEARS AT THE END OF ThE DMUP 
ROUTINE. NO STATMENTS ARE EXECUTED AFTER IT 
iS REACHED^ 



START OF 



DEFINE FILEIDENT » RRi#l 
LABEL SIARTCALLI 



STACKfF4?) * LABELCTR 



COMMENT FIuEIDEnT CONTAINS THE 
ADDRESS OF THE MONITOR FILEI 
COMMENT THE CODE AT STARTCALL GENERATES 
CODE TO CAUL THE PRiNTi ROUTINE, WHEN 
STARTCALL IS REACHED* I MUST BE POINTING 
AT The CHARACTER IMMEDIATELY BEFORE THE 
DUMP LIST ELEMENT TO BE PASSED TO PRiNTll 
DEFINE NODIM « RR?#» COMMENT NODIM CONTAINS THE NUMBER OF 

DIMENSIONS OF AN ARRAY OR A 
SUBSCRIPTED VARIABLE APPEARING IN A 
DUMP LISTI 
DEFINE LEXIT » RR3#» COMMENT LEXIT CONTAINS THE PROGRAM 

COUNTER SETTING AT WHICH CODE IS 
GENERATED TO EXIT THE ROUTINE EMITTED 
BY DMUPI 
DEFINE DUMPETEMP « HK2#; COMMENT DUMPETEMP HOLDS THE 

LOCATION OF THE COUNTER 
ASSOCIATED WITH THIS LABEL IF 
SPACE HAS BEEN ASSIGNED FOR \J I 
COMMENT DiMCTR IS INITIALIZED TO 
NODIM, IT IS THEN COUNTED DOWN TO 
ZERO AS SUBSCRIPT CODE IS GENERATED! 
COMMENT The CODE AT PASSN PASSES N fTHE 
NUmBER of DIMENSIONS) TO THE PRINTI ROUTINE! 
OPi COMMENT The CODE AT SUBSLOOP PASSES 

SUBSCRIPTS TO PRINTI! 
TR[0«lOO]» COMMENT LABELCTR IS AN ARRAY THAT 



DEFINE niMCTR e RR3#! 

LABEL PASSN! 
LABEL SUBSLO 
ARRAY LAHELC 



HOLDS THE ADDRESSES OF ALL LABEL 
COUNTERS FOR LABELS APPEARING IN 
THIS DUMP DECLARATION, IT IS 
NECESSARY TO RETAIN THIS 
INFORMATION SO THAT CODE MAY BE 
GENERATED AT THE END OF THE 
DECLARATION TO INITIALIZE THE 
COUNTERS! 
CTEFlNE LABELCTRINX « RR4#I COMMENT UABELCTRINX IS THE 

VARIABLE USED TO INDEX INTO THE 
LABELCTR ARRAY! 
DEFINE DUMPe « 2l37;ii#! COMMENT DUMPE IS THE 

CONCATENATE DEFINE FOR INSERTING 
The COUNTER ASSOCIATED WITH THIS 
ISABEL INTO The FIRST ADDITIONAL 
WORD Of INFO! 
DEFINE LWRBNd = RR5#! COMMENT LWRBND CONTAINS Thf LOWER 

BOUND FOR MONITORED SUBSCRIPTED 
VARIABLES! 
DEFINE PORMATTYPE « RR5#J COMMENT FORMATTYPE IS THE 

FORMAT TYPE REFERRED TO IN THE 
COMMENTS FOR THE MFRRlMAC 



0705000 
0706000 
SEGMENT 
0707000 
0708000 
0709000 
0710000 
0711000 
0712000 
0713000 
0714000 
0715000 
0716000 
0717000 
0718000 
0719000 
0720000 
0721000 
0722000 
0723000 
0724000 
0725000 
0726000 
0727000 
0728000 
0729000 
0730000 
0731000 
0732000 
0733000 
0734000 
0735000 
0736000 
0737000 
0738000 

0739000 
0740000 
0741000 
0742000 
0743000 
0744000 
0745000 
0746000 
0747000 
0748000 
0749000 
0750000 
079100O 
0752000 
0753000 
0754000 
0755000 
07S6OQO 
0757000 
0758000 
075900O 
0760000 



T 0003 
T 0003 

T 0125 

0125 
0125 
0125 
0125 
0125 
0125 
0125 
0195 
0125 
0125 
0125 
0125 
0125 
012§ 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 



1087712 
«0877t2 
•** 125 
lOOOOtO 
lOOOOlO 

jOQooro 

lOOOOtO 

iooooto 

I OOOO 14) 
iOOOOlO 
fOOOOlO 
\ OOOOi 
IOOOOlO 
IOOOOlO 

tooooio 

IOOOOlO 
IOOOOlO 
100004 
tOOOOlO 
IOOOOlO 
iOOOOlO 
IOOOOlO 
IOOOOlO 
I OOOOJ 
IOOOOlO 
IOOOOlO 
IOOOOlO 
IOOOOlO 
IOOOOlO 
IOOOOlO 
IOOOOlO 
IOOOOlO 
too 00 10 
IOOOOlO 
IOOOOlO 



T 01251000113 

T 01251000113 

T 01251 DOOM 3 

T 01251000113 

T 01251000113 

T 012-5I0O0H3 

T 01251000113 

T 01251000113 

T 01351000113 

T 01251000113 

T 01251000113 

T OUaj 000.11 3 

T 0l25i00OJI3 

T 01251000113 

I 0125IQ0Q113 

T 01251000113 

T 01251000113 

T Ql25100fllU. 

T 01251000113 

T 01251000113 

T OU5-i0aO4l3- 

T 01251000113 



REFINE riNALL « RR5#, 



DEFINE TeSTloC m RR6#J 



DEFINE DUmPR s 



STARTMP CHE:C 

Then go 

COMMENT 

FILEIDE 
IF CHEC 

Then gO 
comment 

JUMPCHK 
CAOES*L 

uabelct 
startcalliemitocm 
tl))» 

TF Rang 
thfn be 



ROUTINE DESCRIBING PRlNTH 
comment FJNALL is a TEMPORARY CELL 
USED TO HOLD L WHILE THE DUMP 
INDICATOR TEST CODE IS BEING 
GENERATED! 

COMMENT TESTLOC CONTAINS THE 
LOCATION OF THE CODE THAT mUST BE 

generated to make the test to 
determine whether or not dumping 
Should occuri 

24»37«jUi COMMENT DUMPR IS THE 

CONCATENATE DEFINE USED TO 
INSERT THE ADDRESS OF ThE 

program descriptor for the code 
generated from the dump 
Declaration; 
comment dumploc contains the 
address of the program descriptor 
that describes the code generated 

BY DMUp; 
RR8#> COMMENT ELBATWORD CONTAINS THE 
ELBAT WORD FOR THE DUMP LIST 
ELEMENT CURRENTLY BEING OPERATED 

on; 

COMMENT CALLPRINTI FINISHES THE CALL 
ON PRiNTi, IT GENERATES THE CODE TO 
PASS TYPEV, POWERSOFTEN, ID, CHARl, 
FILE» AND FORMAT TYPE; 
RR9#; COMMENT SUBSCTR CONTAINS THE 

DIMENSION NUMBER THAT IS CURRENTLY 
BEING WORKED ONI 
K(FILEI0,409) 
To EXIT; 

ERROR 409 MEANS MISSING 
CHECKERfELBATti]); 
NT*ELBATfn, ADDRESS; 
K(LEFTPAREN»410) 
TO EXIT; 

means missing left 
adjust; 
testloc*li 

EMiTO(NOP); 

stepiti 



DEFINE DUMPLOC ■ RR7*i 



DEFINE FLBATwORD 



label CALLPRlNTr; 



DEFINE SUPSCTH 



FILE ID IN DUMP DEC! 



stepit; 



ERROR 
NXJ 

.oj; 

RlNX#.-i» 

kS); 



4l0 



PAReN IN 
DUMPLOC 
L«iLi3) 

bumpl; 

ELBATWORD* 



DUMP dec; 
progoescbldr 



■ABSfELBAT 



ErBOOARRAYfDMNTARRAYlO) 

GIN COMMENT ThiS CODE HANDLES ARRAYS AND 

SUBSCRIPTED VARIABLES; 

NOdiM«.0|MCTR»TAKEFRST,NODIMPARTI 

IF STePi « lftbrket 

Then begin comment this code handles subscripted 

variables; 

stepit; aexp; EMiTOfOUp); 

SUBSCTR»il 

1F(LWRBn0*TAKE(GIT(ELBATW0RD)*SUBSCTR) 
),t35ll33 # 

Then begin comment subtract off the 

. LOWER bound before INDEXING; 



10761000 

10762000 

10763000 

10764000 

10765000 

10766000 

10767000 

10768000 

10769000 

10770000 

10771000 

10772000 

10773000 

1 0774-0 QO 

10775000 

10776000 

10777000 

10778000 

10779000 

10780000 

10781000 

10782000 

10783000 

10784000 

10785000 

10786000 

10787000 

10788000 

10789000 

10790000 

10791000 

1Q792OO0 

10793000 

10794000 

10795QQQ 

10796000 

10797000 

10799000 

10799000 

10800000 

l0Afl4.000 
10802000 
10603000 
1 0804000 
10805000 
10806000 
10*07000 
10808000 
10809000 

loeioooo 

lOSilOOO 
10812000 
I 08 13000 
10814000 
lOBlSOOO 
10616000 
10817000 



T 0125J0001I3 

T 0125I00OH3 

T 0i25»000H3 

T 0l25»000lt3 

T 0125IQ00M3 

T 0125(000113 

T 01251000113 

T 0125IO0O4I3 

T 01251000113 

T 0125J0001»3 

T Q1251Q001I3 

T 0125I0001U 

T 01251000113 

T 01251000113 

T 0125»0001»3 

T O125IO0OH3 

I 0455.10-00111 

T 01251000113 

T 01251000113 

T 012^1000413 

T 01251000113 

T 01251000113 

T 01251 0004*3 

T 0125I000H3 

T 0125;0001I3 

T 04 25; 0001 1 3 

T 0l25l0001»3 

T 01251000113 

T Ql2SlOQflil3 

T 01251000113 

T 0125I0001II 

T 0125IQ0Q1O 

T 01251000211 

T 0125I0003J3 

T 01 25 1 000 31 3 

T 01251000411 

T 0125;0006«1 

T 012510007.12 

T 01251000811 

T 01251000811 

T 012^1000913 

T 01251001312 

T 0125»0016;0 

T oi25ioaieio 

T 0l25»00l9l3 

T 01251002010 

T 01 2^1 00*4 12 

T 01251002112 

T 0125;0023I2 

T 0l25lfl0aiU 

T 0l25;0024ll 

T 01251002411 

I OU5l-0fl«-6ll- 

T 0l25«0027t2 

T 01231002810 

T 0.42510030.10 

T 0125;003H2 



IF LWRBND,t46l2J « o 

Then emitcuwrbnd) 

else emitv(lwrbnd,c35i111); 

EMlT(LWRBND.[23ll2])| 

endi 
if dihctr-subsctr • 
Then begin comment pass subscript, 

VALUE»NJ 

EMI TV (ELBATWORD. ADDRESS) I 
PASSNiFMlTLCNODIM)! 

IF CHECK(RTBRKET.4in 
THEN GO TO EXITJ 

COMMENT ERROR 411 MEANS 
DUMP LIST ELEMENT HAS WRONG 

NUMBER Of SUBSCRIPTSI 
F0RMaTTYPe*2) GO CaLLPRINTj 
END* 
EM I TN (ELBATWORD, ADDRESS) I 

subslOop»emito(Lod)J stepit; aexpi 
emitlcjunk)! emlt0(sno)» 

SUBSCTR#.SUBSCTRill 

IF(LWRBND«.TAKE(GlT(ELBATWORD) + SUBSCTR) 
),f35»13] * 

Then begin comment subtract Off the 

lower bound before indexingi 

IF LWRBND,[46I2] m 

thfn emitclwRbnd) 

else EMlTV(LWRBND,C35lin)J 

emitclwrbnd. c23»12])| 

endj 

IF OlMCTR*SUBSCTR « 

Then begin comment emit coci 

emito(coc)i emitv(junk 

)l EMITOCXCH)! 
GO PASSNI 

END* 
EMITO(CDC)J EMI TVC JUNK) IFMIT0(XCH)» 
IF CHECK(cOMMA.412) 

Then go to exit 
ELSE go to subsloop; 

comment error 412 MEANS 
element has wrong NUMBER 

fnd» 

comment this code HANDLES ARRAYSI 

IF ELcLaSS * COMMA AND ELCLASS # RTPAREN 

Then begin comment eRRor 4i3 means improper 

ARRAY dump list ELEMENT? 

err(413)i go to cxiti 
fNo> 

em I TPa IRC ELBATWORD, ADDRESS, L0D)1 EMI TL(N001M)I 



DUMP LIST 

OF SUBSCRIPTS 



F0RMATTyPE*4» 
END* 

FORMATTyPE#-jJ 

IF Rangecbooidmntid) 
Then begin commfnt Th?s 



I*I*U 



GO CALLPRINTII 



END» 



EMI TVrELBAT WORD. ADDRESS) J 



CODE HANDLES SIMPLE VARIABLES? 



60 CALLPRINTII 



10818000 
10819000 
10820000 
10821000 
10822000 
10821000 
10824000 
10825000 
10826000 

ioe?rooo 

10828000 
10829000 
10830000 
10831000 
10832000 
10833000 
10834000 
10815000 
10836000 
10837000 
10838000 
10839000 
10840000 
10841000 
10842000 
10843000 
10844000 
10845000 
10846000 
1Q847000 
10848000 
10849000 
10B5QO0Q 
10851000 
10652000 
10653000 
10854000 
10855000 
1Q6S60Q0 
10857000 
10856000 
10859.000 
10860000 
10861000 
10862000 
10863000 
10864000 
10665000 
10866000 
10867000 
10A66000 
10869000 
10870000 
I Oft? 14)00 
10872000 
10873000 
1087400a 
10875000 



01251003112 

0125100310 

01251003312 

01251003512 

01251003611 

01254003611 

01251003712 

01251003810 

0125l00iai0 

01251003913 

01251004011 

12510041 IZ 

01251004211 

01251004211 

01251004211 

01251004211 

01251004312 

0125I0041M 

01251004512 

01251004611 

01251004810 

01251004913 

01251005011 

012510052*0 

0125(005312 

01251005312 

01251005410 

01251005512 

0l25l0057i3 

01251005-811 

01251005811 

01251005913 

01251 OOAQ It 

01251006113 

01251006211 

01251006312 

01251006312 

01251006513 

01251006.610 

01251006611 

01251006713 

ai2ai00.67l3 

01251006713 

01251006713 

0425100^11 

01251006713 

01251006811 

0125-10065 U 

01 29 1 0069 1 3 

01251007112 

042S4 00JriJ-2 

01251007312 

01251007513 

O42*+-007544- 

0125*007611 

01251007712 

1-251 OOJ-AIO 

01251007911 



i 



ip check(l- 

Then gO to 

comment f 

CODE HANDL 
PUTcTAKEFR 
IF DUm 
THEN G 
ELSE D 
EMiTVf 

labelctrin 
»el.batword 

EMITL{3)I 

caulprinti jfmitutpass 
powersofte 
em1tpair(g 

FiLElDENT)! 

emiTnumcforma 

EMlTVfGNAT(PR 
IF STEPI « 

Then begin 



END> 
IF ChECKCR 

Then go to 

comment e 

delimiter* 

lexit*li 

jumpchkxj 

if checkcl 

Then go to 

comment e 

putctakece 

elbatw 

if not loc 

PUT(TaKEFR 

IF DUM 

THEN n 

ELSE U 

EMiTLf 

BEGIN C 

EM 

END 

Until lab 

L*L-1» 

if check(c 

Then go to 

comment e 

FINALL*L> 
IF (GTl ♦■ 
AND GTl 
# COMMA 



DO 



ABELlDf^H) 
EXITI 

RROR nm MEANS ILLEGAL DUMP LIST ELEMENT, THIS 

ES LAbElSI 

ST & fLA8ELCTR[LABELCTRlNX»LABELCTRlNX*n» 

PETEMP»TAKEFRST,DUMPEE ■ 
ETSPACE(FALSE.-7) % LABEL DESCRIPTOR, 
UMPETeMP)[DUMPE]»GIT(ELBATWORO))I 

labelctrc 

X])j PUT{TAKE(ELBATW0RD) & ELBATW0RDCl«l«3fl] 

u 

IF FALSE Then 
type(fubatword)); EMITPAIRCGNaT( 

N),L0n)l PASSALPHA(ELBATWQR0)J 

NAT(ChARI),LOO)J PASSMONFILEf 

X109- 

TTYPEJ;CaRDNUMBER[1UU4])» X109- 

INTI))I J!l09- 

comma 

COMMfNT go around one more TIME! 
IF LABELCTRiNX • lOO 

THFN BEGIN COMMENT ERROR 415 MEANS LABELCTR IS 
ABOUT TO OVERFLOW WITH LABEL 
INFORMATION! 

ERR(415)I 60 TO EXiTI 
END» 
GO STaRTCALL* 

TPAREN»fll6) 

EXITJ 
RROR 416 MEANS ILLEGAL DUMP LIST ELEMENT 

EMlTL(O); EMIT0(RTS)» 

stfpit; 

ABELID»417) 
EXiTj 

RROR 417 Means missing dump label? 

LBATWORn-'-ABSCEl-'BATtl])) & ELBATWOROt 1 1 1 » 34] « 

ORo)» 

AL(ELrATWORd) then fLAG{417)I 

ST & (LABELCTRtLABELCTRlNX«.LABELCTRlNX*n* 

petemp*takefRst,dumpee « 

UMPETFMpl«6ETSPACE(FALSEf-7) X LABEL DESCR. 

UMPETEMP)[DUMPE3fGIT(ELBATW0RD))l 

0)j 

OMMENT THIS CODE INITIALIZES ThE LABEL COUNTERS! 
|TPA1RCLABELCT«[LABELCTRINX],SND) 

ELCTRiNX*LA8ELCTRiNX*i < 01 

EMiTOcSTD)! STEPIT! 
OLON.418) 

EXiTj 
RROR 418 MEANS HISSING COLON IN DUMP DEC! 

L*TESTLOC! STEPiT! 

TABLEd) * NONLITNO AND GTl # LiTNO 
< REaLiD and GTl > INTID) OR (GTl * TA8LE(I*U 
AND gTi * SEMICOLON) 



10876000 
10877000 
10878000 
10879000 
10680000 
10881000 
10882000 
10883000 
10884000 
10885000 
10886000 
10887000 
10888000 
10B8900Q 
10890000 
10891000 
10891100 
10691200 
10892000 
10893000 
10894000 
10895000 
1QB960QQ 
10897000 
10898000 
10899000 
10900000 
10901000 
10902000 
10903000 
10904000 
1Q90S000 
10906000 
10907000 
10908000 
10909000 
10910000 
10911000 
10912000 
10912100 
109.13000 
10914000 
10915000 
10916000 
10917000 
10918000 
10919000 
10920000 
10921000 
10922000 
10923000 
10924000 
10925000 
10926000 
10926500 
15926510 
10926520 



0] 
0; 
0; 
0! 

0! 

0! 
0] 
0! 
01 

0: 

01 
0! 

0; 

01 
0; 
Ol 
01 
01 
01 
01 
01 

0: 
0; 

01 

0: 
0: 

0' 

0: 



25 

251 

251 
251 

251 

251 

251 
251 

251 

251 

251 

251 

251 

25, 1 

25 

251 

25-1 

251 

251 

251 

251 

251 

251 

25 

251 

25 

25 

25 



04.25 



01 

0: 

01 
01 

o: 
0: 

01 

01 
01 
01 
01 

0; 

01 
0i 
01 

oi 

Ol 
Ol 
01 
0] 
01 
Ol 
Ol 
01 

01 
01 
01 
01 



25 

25 

25! 

25 

25 

25 

25 

25 

25 

25 

25 

25 

23 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 



0079 
0080 
0081 
0081 
0081 
0063 

0085 
0067 
0090 
0090 
0092 
0094 
0095 
0097 
0099 
01 



01 

03 

04 

05 

06 

06 

.0.7 

07 

07 

08 

06 

09 

09 

09 

11 

11 

11 

13 

14 

H 

16 

16 

19 

19 

22 

2« 

25 

2.7 

31 

32 

33 

33 

3« 

U- 

39 

39 

4a 

40 

42 

ai4AJ4 

014610 



«3 

to 

»3 
13 
13 
13 
12 
»2 
»l 
«1 
<l 
10 
12 
13 
13 
tZ 
13 
13 
II 
12 
10 
«l 
13 
13 
13 
U 
»l 
12 
12 
»3 
12 
12 
12 
12 
10 
II 
10 
10 
12 
13 
10 

to 

13 
13 
13 

to 

12 
13 

to 
n 

12 
13 
it 

11 
II 



INDICATOR 

OR simplf: 



MUST Br 
VARfABLEI 



PR 
EM 
U* 
DU 
IF 

th 



IF 

Th 

c 

F X I T I > 

END DMU 



Then begin comment error 465-dump 

UNSIGNED INTEGER 
FLAr,(^65)i GO TO EXiT; 

Ef^DI 

imary; emitv(DUmpftemp); 

ITOCEOUX EMiTB£BFCiTESTLOC+0»LEXlT)i 

FINALL; PUT(TAKE(GlT(EUBATri-3])) * DUMPLOCf 

MPR]#GlT(ELBAT[1-3])); 

ELCLASS ■ COMMA 
EN BEGIN COMMpNT GO AROUND 
STpPlTl GO 

ENOi 

CHrCKCSEMlc0t0Nt4l9) 
ENl 
OMMeNT error 419 MEANS IMPROPER DUMP DEC DELlMlTERl 

p; 



ONE MORE TIME' 

TO start; 



125 IS 



10926530 T 

10926540 T 

10926550 T 

10926560 T 

10927000 T 

10928000 T 

10929000 T 

10930000 T 

10931000 T 

10932000 T 

10933000 T 

10934000 T 

10935000 T 

10936000 T 

10937000 T 

10938000 T 

10939000 T 
170 LONG* 



0125101 
0125101 
0125101 
0125101 
0125101 

oiasioi 

0125101 
0125101 
0125J01 
0125101 
0125101 
012510-1 
0125101 
0125101 
0125101 
0125101 
0125101 
NEXT SES 



5010 
51»3 
51 1 3 
52U 
5211 
5«!0 
5611 

5913 
6210 

6211 
6313 

44-1 1 
64 1 1 
6512 
66i 
6610 
66t0 



COMMENT CODE FOR SWiT 
AND IN PU 
OTHER ThA 
SWITCHES 
OF EFFICI 
IS QUITE 
A COMMUNI 

switches 
Simple sw 
So That p 
That a sw 
JUNK, th 
To stuff 

SCRIPTOR 
boolean PROCEDURE SWITC 
PRT(i066) ■ SWITCHGEN 

VALUE BEFORE* BOOLEAN 
BEGIN 

LABEL LX,EXI 



ONES IS COMPILED FROM TWO PLACES - IN S 
RGE, COMPLEX SWITCHES (I.E. SWITCHES C 
N LOCAL LABELS) ARE COMPILED HERE, SIM 
ARE COMPILED AT PURGE TIME. THIS IS FO 
ENCY. IF A SWITCH IS ONLY CALLED ONE T 
A BIT BETTER, AFTER SWiTCHGEN GOTOG IS 
CATE MUST BE USED, THE BLOCK ROUTINE M 
FORMAL. THIS lS» OF COURSf, A FICTION. 
ITCHES SWITCHGEN LEAVES THE INDEX TO IN 
URGE CAN FIND THE LABELS, IT SHOULD BE 
ITCH EXPECTS THE SWITCH INDEX TO BE FOU 
E RESULT RETURNED BY SWiTCHGEN IS WHETH 
F INTO A SWITCH DESCRIPTOR, SINCE A SWI 
IS AN ACCIDENTAL ENTRY DESCRIPTOR} 

hgen(BefoRE,pd); 

BEFORE* REAL PO* 



WlTCHGEN 

ONTAININQ 

PLE 

R REASONS 

HE CODE 
TRUE IF 

ARKS SUCH 
FOR 

FO IN EDOC 
NOTED 

ND IN 

ER OR NOT 

TCH DE- 

X113- 
X113- 



STACKfF+3) a K 

STACKcF+4) m N 

STACK(F*5) * Tl 

STACKfF+6) * TL 



I.XJ 



T»BEF> 
REAL K,N.Ti,TL» 



TL ♦ L* 

EMIT(0)» EM1TV(JUNK)I EMIT0(GE«)* EMlTV(JUNK); 

L ♦ L + i; EMlTO(r,TR)> EMIT0(L0R)J EMITV(JUNK>I 

emtto(Dup)i emitG(Aod); comment we have generated test 

AND preparation FOR SWiTCH-JUMP* 
GOTOg ♦ FALSeI comment if we COMPILE JUMP OUT WE KNOWI 
IF BEFORE. THEN BEGIN STEPlTjl GO TQ BEF END* 
IF STEPi ■ LABELID AND ELBATcH.LVL » LEVEL 

Then begin 

INF0[0,N] f ELBATcn* 
IF N •■ N + 1 ■ 256 



START 



10940000 T 00031087712 

10941000 T 0003*0877*2 

10942000 T 0003*0877*2 

10943000 T 0003*0677*2 

10944000 T 0003*087712 

10945000 T 0003*0877*2 

10946000 T 0003*0877*2 

10947000 T 0003IQ67II2 

10948000 T 0003*0877*2 

10949000 T 0003*0677*2 

10950000 T 000310871*2 

10951000 T 0003*0877*2 

10952000 T 0003*0877*2 

10953000 T 000JI0877J2 

10954000 P 0003*0877*2 



10954100 
10955000 
10956000 
OF SEGMENT 
10957000 



C 0003*087712 
T 0003*0877*2 
T 0003*0877*2 

««.;^«.«*Jk*.*A 1-26 

T 0126*0000*0 



10958000 T 
10959000 T 
10960000 T 
10961000 T 
10962000 T 
10963000 T 
10964000 T 
10965000 T 
10966000 T 
10967.000 T 
10968000 T 



01261 0.Q0Q10 
0126*0000*1 
0126*000313 
0.12.61000112 
012610008*1 
0126*000611 
QX26JQQ0.9U 
0126*0011*2 
0126*0014*0 
0l2Al0Ql-5i2 
0126*001713 



THEN B 

IF STEPf 

EMiTncBF 

FOR K ♦ 

DO BEG 

tMlTf 

EMIT( 

SWiTCHGE 

ELSE BEGIN 

BEF8 L •• BUMP 

PUTCTAKE 

[16 

FOR K * 

00 BEG 

AOJUS 

EMITL 

gemgo 

INFOc 

EMITO 

CONST 

I * I'll 

DO BEGIN 

STpPlT 

IF N ♦ 

THEN 
DEXPl 

UNTIL EL 

EMiTB(BF 
EMlTcO)j 

FOR K ♦ 

DO EMI 
SWITCHGE 
Tl * H 
L ♦ TL+4; 
EMITL(N+1)J 
I * TIJ 
rX|T! END SWITCHGEN 



EGfN ERRfH7)l GO TO EXiT 

s COMMA Then go to lx; 
c)i L *■ bumpl; n *■ n-ii 

STfP 1 UNTIL N 

IN COMMENT SAVE LINKS TO 

(GTUlNFO[0.K]).t35ll3)l 

GTi) ENDJ 

N, «. FALSE END 



ZHDt 



LABELS IN EOOCJ 



l; N * N-l; 

(LASTlNF0 3i(PDl«PROGDESCBL0R(ADES.TL,PD)) 

«37«U3»LASTINFO)» X GET PRT LOC AND SAVE 

STeP 1 UNTIL N 

IN COMMENT EMIT CODE FOR SIMPLE LABELS SfENI 

t; Tl * i; 

(GNAT(GTl*lNFOtO,K]))J 

(GTD? 



Tl» 



END* 



L» 



O.KJ 

(RTS)I 

ANTCLCAN 

N * N+i; 

ADJUST; 

; tNfOco,N] 

N+l s 256 

BFGtN ERR(147)I GO TO EXIT END? 

eMtTo(Rts) end 

CLASS * comma; adjust; 

w»TL+i2.i,); emito(Bfc); 

EMITOCRTS); N <- N-lJ 
STEP 1 UNTIL N 
TB(BBW.BUMPL»INFOtO,K3); 
N «• TRUE end; 



; 



126 IS 



10969000 

10970000 

10971000 

10972000 

10973000 

10974000 

10975000 

10976000 

10977000 

10978000 

10978500 

10978600 

10979000 

1098000Q. 

10981000 

10982000 

10983000 
10984000 
10985000 
I0986000r 
10987000 
10988000 
1 09890^)0 
10990000 
10991000 
10992000 
10993000 
10994000 
10995000 
10996000 
10997000 
109980O0 
10999000 
11000000 
11001000 
12000000 
12001000 
86 LONG, 



012610016(1 
012610021(2 
0126(0022(1 
0126(0026(0 
01261002-64 
01261002712 
0126(0029(3 
01261003211 
0126(0033(3 
0126(0034(0 
01264003712 
0126(003912 
0126I004U2 
0l26ia0Al42 
0126(0042(0 
0126(0043(2 
1 264 W 46*0 
012610046(1 
0126(0048(1 
0126(004913 
012610052(0 
0126(0054(1 
01264005-543 
0126(0058(0 
0126(0059(2 
0126(0061(3 
0126(0062(1 
0126(0064( 1 
0126(0067(2 
0126(006913 

0126(0069(3 
01 26 4 00 7611 
012610077(2 
0126(0078(0 
01 26 1 007912 
0126(0080(1 
0126(0081(2 
NEXT SEG 3 



STACK(F*2) 3 S 
STACK(F4.3) a T 

STACKfF+«) a B 



PROCEDURE DBLSTMTJ 
BEGIN 

Real s,ti 



BOOLEAN 6 ; 

label L1»L2.L3,L4,eX!T ; 

s*o; / 

IF STEPI#LEFTPaREN Then ERRC261) 
ELSE 
Ll( BFGIN 

IF STEPl«COMMA THEN 
BEGIN 



START 



12002000 

12001000 

12004000 

OF SEGMENT 



T 000310877(2 

T 0003(0*77(2 
T 0003(0877(2 

«4t4i**4i««*« 127 



12004100 T 0127(0000(0 



12005000 
12006000 
120O7O0X) 
12008000 
12009000 
12010000 
12011000 



0127 
0127 
0127 
0127 
0127 
0127 
0127 



(0000(0 
(0000(0 
4 000044 

(0002(1 
I0O03I2 
1000410 
(0005;2 



ift' 



L4I 



I2i 
L3t 



dptog**true:> 

IF STEPi«ADOp Then stfPjt; 

EMITNUM(NUO); 

EMITNUMCIF ELBATCl-n.ADDHESS «SIJB THEN -NHI F.LSE NHI)> 

DPTOG*rAL.Sr? 

stepit; 

GO to L2J 
END) 
IF TA8LE( I+1)»C0MMA ThEN 

BEGIN 

IF elclass.adop or elclassbMulop Then 

BEGIN 

EMiTOfELBATf H . ADDRfSS* J ) ; 

IF tS«.S-l)!£0 THEN FLAG(?82)J STEPP i 

GO TO L.3; 

end> 

IF FLCLASSaASSlGNOP THEN 
BEGIN 

IF S*S-1<0 THEN FLAG(285)) T«.OI STEPIT ; 
DO 
BEGIN 

IF EI-CLASS #C0MMA THEN BEGIN EKR(284);gO EXIT END? 

stepitj 

B*ELCLASS=INTID OR EtCLASSs I NTARRAY I 

OR EUCLASSsINTPROCID i 

IF eucLasssintid and elcuasssreauid then 

BEGIN FMlTN(FLBATtn, ADDRESS); STEPiT fND 
ELSE IF ELcLaSSSfNTPROCID AND ELCLASS>REAUPROC I D THEN 
IF EUBaT[I],LINK j» PROINFO.LINK THEN FLAGfPlD 

ELSE BEGIN EMlTL(5ia)i STEPiT END 
ELSE IF ELCLASS>iNTARRAYiD OR ELCLASS<REALARRAY I D 

Then ERRt286) 

ELSE VARIABLECFL)* 
EMiTOtiF B THEN ISD ELSE STD) END UNTIL T*.T + 1»2> 
IF ELcLaSS#RTPAREN then 60 L3 * 
IF 5#0 THEN FLAGC2833 
ELSE BEGIN STePITI qO EXIT END t 
END) 

IF elclass, Factor then 

BEGIN 

EMITO(MkS); EM1TL(4)J EMITVCGNATCPOWERALD) » 
EMiTOcOED* EMITOCDED) GO L4 I 
END t 
IF ELCLASS<INTID AND ELCLASSJBOO I D THEN 
BEGIN 
CHECKfR(T«-ELBAT[I])| 

stepit^stepit; 

AEXPI 

EMiTV{T, ADDRESS)* 

GO TO L?; 

end; 
fnd j 

AEXP; 

if ELcLaSS>«cOMMA then BEGIN ERR(28fl);60 EXIT 

FNDI 
STEPIT) AEXP) EMITO(XCH)) 
S*S+1) 
IF ELcLASS^COMMa THEN BEGIN ERR(284);G0 TO EXIT END) 



12012000 
12013000 
12014000 
12015000 
12016000 
12017000 
12016000 
12019000 
12020000 
12021000 
12022000 
12023000 
12024000 
120?5000 
12026000 
12027000 
12028000 
12029000 
12030000 
12031000 
12032000 
12033000 
12034000 
12034100 
12034110 
12035000 
12036000 
12036100 
12036200 
12036300 
12036400 
12036500 
12037000 
12038000 
12039000 
1203.9100 
I2O4OOOO 
12041000 
12041100 
12041110 
12041130 
12041140 
12041160 
12042000 
12041000 
12044000 
12045000 
12046Q00 
12047000 
12048000 
12049000 
12050000 
12051000 
12052000 
12053000 
12054000 
12055000 
12056000 



01271000513 
01271000610 
01271000810 
O127IO0O9I2 
012710013)2 
0l27)0Ol4t0 
01271001411 
0l27l00l5«2 
01271001512 
01271001611 
Ol27)O0l7J2 
0127)001912 
Ol27l00l9i3 
0127)002113 
01271002513 
0127)002610 

0127)002610 
0127)002611 
0127)0027)2 

0127)0031)3 
0127)0032)0 

0127)0032)0 
0127)0034)1 
0127)0035)2 
0127)0036)0 
0127)0038)0 
0127)0040)0 
0127)0042)1 
0127)0044)0 
0-127 i004*)0 
0127)0050)0 
0127)0051)3 
0127)0053)5 
0127)0055)2 
0127)0058)1 
0127)006011 
0127)0062)0 
0127)0064)0 
Ol27tOQ64lO 
0127)0065)2 
0127)0065)3 
0127)00-6810 
0127)0070)0 
0127)0070)0 
01271007-2X0 
0127)0072)1 
0127)0074)0 
042-710^7512 
0127)0075)3 
0127)0076)1 
0127)047712 
0127)0077)2 
0127)0077)2 
012744)1^7713 
0127)0080)0 
0127)0000)0 
0127400«210 
01271008312 



GO TO LI) 
EXTT»rNP 

rND dblstmtj 



127 



12057000 T 

12056000 T 

12059000 T 

IS 90 LONG* 



01271008611 

01271008712 

01271008712 

NEXT SES 3 



STACK(F+2) 
STACKfF+3) 



S 
T 



STACKfF+4) = B 



PROCEDURE CMPLXSTMT t 
BEGtN 

REAL S»T ; 



BOOLEAN B t 

LABfL LI. L2»L3,L4,L5»EXiT, ERROR ; 
DEEtNE ERRXfERRXl) « BEGIN T*ERRX1I 
IF STePH«LEFTPAREN THEN ERRX(38i) I 
LH STEPIT ; 

IF table(i+i )scomma Then 

BEGIN 

IF elclass»aoop Then 
Begin 

T*ELBATrn, ADDRESS i 
EMlTPAlR(9iSTD)J EMiTOcXC 
EMITPAIR(9»STD); EMITO(T) 

L4J IF s*s-i<i Then flagob?)? 

END ; 
IF ELCLASSbMULOP THEN 

BEGIN 

EMIT0(MKS1 I 

EMiTLdF ELBATtl 3, ADDRESS* 

EMITV(GNAT(SPEClALMATH)) > 
L5t EMIT0(DEL)J EMiTO(DEL)J 

END I 
IF FLCLASS»ASS1GN0P THfN 

BEGIN 

IF S4.s-i<o Then flag(385)j 

B«-ELCLASSelNTlD OR ELCLASS 

OR ELCLASS 
DO BEGIN 

IF ELCLASSi«COMMA ThEN 

IF elclas$>booid and 

BEGIN EMiTNfELBA 
ELSE 



12060000 

12060100 

12060200 

START OF SFGMENT 



T 00031087712 
T 00031087712 
T 0003* 08 7 71 2 



GO ERROR END #1 



H)l EMITV(9)» EMITO(T) J 
f EMITV(9) ; 

STEPIT; GO LI I 



MUL Then 26 else 35) ; 

GO L4 ) 



IF elclass>boopr 
IF elbatcij* 

ElSe BEGIN E 
ELSE |F ELClASS< 

Then v 

ELSE ERRXC3 

EMiTodF B Then isd e 

END 

Until t*.T4'1«2 t 

IF ELCLASS#RTPAREN THEN GO 
IF S#0 THEN FLAG(383) ELSE 

END I 



T*Ol stePit ; 

INTPROCIO 
INTARRAYIO ) 

ERRXC3B4)I STEPiT I 

elclass<booarrayid then 

Ttn. ADDRESS)) STgPiT END 
OCID AND ELCLASS<B00I0 THE 
LlNKi»PROlNFO.LlNK THEN fLA 
MlTL(5l*)l STEPiT END 
LABELIO AND ELCLASS>B00ARR 
ARlABLEfFL) 
86) ) 
LSE STD) ) 



N 
G(21l) 

AYID 



12060250 T 0128I0000I0 



L3 I 
BEGIN 



STEPIT) GO EXIT END ) 



12060300 
12060400 
12060500 
12060550 
12060600 
12060700 
12060600 
12060900 
12061000 
12061100 
12061200 
12061300 
12061400 
12061500 
12061600 
12061700 
12061725 
12061750 
12061600 
12061900 
12062000 
12062100 
12062200 
12062250 
12062255 
12062300 
12062400 
120625Q0 
12062600 
12062700 
12062800 
12062900 
12063000 
12063100 
12063200 
12063300 
12043400 
12063500 
12063600 
12063610 
12063700 



T 01261000010 

T 0126)000010 

T 0126)000010 

T 01261000211 

T 0128)0003)3 

T 0126)0005)2 

T 0128)0005)3 

T 0126)0006)1 

T 0126)0007)2 

T 0128)0006)1 

T 0126)0011)3 

T 0128)0014)0 

T 0126)001 9)2 

T 0128)0019)2 

T 01281001913 

T 0126)002010 

T 0126)0021)2 

T 0126)0024)1 

T 0l2ai0025l3 

T 0126)0026)0 

T 0128)0026)0 

T 012810028)1 

T 0128)0029)2 

T 0128)0033)3 

T 0l2aiaXUAl4 

T 0128)0036)1 

T 0128)003712 

T 0126(004010 

T 0128)0041)3 

T 0126)0044)0 

T Ol26t0046U 

T 012610049)3 

T 0128)0052)0 

T Oi28100i414 

T 0128)0055)2 

T 0128)0057)2 

T oiaaixiass^t^ 

T 0126)0059)3 

T 0128)0061)3 

T 12*1 00 Ail 2 

T 0128)0066)1 



m 



fF 



IF 



FLCLASSbFACTOP thfn 

BEGIN 

E:MIT0(MKS3> EMtTUCS); 

END I 
FLCLASS>800lD AND 

Begin 

CHECKER(T«.ElBA1rnn 



EMITV(T,ADDReSS)I 
END I 



EMlTVfGNATCPOWFRALD); 

elclass<800arrayid Then 

STEPJTJ 



GO L5 J 



GO 



STEPlTI 

L2 i 



AEXP ; 



; 



FNO 

AEXPJ IF ELCLASSi«COMMA ThEN ERRX(384)J STePITJ AEXPJ EMiTO(XCH)J 
L2I S*S+1 I 
L3I IF FLCLASSsCOMMA THEN qQ uH T»384 ; 

errori 

ERRfT) ; 
EXIT! 

END OF cmplxstmt ; 



128 IS 



12063800 T 

12063900 T 

12064000 T 

12064100 T 

12064200 T 

12064300 T 

12064400 T 

12064500 T 

12064600 T 

12064700 T 

12064800 T 

12064900 T 

12065000 T 

12065100 T 

12065200 T 

12065300 T 

12065400 T 
91 LONG, 



01201006611 
01281006712 
012810067.13 
0l28f007li2 
0l28»0071t2 
01281007211 
01281007312 
01261007610 
0128100781-0 

0l28l0078r0 
01281007810 
01 261 (^082 n 
01261008410 
Ol26l0087t2 
01 26 1008 7- 1 2 
01281008713 
0l28i00S8t0 
NEXT SEG 3 



REAL PROCEDURE F IXDEF I NE I NFO( T ) < 
BEGIN REAL K.SfP#J.EL' 



VALUE T; REAL T; 



STACKfF+3) m K 

STACKeF+4) u S 

STACKfF*5) • P 

STACKfF+6) M J 

STACK(F+7) . EL 



EN0» 



12101000 

12102000 

START OF SEGMENT 



MACROlD*-TRUEI 

P * GiTCFlXDEFlNElNFO * T)» 

ST0PDEFINE«-TRUE; 

FL*TABLE(NXTeLBT)I 

nxtelbt«.nxtelbt-ii 

IF el^leftparen and elj'lftbrket then 

FLAG(175) % r OR ( EXPECTED. 
ELSE DO BEGIN J#.J+lJ 

TEXTtNEXTTFXT.LlNKR.NEXTTEXT.LlNKC] 
NEXTTEXT U NEXTTEXT + H 
PUT(rAKE(P) 4 NEXTTEXT[1H32«16] S 
DEFSTACKHEADt35J35ll3]. P3I 

defstackhead * P. link; 

P ♦ rilT(K*p)| 
DEFINE6EN(TRUE#0); 
END UNTIL EL * eI-BAT[NXTELBT] .CLASS * COMMA OR 

IF el#RtpaRen And el^rtbrket or kj'p then 

FLAG(174)|XINC0RRECT # OF PARAMS IN DEFINE 

macroio«'Falsei 



Iff TAKE(P31 



l!122' 

«122" 



K u Pt 
INVOCATION. 



T 00031087712 

T 00031087712 

4tiii*«*»«**« 129 



129 IS 



12107000 T 
12108000 T 
12111000 T 
12112000 T 
12113000 T 
12114000 T 
12115000 T 
12116000 T 
12J 17000 C 
12118000 C 
12121000 T 
12122000 T 
12123000 T 
12123500 T 
121 24-000 T- 
12125000 T 
12126000 T 
12126100 T 
12127000 T 
1212B000 T 
16 LONG* 



01291000010 
01291000011 
0129 rOQ 0211 
01291000312 
01291000411 
012910^0513 
01291000713 
01291000811 
0129400-1112 
0l29l00l4»l 
0l29i00i6l0 
0l29l00lftl0 

01291001913 
01291002011 
012ftia0-M-U 
01291002313 
0l29t0027t2 

ai231iin.3iilfl.- 

012910031 »Z 

01291003210 

NEXI-SXa 3 



PROCEDURE DEFINePARAM(OiNFO» N)J 

COMMENT DFFINEPARAM GENERATES EVERYTHING (EXCEPT THE ELBAT 
WORD) FOR AN INFO TABLf ENTRY FOR A PARAMETER OF A 



12150000 
1 21 501 OQ. 
12150200 



T O003i0&77t2 
I 00031087712 
T 00031087712 



BEGIN 



paRamftRic define. 

VAIUE DINfO. NJ INTEr.ER DINFO. N> 
INTEGER Jl 



12150300 
12150400 
12151000 
12152000 
12153000 



T 00031087712 

T 0003(067712 

T 0003«0877I2 

T 0003«0fl77l2 

T 00031087712 



STACKrF+2) * J 

STREAM PROCEDURE MAKEPAR AMfl NF» ACC. C. Q* HU VAUUE C, Q* NJ 
PRT(1067) m MAKEPARAM 

BEGIN 

DI «■ ACCJ DI ♦ 0I + 3J 

Si ♦ INFJ SI «■ SU3I OS ♦ C CHR> 

Si * IOC NJ SI ♦ SI+7J OS «. 1 CHRI 

SI 4- L.OC Q) SI «- Slf6l OS « 1 CHRJ 

DI ♦ ACCJ DI «• 0U2J OS * 1 CHRJ 

fNd makfParamj 



START OF SEGMENT *♦******♦♦ 130 
12154000 T 01301000010 



12155 
12156 
12157 
12158 
12159 
12160 
12161 



000 
000 
000 
000 
000 
000 
000 



0130 
0130 
0130 
0130 
0130 
0130 
0130 



lOOOOlO 
tODXIDlfl 
lOOOOti 
(000113 
I 0002 10 
(000312 
10003(3 



fno 



ACCUMrn ♦ f>J 
MAKEPARAMtlNFO[DlNF0;LTNKR,OlNFO,LlNKC3. ACCUMri]. 

J * INF0[DINF0.UINKR#DINF0,UINKCJ.C12«6]# 770+J» 
SCRAM ♦ ACCUMtl 1 MOD 1?5J 
COUNT ♦ J+2J 
DEFfNEPARAM; 



N); 



12161500 
12162000 
12163000 
12164000 
12165000 
12166000 



T Ol3OJ000«(0 

T 0130(0005(2 

T OUOiOOOaiO 

T 0130(0013(2 

T 0130(001411 

T 0130(001513 



130 IS 18 LONG. NEXT SEG 



PRTC1070) « lODEC 



COMMENT THIS SECTION CONTAINS THE PROCEDURES USED BY THE BLOCK ROUTINE? 
PROCEDURE lODECdOT); 



VALUE lOTJ 
INTFGER lOTJ 
BEGIN 

STRfAM PROCEDURE GET7( aCCUM, RESULT J « 



13000000 T 00031087712 
13001000 T 0003(0877(2 



13002000 
13003000 
13004000 
13005000 



T 0003(0877(2 

T 0003(0877(2 

T 0003(087712 

T 000310877(2 



PRT(107i) m GET/ 



START OF SEGMENT *♦*♦*♦*♦♦» 131 



BfGIN 
LOC 

Sl4. 

DS* 

Dl*- 
IF 



AL T,T1J LABEL EXITJ 

ACCUMJ SI«-SU2J DU LOC TJ DI*DU7J 
ChRJ Ti*SiJ SuLOc TJ Si*Sl + 7j 
RESULTI OS* 8 LIT "O "J Dl«-Dl-7; 

SCS"©** 

THEN IF 



Si* 
EXI 

end; 



TlJDS 

t; 



SC<"8" 

Then 

BEGIN 
Sl-TlJ 

end; 

' CHH' 



OS* T chrjgo to exit 



13006000 
13007000 
13008000 
1 30O90A0 
13010000 
13011000 
130 J 8000 
13013000 
13014000 
13015000 
13016000 
13017000 
130-18000 
13019000 



t oi3i4.oaooio 

T 0131(0000(0 

T 0131(0000(0 

T 01 31 1-0004 J 2 

T 0131(0002(0 

T 0131(0003(3 

T 01314 000440 

T 0131(000512 

T 0131(0005(2 

T 01314 000512 

T 0131(0006(1 

T 0131(0006(1 

T 0134*^00142 

T 0131(000712 



!wi 



PRT(107?) « 



FNTERTr*^^*^ PROCEDURE ENTER I Df I DlOC . F I LFNO, TYPE , MUtF I D» F I L I D.F I L I Di , N) I 

FlLFNO.TYPF'MULFiD,FILin.M; 



13020000 T 01311000810 



VALUE 
BEGIN 

DuiDLOc; di*di+5;di«-dc; 

SUUOC FILENOI Sl«-SI*6l 

OS* ? chRJ suloc type; 
Si* si-j./; OS*, chr; 

SU LOC MUUFIDISI+SI + IJ 
DS* 7 ChR» 

Si*. LOC FiLiD;si«-Si + n 

OS* 7 CHR» 

Su LOC Nl Sl*Sl + 7; 

DS* ChR» 

Sli- FiLinil Si«.Si + 3' 

DS». N CHRI Ni-np 

DU inLOCJ DUDI+5; 

Si* log NI Si*Sl+5; 

OS* 3 CHR 

endi 



STACK(r*2) » 
STACKfF+3) » 
STACKfF+4) s 
STACK(F4.5) « 
STACKfF+63 « 



MULFin 

FIUID 

TYPE 

M 
K 



Real mulfid^filidptype.m.ki 



STACKfF+7) , 

STACKfF+lO) 

STACKfF+11) 
STACKfF+12) 
STACKfF+13) 



' SAVADDRSF 
= ACCUMl 



DEFINE CALLSaEMlTLfO)} EMlTL(lOT)l 
REAL SAVADDRSF i 



EMiTL(8); EMITV(5) I I 



Real accumi ; 

INTEGER current* 



IQTLMPO; 



rur^n T - lOTEMp, 

CURRENT 

lOTEMP ' • 

lOTEMPO 

LABEL STARTI 

jUMPcHKXi 

IF Gi-GTAl CJ*J-n"FaEV 

Then 

BEGIN 

IF C.*GTAi[J*j-n.SWiTCHV 

Then 

BEGIN 

STOPENTRYtNOT SReCTOG? 
ENTRY(SUPERFlLElD); 

IF spECTOG Then go to start; 
IF elclass^assignqp 

THEN FLAG(3ft)J 
EMlTO(MKS); 

CHECKDlSJOfNT(ADDRSF); 
G^tlL^-L + i; 
EMITL(I); 
rMlTL(l); 
EMITL(I); 



13021000 
13022000 
13023000 
13024000 
13025000 
13026000 
13027000 
13028000 
13029000 
13030000 
13031000 
13032000 
13033000 
13034000 
13035000 
13036000 
13037000 
13036000 



T 01311000810 

T 0131(000610 

T 0131*000912 

T 01311 00^94 3 

T Ol3lt00l0l0 

T OUUOOlOU 

T 013U001M2 

T 013H0011I3 

T 01311001210 

T OUilOOUM 

T 01311001211 

T 01311001312 

T QUI 1 0.0-1313 

T 0131J00HI0 

T 01311001411 

T 01311001542 

T 013U00l5i3 

T 01311001610 



13039000 T 01311001610 



13039400 T 0l3l»00l6l0 

13039450 T 0l3l«00l6l0 

13039500 T 01311001610 

13039550 T 0i3il00l6l0 



13040000 
13041000 
13042000 
13043000 
'13044000 
I3045i)00 
13046000 
13047000 
13048000 
13049000 
13050000 
1 30510«0 
13052000 
13053000 
1305^4«^« 
13055000 
13056000 
l3057a0Q 
13058000 



T 01311001610 

T 01311001610 

T OUllQfli7l3 

T 0l3l«00l9l3 

T 0131IO02OI0 

T QtlliaQlOll 

T 0131I0022M 

T 01311002312 

T 0l3liaa23Xi_ 

T 01311002411 

T 013U0025I2 

T 0131^002610 

T 01311002611 

T 01311002610 

T &1 31 10*2*42 

T 0131*002913 

T 01311003113 

T 0l34t00334J 

T 01311003312 



4 
I 
i 

i 
i 
i 



1 



EMITV(5) 



J*-i; STOPrNTRY*-FAL,SE.; 
DO 

BfJilU 

IF 
THEN FL 

passfiLf 

EMiTLfJ* 
TMITNCAD 
EMiTOfST 
END 

UNTIL ELCLaSS 
GT2*-LJLi.GI EM 



STEPl * FILFIDX 
,AG(35)1 
I 

■ j + n; 

IDRSF)! 
■D)» 

#comma; 

iti(j*1)j l»gt2» go to start 



END? 
I*I-1IM*1| 
TF GbAUFaV 

Then 



M»0 



J*J*llK«"vJ; STOpENTRYvNOT SPECTOGJ 



% TO VOtD a 



FUSE 
DO 
BFfilN 

STOPdEFINE «« TRUE I 
STfPIT; J<-KJP2JaP3i*P4i 
MULFID*0|TYPE*2| ENTp 
SAVADDRSF*AD0RSF i 

IF SPECTOG Then go to 

EMIT0(MKS)JEMITL(0 

IF flclass»litno 

THEN 
BEGIN 

TYPE-EUBATtn.AD 
STEPIT 

end; 

IF elclass<idmax t 

BEGIN 
CARD 

IF ACCUM 
IF ACcUM 
IF ACcUM 
IF ACcUM 
TYPE»«12J IF STFPI $ I 
"ftSERlA" THEN BEGfN 

tyPf«»type-2 else if 
typei«type+i else 

IF ACCUMls^/PROTE" T 

fl.ag(<»3)iend>stepit; 

BEGIN STEPlTlL*L-2JAEXp 
STEPlTl AEXP END 

IF ELCLASS#RT8RK 

END 

stePit 

END* 

if elclais.strngcon t 
Begin 

GET7cACCUMrn.G) 
IF STEPl»STRN6C0 

THEN 



sFALSEJG 
RCFILEID 

start; 
);emitl( 



ORESSJ 



TAltOJjaO; GET7(ACCUM[l],FlLlD)i 

); 



0); 



HEN 



UACCUMt 
1«"6REM0 
I't^SPUNC 
I'^ftDlSK 
DMAX THE 
IF ACCUM 
ACCUMl 



U«»'»5PRINT" THEN TYPE*1 ELSE 

T« THEN TYPE ♦ 19 ELSE 

H" THEN TYPE«-0 ELSE 

0" THEN BEGIN STOPDEF I Ne*TRUE i 

N BEGIN IF ACCUMl »e ACcUM[l] * 

1 • waRANDO" THEN 

« "eUPOAT" THEN 



HEN TYPE«-26 ELSE 

ENDI IF ELCLASS. LFTBRKET 
MF ELCLASSiCOLON THEN BEGIN 
ELSE FLAG(30)I 
ET THEN FLAG(44))END ELSE I*!"!; 

; 



HEN 

; 

H 



THEN 



13059000 

13060000 

13061000 

13062000 

1 3063000 

13064000 

13065000 

13066000 

13067000 

13068000 

13069000 

13070000 

13071000 

13072000 

13073000 

13074000 

13075000 

13076000 

13077000 

13078000 

13079000 

13079500 

13080000 

13061000 

13081500 

13082000 

13082500 

13083000 

U08A0O0 

13065000 

13086000 

13087000 

13088000 

13088010 

13068020 

13088025 

13088030 

13088035 

13088040 

13088050 

13068060 

13088070 

13088075 

130 a 6.0 AO 

13088082 

13088085 

13086090 

13088100 

13088105 

iMaftllO 

13088120 

13086130 

13049.000 

13090000 

13091000 

13095^00- 

13093000 



01311003410 
01311003411 
01311003411 
01311003611 
0111 t 0037 42 
01311003712 
01311003713 
OUliO039t2 
01311003913 
0l31t0041i3 
01H*W4240 
013M0043I2 
01311004312 
01314 004^4 
01311004810 
0131)004610 
0131400&O4O 
013U0050II 
01311005113 
01311005513 
01311005610 
01311005610 
01311005611 
01311006211 
01311006512 
0131t0066li} 
01311006712 
0131I0069J2 
O.UH0O*943 
01311007010 
01311007011 
013110072.10 
01311007210 
0131I0072U 
01 31 1007312 
01311007313 
01314007313 
01311007611 

ouitooeoto 

0l31t0084t0 
0134400W10 
01311009112 
01311009312 
Ol3lliiMSi_a 
01311010113 
0l31»0i05l2 
.01 31 1010212 
0l31t0ii3l2 
0l31»0li5l2 
01314011-912 
01311011912 
0l31l0ii9t2 
01314-041913 
01311012040 
Ol3l»0l20»l 
Xll3iU)i^44- 
01311012312 



BEGIN 

GET7(ACcUM[1]»FILID)I 

STEP it; 

MULFlD-fi 
END 
ELSE 

FlLiD»G» 
ENDJ 
IF MkABSC IDARRAYtl?^]) - inLOC , C 33 1 15 ] < (26 + KOUNT ) , t «1 « <H 
THEN FLAR(040) ELSE 

ENTERIOnOLOC.FlLFNO » TYPE* MULF I D» F I L I D. 1 NFOt ( LAST I NpO + l ), 

L|NKR*(LASTINF0+1),LINKC3.K0UNT)I 

IF elclass/leftpaRen 

THfN FLAG(26)| 

ARRAYFLAG»B00LEAN(3) t 

FMITL(REAL(N0T(P2 or P3)),t46i2])l 

emitL(filfno)jfileno»fileno+ii 

CHFCKD IS JO I NT (TAKE (Last INFO), ADDRESS) I 

STEPlTlAEXPlEMlTL(M); 

COMMENT GUESS AT THE NO, OF BUFFERS DECLAREOJ 

IF (lOTEMP«'GETCL-2)),rA6!2] ■ THEN CURRENT ♦ IOtEMP 
DIV « ELSE CURRENT«.2? 



IF ELCLASS * COMMA THEN BEGIN FLAGC27)J GO TO START END 
ELSE 
BEGIN 

STEPITI AEXPl 

» 



13094000 
13095000 
13096000 
13097000 
13098000 
13099000 
13100000 
13101000 
13101100 
13101200 
13102000 
13103000 
13104000 
13105000 
13106000 
13107000 
13108000 
13109000 
13110000 
13111000 
13112000 
13113000 
13114000 
13115000 
13116000 
13117000 
13118000 
13119000 
13120000 
13121000 
13122000 
13123000 
13124000 
13125000 
13126000 
13127000 
13128000 
13129000 
13130000 
13131000 
13132000 
13133000 
13134000 
13135000 
13136000 
13137000 
13138000 
13139000 
13140000 
13141000 
1 31 42000 
13143000 
13144000 
131450Q0 
13146000 
13147000 
13148000 
13148100 



013; 
0131 
013] 

013; 
013; 

01 3] 
013] 

013; 

013! 
013] 
013] 
013] 
013] 
013] 
013] 
013] 
013! 
013] 
013] 
013] 
013] 
0131 
013; 
013] 
0131 
0131 
0131 
0131 
0131 
04 31 
013] 
013] 
0131 
013] 
013; 
013] 
0131 
013; 
013] 

013; 
013; 

013] 

013; 

0131 

0131 

0131 

0131 

0131 

0131 

0131 

0131 

0131 

0131 

QUI 

0131 

013] 

ai34 

0131 



0l23t3 
012410 
012610 
012611 
012611 
0127! 3 
012713 
0128U 
012811 
0132JI 
013410 
0136* I 
014010 
014010 
014210 
014211 
014211 
014411 

0146U 
014811 
015010 
015010 
015313 
0l56»0 
015610 
015610 
015610 
015610 
015610 
015.610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
01 56 1-0 
0l56t0 
015610 
0154^10 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
015610 
liilSAlO 
015811 
015811 
015912. 
016010 



IF ciotemp^-gekl-D) 
flse 

IF ELCLAS5»'C0MMa 
THFN 

BEGIN 

FM]TL(0)| 

CALLS I 

fnd 

FLSE 

BEGIN 

IF GT1*FILfATTR 

BEGIN AEX 

IF ( 

IF I 

I 

ELSE BEGIN 

EMiTL(0)J 

EMiTN(SaVA 

END i 

WHILE ELCLaSSbC 

IF GTi*FlL 

BEGIN 

ELSE BEGIN 

fMiTO 

gti*-f 

FNn i 
END ; 
END J 
ARRAYFLAG*FALSE f 
IF FLCLASS#RTPAReN Then FLAG(29 

comment total up the buff 
iobuffsize*-iobuffsiz 



,[46«2] ■ THEN IOTEMP*lOTEMp DIV 4 
lOTEMP*- 256> 



IBUTEINDXCFALSE)*0 THEN 

P; 

I0TEMP0I»GET(L-1)),[«6I23 « THEN 
OTEMPO DIV 4 > lOTEMP THEN 
OTEMPI*!OTEMPO DIV 41 CALL5J END 

CALLS) EMiTO(MKS)> EMiTL(S) ; 

DDRSF)) GT1*FILEATTRIBUTEHAN0LER(F10)| 

OMMA DO 

f.attributfindx(TRue)«o then 
err(29i)i go start end 

CMKS); EMiTL(5)l EM I TN( SAVADORSF ) t 
ILEATTRlBUTEHANDLER£FlO) ; 



ER RE«, Per file declaration; 

E + 50 ♦ £ CURRENT x lOTEMP); 



VOID 
VOID 

UNT 
STOP 
END 
Bf 

IF 
ENn 

STARTi 

ENDI 



END 

IL stePi»«comma; 

ENTRY*FALSE{ 

ELSE 

GIN 

IF G^FORMATV THFN FLA6(33) ELSE 

SPFCTOG THfN ENTRY(FRMTTD + RFAL(GTAl[J''nsSWITCHV))ELSE FORMaTGEN 

; 



131 IS 



131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
22 



48200 
48300 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
56000 
57000 
57010 
57020 
57030 
57040 
58000 
59000 
60000 
61000 
62000 
63000 
64000 
65000 
66000 
67000 
68000 
69000 
70000 
81000 
82000 
83000 
84060 
85000 
86000 
87000 
88000 
89000 
90000 
91000 
92000 
93000 
94000 
95000 
96000 
1 LONG. 



013 
013 
013 
013 

oia 

013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
013 
NEXT 



11016010 
It0l63t3 
11016513 
11016610 
1 10166.11 
It0l67l2 
11016713 
Il0l70li 
U0170II 
U0170I1 
tlQiZUZ 
1»0173»2 
11017410 
11017712 
U0178II 
11018313 
110164(0 
Il0l89t2 
11019011 
1» 01 91 1 2 
It0l93l2 
11019512 
11019712 

II0197J3 
I»0l99t3 

11020122 
11020113 
11020113 
11020113 
11020210 
11020410 
II 020410 
11020611 
1I0206U 
U 0206.1.1 
11020611 
11020810 
It 0206 U 
11020811 
H0209I2 
1102111^ 
11021512 
I»02l6t0 
It 021610 
SEG 3 



PRT(1073) « HANdLESWLiSt 



PROCEDURE HANDLESWLIST; 



13196300 T 00031067712 



BEGIN 



LABEL over; 



sJUmpchkx; 

stopfnTry* not spectog; 



13196310 
13196320 

start of segment 

13196330 
131963A0 
13196350 



T 0003I0877I2 
T OQ03I08Z7I2 

**4i«4r*«4i4i« 132 

T 01321000010 
T 01321000010 
T 01321000011 



M 



ENTRY(SUPERLISTID)I 

IF spfctog then go to OVERJ 

IF ELcUaSS jt ASSIGNOR THEN FLAG(4l)J 

COMMENT MISSING •■ J 
EMiTO(MKS); 
CHECKdISJOINTCADDRSF)! 

EMiTL(l)J 
EMiTLeDJ 

emitlcdi 

emltvc5)i comment create an array to hold 

LIST DESCRIPTORS FOR SWITCH UlSTl 
COMMENT USED TO USE EMITN(XITR), DOESN»T ANYMORE; 

J«--i; stopentry ♦ falsei 

DO 

BEGIN 

IF STfPt * LISTID AND EUCLASS * SUPeRUISTID 

Then regin fRRc'*?)! go to over end; 
passutst; 

EMtTL(g«.J+ni 
EMiTNf AdDRSf); 

EMiTOfSTD); comment STORE LiST DESC fN ARRAY! 
END 

UNTIL. fLCLaSS # COMMA* 
GT2*LJ L*G» EMITL(J+1); L*GT2> 
OVERt END OF HANDLESWLIST; 



132 IS 



13196360 T 

13196370 T 

13196380 T 

13196390 T 

13196400 T 

13196410 T 

13196420 T 

13196430 T 

13196440 T 

13196450 T 

13196460 T 

13196470 T 

13196480 T 

13196490 T 

13196500 T 

13196510 T 

13196520 T 

13196530 T 

13196540 T 

13196550 T 

13196560 T 

13196570 T 

I3l965e0 T 

13196590 T 

13196600 T 

13196610 T 
28 10N6» 



01321 
01321 
01321 
01321 
1 32 1 
01321 
01321 
01321 
01321 
01321 
01 32 1 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
01321 
NEXT S 



000113 
000210 
000312 
0005^2 
0^05 t 2 
000610 
0006U 

ooaBii 

000913 
OOlOlO 
0OM12 
O0UI3 
001113 
QO 1 11 3 
001313 
001410 
001410 
001512 
00l7»3 
00 1 810 
002010 
002011 
002113 
002113 
002211 
0026 to 
EG 3 



PROCEDURE scatteRflbat; 

BEGIN 

Real tj 



STACKrF+2) a T 



END 



START 



T ♦ ELBATCIJI 

KLASSF * T, class; 

FORMaLF * BOOLEaN(T, FORMAL); 

VONF ♦ booleanct.vO); 
LeveLf ♦ t.lvl; 

ADDRSF * T.ADDRfSs; 

incRf ♦ t.incr; 
linkf * t.^^ink; 
scatteRelbat; 



13197000 




O0Q3lOB?X«2 


13198000 




00031087712 


13199000 




00031087712 


OF Segment 


«%««]tt*«*>l>« 133 


13200000 




01331000010 


13201000 




01 33! 000112 


13202000 




01331000210 


13203000 




01331000313 


13204000 




OUaiOOOAli- 


13205000 




01331000610 


13206000 




01331000712 


13207000 




QijaiQooai-i 


13208000 




01331000913 



133 IS 12 LONG, NEXT SEG 



PROCEDURE CHKSOb; 
PRT(1074) « CHKSOB 
IF GTAlCJfrJ-tlifO Then FtAGC23); 



13209000 T 0003«0877l2 
13210000 T O0a31-0«77-12 



DEFINE SUB0P.48#, 



13211000 T 0003I0881»3 



flDDC*532480#, 
SUBC«l58l056#f 
rMiTSTORf:aEMlTPAlR#l 
PROCEDURE PURGECSTOPPER)! 
VALUE STOPPER* 
REAL STOPPER* 



BEGIN 
INTFRER 



pointeRi 



STACK(r*2) « POfNTfR 

LABEL RFCOVI DEFINF ELCLASS « 
REAL J,N»0CR,TL,AD0* 

STACKfF+3) * J 

STACKrF+ft) m N 

STACKfF+5) * OCR 

STACKeF+6) a TL 

STACKfF+7) s ADD 

pointer»lastinfoi 
while pointer i stopper 

DO 

BrGiN 

IF ELcLASS'-CGTI^.Ta 

Then begin 
ncii*ncii*u 

EMiTNUMcTAKEf 
EMiTSTORECMAX 
MAXSTACK«-(G*M 
J*L> L*GTl.Li 
DO 

BEGIN 

GT«*GfT( 
EMiTV(G) 
END 
UNTIL (L«-GT4) 
L*JJ 

P0iNTER*P0|Nt 
END 
ELSE 
BFGIN 
IF NOT BOOLEaNCgTI 

then begin 
if elclass ■ 
then begin 

ADD ♦ gTI 
IF NOT BO 
THEN I 
THE 
IF ADD i» 
ELSE IF ELcLa 
then BEGIN 
IF TAKE( 
THEN B 
OCR •■{J 
N * GfT( 
IF ADO * 

Then bf 

GT5 ♦ 



13212000 T 0003J0861I3 

13213000 T 00Q3t08ai!3 

13214000 T 0003«088il3 

13215000 T 0003»0e8ll3 

13216000 T 0003IX)381I3 

13217000 T OOO31O88I13 

13218000 T 00031088113 

1 321 9000 T 00011 0484 1 5 

START Of SfgMeNT ♦♦♦**♦♦♦*♦ 134 



KLASSF#; 



KE(P0INTER)).CLASS»N0NL1TN0 



pointeR+d); 

STACK»ST0); 
AXSTACK)+1) 

nk; 



«4095; 

eR-gti,incr 

.FORMAL) 

LABELID 

•ADDRESS! 

OLE AN (OCR*TaKe(GIT(PO INTER) )).[t 111 

F OCR. [361121 # OR ADD # 

N BEGIN GTI ♦ 1601 GO TO RECOV.fNDI 

Then gti*progdescbldr(2»ocr»aod) end 
ss • switchid 

POlNTER + n < 

EGIN GTI •■ 1621 GO TO RECOV ENDJ 
♦ TAKECGlT(P0lNTER))),C2AU2ai 
(j4.J,[36il2]) + *)» TL ♦ Ll 

GTI, ADDRESS # 
GIN 

progdescbldRco»j»add)i 



13220000 
13221000 



13222000 
13223000 
1322A00Q 
13225000 
13226000 
13227000 
13228000 
13229000 
13230000 
13231000 
13232000 
13233000 
13234000 
13235000 
132360O0 
13237000 
13238000 
13239000 
13240000 
13241000 
13242000 
13243000 
13244000 
13245000 
13246000 
13247000 
USAfiOQO 
13249000 
13250000 
13251000 
13252000 
13253000 
13254000 
13255000 
13256000 
13257000 
13258000 
13259000 
13260000 
13261000 



T 01344 000010 
T 01341000010 



01341000010 

01341000011 

01341000112 

01341000210 

01341000210 

Oi 3410 00.4 1 1 

01341000513 

013410006(1 

013410008)1 

01341000913 

01341001112 

01341001312 

0134)0014)0 

0134)0014)0 

0134101)1512 

0134)0015)3 

0134)0016)0 

0134)0017)3 

0134)0018)1 

0134)0018)1 

013U 002010 

0134)0020)0 

0134(0022)0 

0134.)Q022.I.O 

0134)0023)3 

0134)0023)3 

013^100^111.. 

0134)0026)0 

0134(0028(0 

013-410030.11 

0134)0033)2 

0134)0036)0 

0134)003-611 

0134)0037)3 

0134(0039)2 

01341-00444^ 

0134)0044)0 

0134)0047)3 

OlMlflOi^All.. 

0134)0049)3 



raw. 



IF OcR * 

Then begin l*ocr-2I callswitchcpointe«)i emitocbfwjifno) 

l*-J+lll EMITLCIS); EIMITOCRTS)! 
FOR J «■ 4 STF.P A UNTIL N 
DO BEGIN 

EMITU(6NAT(GFT(U)xft096 + GETCl-H)))> 

fmitocrts) end fnd 

ELSE BF61N 
L ♦ J+13; 

for j * ^ step 4 until n 
dO begin 

GTI *■ GET(L)x4096 + geT(L*1)> 

gogfn(gti»bfw) endiendi 

L * TL END 
FLSl IF FUcLaSS ^ PROCID AND ELCLASS S INTPROCID 
THEN IF TaKfCP0INTER*1) < 
THEN BEGIN GTI * UU 
RECOVI M0VE(9ilNF0rP0lNTER.LlNKR»P0lNTrRtLlNKC]»ACCUM)| 

fi ♦ ACCUMtnt FLAGCGTDl ERRORTOG ♦ TRUF END 
ENDI 
XRFFDUMp(POlNTER)? % DUMP XREF INfO 1116- 

gt2*take:(Pointer+1)» 
gt3*gt2,purpt| 

STArKHFA0r(0&GT2C12!l2|36])M00 125] ♦TAKeCPO INTER ) .L INK? 
P01NTfR*P0INTeR-GT3 
END 
END ; 
LASTiNFO*POlNTERl 

nexttnfo«-stopper 

ENDI 



134 IS 



13262000 
13263000 
13264000 
13265000 
13266000 
13267000 
13268000 
11269000 
13270000 
13271000 
13272X)00 
13273000 
13274000 
13275000 
13276000 
13277000 
13270000 
13279000 
13280000 
13281000 
13282000 
13283000 
13283500 
13284000 
13285000 
13286000 
13297000 
13288000 
13289000 
13290000 
13291000 
13.292000 
107 LONG* 



01341005113 
01341005113 
01341005513 

01341005810 
013410058 to 
01341005912 
01341006211 
01 34 too 65 J 3 
01341006810 
01341006912 
013410^6912 
01341007010 
01341007312 
01 34 1 OW 641 
0134I0076U 
01341007611 
01344 007712 
01341006010 
0U4I0082I1 
01341008410 
01341008811 
0134I009H2 
0134li)0»H2 
01341009312 
01341009512 
01341009610 
01341010010 

> 01341010010 
QU4J01O112 
01341010113 
01341010211 
0l31.r0li)2.11 

NEXT SEG 3 



PROCEDURE F» 
COMMENT 

F IS THE PROCEDURE WHICH PLACES AN ENTRY IN INFO AND 
HOOKS IT INTO SlACKHEADf THE PREVIOUS STACKHEAD LINK 
tS SAVED IN THE LINK Or THE ELBAT WORD IN THE NEW ENTRY 
F PREVENTS AN ENTRY FROM OVERFLOWING A ROW, STARTING AT ThE 
BEGINNING OF THE NEXT ROW IF NECESSARY 
BEGIN 

REAL WORDC0UNT,RlNX» 



STACK(F*2) 
STACKfF+3) 



WOROCOUNT 
RINX 



THEN 



8 



IF RINX«.{NEXTINFO*WoRDCOUNT«-(COUNT + 18)DIV 
NEXTINFO.LINKR 
BEGIN PUT{0&(RlNXx256-NEXTiNF0)[27t40l83«NEXTlNF0)l 

NEXTlNF0*256xRiNX END* 

IF SPECT06 THEN 
IF NOT MACROID THEN 
UNHOOKI 

kount*cOunti 



).LINKR * 



13293000 
13294000 
13295000 
13296000 
13297000 
13298000 
; 1329S000 
13300000 
13301000 
start of SEGMENJ 



133Q2000 

13303000 

13304000 

13305000 

13305100 

13305200 

13305300- 

13306000 



T 0003 1 0681 13 

T 00031088113 

T 0003«0881I3 

T 000310M1»4- 

T 00031088113 

T 000JI0881I3 

T Qfl0iLaaA4i.3 

T 0003»0881»3 

T OOO31O88113 

f f 4t « f « * ♦.♦ ♦ j_ 35, , 



T ai35lQfli)QJ-D 

T 01351000312 
T 0l35«0003t2 
I 0l35-ia(iaii3 
T 01351000912 
T 01351000912 

I Q435LQO1OI0- 

T 01351001112 



AcruMro], incr*wordcOunt» 

ACCUMr0 3,LtNK ••STACKHEADC SCRaM] | STACKHEADC SCRAM3tNEXT f 
ACCUMfl ].PURPr*NEXTiNpO-L.ASTlNFOI 
MOVEfWORDCOUNT.ACCUM.lNrO[NEXTINFO.LINKH.NEXTlNFO,LINKC3)» 

rr XREF Then i make declaration reference 

IF (ACCUM[0],Ct.ASS )« DEFINEDIO OR NOT 

BOOLEANfACCUMtO]. FORMAL.)) THEN % NOT DEFINE PaRAMf 
BEGIN 

xRefinfO[Nextinfo] I« 
if spectog Then 

XREFlNFOtELBATf IJ] 
ELSE 

((XUUN »• XLUN + 1) & SGNO 

IF SPECTOG Then % jusi go back 

XMARK(DECLREF) 
ELSE 

XREFIT(NFXTiNFO#CARDMUMBER.IF PTOG AND NOT STREAM 
THEN NORMALREF ELSE DECLREF)! 
END 
ELSE % DEFINE PARAMfTfRS • DONT CROSS REF, 
XREFINfOCNexTINFO] I* 
ELSE 

IF DEFINING. cnn ThEN % WE ARE DOING XREFING 
XReFINfO[NeXTiNF03 »« OJ 
LASTINFO»NEXTiNFOJ 
IF NEXTINFO *■ NEXTiNf0*H0R0C0UNT > 8l92 THEN 
BEGIN FLAG(199)J GO TO ENDOFITALL ENDi 
END* 



SEGNOF)! 
AND FIX UP 



XREF ENTRY 



NF0» 



1116- 

XI 16- 

TERX116. 

X116. 

xn6- 

X116' 
«116- 

xn6« 

X116- 
Xll6« 
T0G«n6i 
X116- 
1116- 
J;il6« 
X116' 
XH6- 
XU6» 
Xll6« 



135 IS 



13307000 T 
1330B000 T 
13309000 T 
13310000 T 
13310050 C 
13310075 C 
13310080 C 
13310100 P 
13310200 P 
13310300 P 
13310350 C 
13310400 P 
13310450 P 
13310500 P 
13310525 C 
13310550 C 
13110575 C 
13310580 C 
13310600 P 
13310700 C 
13310750 C 
13310800 C 
13310900 G 
13310950 C 
13311000 T 
13312000 T 
13312500 T 
13313000 T 
69 L0Nfi.» 



01351001210 
01351001411 
01351001811 
01351002113 
01351002512 
01351002610 
01351002810 
0135JQ029I3 
0l35>0030t0 
0135I0032«1 
Ql35*i)03ai2 
01351003611 
01351003712 
0135100401 
01351004010 
01351004512 
0l45M^a45l 2 
01351004512 
01351005010 
0l35l0a50l0 
01351005010 
01351005313 
OllSJOasAlO 
01351005513 
01351005913 
01351006010 
0l33t0062i0 
01351006513 
NEXT. SEfi 3 



I 
I 



PROCEDU 
COMMENT 



RE fNTRY(TYPe)> 
VALUE TYPe» 
REAL TYPEI 



BEGIN 



fNTRY ASSUMES THAT i is POINTING AT AN IDENTIFIER WHICH 
|S BEING DECLARED AND mAkES UP THE ELBAT ENTRY FOR IT 
ACCORD To TYPE .IF THE ENTRY IS AN ARRAY AND NOT 
A SPECIFICATION THEN A DESCRIPTOR IS PLACED IN THE STACK 
FOR THE UPCOMING COMMUNICATE TO GET STORAGE FOR THE ARRAY(S) 

BOOLEAN SVTOGJX 



STACKfF+2) » SVTOG 



J*0) I«-l 
DO 

BEGIN 



11 



♦■TRUE* STEPlTJ 
•SPECTOc, 



SCATTeRELBATI 



STOPDEFINE 
IF FORMALF- 
THEN 
BEGIN 
IF TYPESINTARRaYIO AND TYPEiBOOARRAY ID ThENX 
IF VONF Then begin SVTOG ♦ ERRORTOGI FLAG{15)|X 

SPECTOG * ERRORTOG ♦ SVTOG* ENDI15 
IF ELCLASS)«SfCRET 



13314000 T 
1331.5000 T 
13316000 T 
13317000 T 
13318000 T 
13319000 T 
13320000 T 
13J.21000 T 
i 13322000 T 

13323000 T 
13323010 T 
START OF SEGMENT 

133240X10 T 

13325000 T 

13326000 T 

13327000 T 

13328000 T 

13329000 T 
13330000 T 

13330550 T 

13330600 T 

13330.650 I 

13331000 T 



00031066113 
0003 » 0861 1 3 
00031088113 
00031008113 
00031068113 
000310881(3 
00031068113 
00031 X)dai t3 

0003t088l»3 
00031066113 
0003 1 066113 



01341004040 
01361000210 
01361000210 
01-36 1.00.02 JO 
01361000313 
01361000313 
.01361.0110-4 J-l 
01361000512 
01361000611 
0116J00Q9J1 
0i36i00i0ii 



!F 



Then FUAGf002)» 

BUP«-B 

END 
FLSc 

BEGIN 

IF elclass>idMax a 

THEN FLAG(003)I 
IF ELCLASS • OfFIN 
IF NOT (PTOG OR 

THEN FLAgCD 
El-SF 
ELSE 

IF LEVEL.F * LEVE 
FlAGCOJ 
V0NF*P2^ 
r(FORMALF*PTOG)OR (STRrAMTOf, 

THEN ADDrtSF ♦ 
ELSE IF STOPgSP ThEN 
ELSE ADDRS 

IF type^intarRayid 
thfn If P2 then 



ELSE 

endi 
if xref and not spectog 
xrefpt«.xrefpt-realce 

KLASSFfrTYPEJ MAKEUPaCCU 



UP*1 



NO ELCLASS<FACTOP 

EDiD Then % check if new declaration 
streamtog) and linkf i globalninfoo 

XllB' 
X118' 

L then X DUPLICATE DECLARATION 1118- 

xiiS' 

AND NOT STOPGSP)) AND NOT P? 
PJ tPJ+l 
AODRSF ♦ 
F««GETSPACEtP2»l)l % ID IN ACCUMtl], 

AND TYPEiBOOARRAYIO 

BEGIN COMMfNT OWN ARRAY; 

EMiTLCADDRSFil EMlTN(l0)j 

END 

checkdisjointcaddrsf)* 

Then % erase previous xref entry, 
lbatcnj«0)» % get rid of last cref 



END 

Until 



STFPH»COMMA OR SToPfNTRYl GTAHO]*J 



ENOI 



136 IS 



13332000 T 

13333000 T 

13334000 T 

13335000 T 

13336040 T 

13337000 T 

13338000 T 

13339000 P 

13339100 C 

13339200 C 

13339300 C 

13339400 C 

13339500 C 

13340000 P 

13341000 T 

13342000 T 

13343000 T 

13344000 T 

13345000 T 

13346000 T 

13347000 T 

13347500 T 

13347510 T 

13347520 T 

13348000 T 

13348100 P 

13348200 T 

13349000 T 

13350000 T 

13351000 T 

13352000 T 
53 LONG* 



0l36l00ll>2 
0l36t(«)l2U 
01361001312 
01361001410 
Oll6t0X)44tO 
01361001411 
01361001513 
0136*001743 
01361001810 
01361002010 
01361008113 
01361002210 
01361002211 
0136 1 0023 1 3 
01361002512 
01361002513 
01361002713 
01361002912 
01361003210 
01361003411 
01361003513 
01361003713 
01361003912 
0l36l0039»2 
0l36t0040M 
0i36t0O4Ot| 
013610042(0 
01361004411 
013440047^3 
01361004713 
01361005010 
NEXT S£G 3 



PROCFnURF UNHOOKl 
COMMENT 

UNHOOK ASSUMpS THAT THE WORD 
FOR aPARAMeTfR.ITS JOB IS TO 
E WILL WORK AS NORMAL, 
BEGIN 

REAL LINKT.A»LINKP; 



IN ELBATtn 
UNHOOK THAT 



POINTS TO A 
FALSE ENTRY 



PSUEDO fNTRy 
SO THAT 



13353000 
13354000 
13355000 
13356000 
13 35 7 000 
1335800O 
13359000 



00031 
00031 
00031 
00031 
OQOii 

00031 
00031 



088113 
0881! 3 
086113 

oseiu 

QJfltU 
0881»3 
080113 



STacK(F*2) * L 
STACK(F+3) - A 
STACKfF+4) 8 L 



INKT 
INKP 



LABfL LJ 



ENDI 



START OF SES-MENT ♦.♦#*****♦* 137 



LlNKT*STACKHFADtSCRAM] f L I NKP*EL8ATt I ] . L I NK J 

IF L1NKT*LINkP THEN STACKHfADt ScRAM3i-TAKE(L| NKT ) .LfNK 
ELSE 
L« IF A*TAKECLINkT),L1NKpLINKP 

THEN PUTCCTAKEaiNKT))4CTAKE(A))X35l35M3]#UlNKT) 
ELSE BEGIN LINKT*A; GO TO L ENDJ 



13360000 
13361000 
13362400 
13363000 
13364000 
1 3365000 
13366000 
13367000 



T 01371000010 

T 01371000010 

T 01371004241 

T 0137J0005I3 

T 01371000610 

T 01371040411- 

T 0l37t00l2«0 

T 01371001411 



137 IS 17 LONfi* NEJ(T S^C-6 



PROCFDURE MAKfUPACCUMj 
BETGIN 

IF PTOG 

THFN GT1«-UEVeLF E^Se GTUUEVeLJ 
ACrUMfO]* ABS(ELBAT[I] S K^aSSf [ 2 : 'J 1 1 7 3 & REALC FORMAUF ) 1 9l A7 1 1 ] 

ft REAL(VONF)ClOU7in ft GT1[11U3«5] ftADDRSFC 1 61 37i 1 U 
) 
END> 



13368000 
13369000 
13370000 
13371000 
13372000 
13373000 
13374000 
13375000 



00031 

0003? 
00031 
0003t 
00031 
00031 
00031 
00031 



O88II3 

088113 
08dll3 
088210 
068411 
088713 
089010 
089011 



PROCEDURE ARRAE» 
PRT(1075) • ARRAE 

COMME 



13376000 T 0003«089l«3 



NT 

arraf enters info ABOU 

IT ALSO E^lTS CODE TO 
STORAGE FOR THE ARRAY 
MAnE TO GENERATE EFFIC 
EACH DIMENSION. FOLLOWi 

ARRAY AfO»lO]» 

MKS 

DESC 

LiTC 
LITC 
LlTC 
LiTC 



Save 



COM 

deSc 
OWN array B»croix.-iii 

MKS 

desc 
desc 

LiTc 

OPDC 

LiTC 

I5N 

LiTC 

ADD 

LiTC 

chS 

tiTc 
LiTC 
LiTC 
LiTC 

COM 

desc 

Own ARRAY D«E»FIXiYiM 

mks 

deSc 
desc 

oeSc 



T ARRAYS AND THEIR LOWER BOUNDS, 
COMMUNICATE WITH THE MCP TO OBTAIN 

AT Object time. special analysis is 
ient code when deteRming the Size of 
ng are a few examples of code emitted' 

CTHiS marks STACK TO CUT BACK AFTER 

A (This forms a descritor pointing to 

The address of a) 
u (Size of array) 

1 (NUMBER OF DIMENSIONS) 
1 (NUMBER OF ARRAYS) 

ARcOm (COMMUNICATE LITERAL FOR NON SAVE. 
NON OWN ARRAYS) 
(COMMUNICATE TO MCP TO GET STORAGE) 
(XfTR JUST EXjTS.THUS CUTTING BACK 
STACK) 



COM) 



XITR 

03. 

B 
C 


X 
JUNK 

1 

1 



(LOWER BOUND MUST BE PASSED FOR OWN) 

(JUNK CELL) 

(INTEGERI2E UPPER BOUND) 
(COMPUTE SIZE 
OF DIMENSION 
(LOWER BOUND. SECOND DIMENSION) 



12 (SIZE SECOND DIMENSION) 

2 (NUMBER DIMENSIONS) 

2 (NUMBER ARRAYS) 

OWNCOM (OWN ARRAY COMMUNICATE) 

XITR 
+N»TxV]» 



13377000 
13378000 
13379000 
13380000 
13381000 
13382000 
13383000 
13364000 
13385000 
13386000 
13387000 
13368000 
13389.000 
13390000 
13391000 
13392000 
13393000 
13394000 
13395000 
13396000 
13397000 
13398000 
13399000 
13400000 
13401000 
13402000 
13403000 
134Q40Q0 
13405000 
13406000 
13407000 
13406000 
13409000 
13410000 
13411000 
13412000 
134 1 300a 
13414000 

13415000 
1341&0.00 
I3fll7000 



T 00031089113 

T 0003I089H3 

T 0003l089lt3 

T 00031089113 

T 00031069113 

T 0003I089H3 

T 000310694-13 

T 0003I0891I3 

T 0003I089H3 

T 00031069113 

T 00031069113 

T 0003I0891I3 

I 00O31.0A9413 

T 00031089113 

T 000310691(3 

T 00031089111 

T 00031089113 

T 0003J089H3 

T 00031089113 

T 00031069113 

T 0003t089l»3 

T 00011089113 

T 0003I089P3 

T 00031089113 

T 00011089113 

T 0003)089113 

T 00031089113 

I MQ 3 1 98911 3 

T 0003>0691t3 

T 0003|0691«3 

I 00011089111 

T 00031069113 

T 0003«0891»3 

T 00031089111 

T 0003(089113 

T 00031069113 

T 00031-06-9-111- 

T 00031069113 

T 00031069113 

T . OOOll-DAftiU^ 

T 00031089113 



OPOC 
LiTc 
ISN 

nuP 

OPOC 

LlTC 

iSN 

XCH 

SUB 

LiTC 

ADD 

OPDC 

OPOC 

ADD 

LiTC 

ISN 

DUP 

QPDC T 

MUU V 

LiTC JUNK 

ISN 

XCH 

SUB 

LiTC 

ADO 

LiTc 

LiTC 

LiTC 

COM 

desc 



X 
XT 



Y 
JUNK 



1 

M 
N 

MNt 



1 

2 
3 
SAVON 

XITR i 



(CELL OBTAINED TO KEEP UOWeR BOUND) 

(PUT integeRized lower bound away) 
(must pass lower bound for own) 
( integerize 

UPPER 
BOUND) 

(COMPUTE Size of first dimension 

UPPER 
-LOWER 

+ 1) 

(COMPUTE LOWER BOUND 
SECOND DIM) 

(GET CELL FOR SECOND LOWER BOuND) 

(INTEGERIZE) 

(PASS LOWER BOUND FOR OWN) 



(INTEGERIZE 
UPPER) 
(COMPUTE 
SIZE 

) 
(NUMBER DIMENSIONS) 
(NUMBER ARRAYS) 
(SAVE OWN LITERAL FOR 



COM) 



STACKfF+2) m 
STACKfF*3) * 
STACK(F+4) * 
STACK(F+5) « 
STACKfF*6) X 
STACKfF+7) • 
STACKfF*lO) ; 
STACKfF + lD « 
STACK(F*12) s 
STACK(F+13) « 
STACKeF+14) 1 

STACK(F+15) « 
STACKfF+16) . 



STACKfF+lT') • 



BEGIN 
Real Tl.T2.T3fK,LBJ.ARPR0sS,SAVEDIM#T,T«,SAVElNF0»SAVEINF02l 

Tl 
T2 
T3 

K 

L8J 

arprogs 
savedim 

T 

Tft 

SAVEINFO 

SAVCTNF02 

BOOLEAN LL1T0G#ULIT0GI 
LLlTOG 
ULITOG 

REAL ADDCON) 
AODCON 

LABfL C SZ» Beta i» TWO, START, SlB, BET A2i 

ARRAYFLAG • TRUE^ 
TYpEV*REALARRAYIDI 

IF Ti«.GTAirj*j-n*o Then j*j+i 

ELSfc 

IF T1«0WNV THEN 

BEGIN P2lwTRUEnF SPEcTOG THEN FLAG(13) END 
EUSE 

IF ti» savev Then 



13*18000 T 0003»089l 

13419000 T 000310891 

13A20000 T 000110891 

13421000 T 0003»0891 

13422000 T 0003*0891 

13423001) T 0011310891 

13424000 T 000310891 

13425000 T 000310891 

13426000 T 000310891 

13427000 T 000310891 

13428000 T 0003«0891 

13429000 T 000310891 

13430000 T 0003»0891 

13431000 T 000310891 

13432000 T 000310091 

13433000 T 0003»0891 

13434000 T 000310891 

13435000 T 000310891 

13436000 T 000310891 

13437000 T 000310891 

13438000 T 000310891 

13439000 T 000310891 

13440000 T 000310891 

13441000 T Q0O3i0a91 

13442000 T 000310891 

13443000 T 000310891 

13444000 T 000310891 

13445000 T 000310891 

13446000 T 000310891 

13447000 T Q0Q31 069.1 

13448000 T 000310891 

13449000 T 000310891 
START OF SEGMENT *♦♦*♦♦♦*** 



13450000 T 01381000010 



13451000 T 01 381^00010 



13452000 
13452100 
13453000 
13454000 
13fl55i)-00 
13456000 
13457000 
1 345 B 000 
13459000 



T 01381000010 

T lift J MOO JO 

T 01381000011 

T 01381000113 

I UiUOO OAlI 1 

T 01381000513 

T 0138J0007I2 

T 01381-000913 

T 01381000913 



i 



RTGIN 
P3«aTRun 

IF spcctog Then flag(13)J 
% IF Remotog Then flagcSob); % not allowed in xalgol on tss, 

FNO 
ELSE 

IF TlB AUXMeMV then 

begin P4i«true> if sPectog Then flag(13) end 

ELSE 

TYPfV i«realid + tu 

IF not sPectog Then eMito{mks)j saveinfo^nextinfo; 
ENTrRf typeV)j saveinfo2*nextinfo*nextinfo*i» 

BETAU 

IF EI,CLASS#LFTBRKET then FLAg{016)I LBj*OlSAVEDlM*li 
TWO* IF STEPI«AD0P THEN 

BEGIN 

Tl»-ELBATCl],AODRESS| i*i*i 
END 
ELSE T1*0MF SPECTOG THEN GO TO BETA2I 
ARPROGS*L> 
IF TaBLFC I + l)«COLON AND TABLe CI )«L I TNO THEN 

BEGIN 

LUlTOGi-TRUE; 

IF T3«-ELBAT[n,ADnRESSj»0 
THEN 
BEGIN 

EMITL(T3)J 

IF Tl-SUBOP THEN 

. BEGIN 

EMIT0(CHS3» 
AOOCON*ADDC 
END CUSE 

addcon*subc 
end; 

T24.T3'<'* + ADDC0N 

end 

ELSE 
BEGIN 

LLIT0G*FAL5E> 
IF TlitO THEN I^I-IJ 
T2l»GETSPACECP2#-U|tTFMP, 
AEXPIEM1TST0RE(T2,ISN)I 
T2*T2x4+SUBC*2l 

IF ELCLASS#COLON THFN 
FLAG(017)J 1*1-1 

endi 
IF P2 Then 

BEGIN 

IF LLITOG AND T3*0 THEN rMITL(0)» 
ARPROfiS+LJEMITOCDUP)! 

end; 

IF ELCLaSS*TaBLE(I«-I+2)pLITN0 TheN 

BEGIN . 

IF T*TaBLE(I*I+1)»C0MMa OR 
T»RTBRKET 
THEN 
BEGIN 



13«60000 
13461000 
13462000 
13463000 
13464000 

13465000 
13466000 
13467000 
13468000 
13469000 
13470000 
13471000 
13472000 
13473Q00 
13474000 
13475000 
13476000 
13477000 
13475000 
13479000 
13480000 
13481000 
13482000 
13483000 
13484000 
13485000 
13486000 
13487000 
13488.00.0 
13489000 
13490000 
13491000 
13492000 
13493000 
13494000 
13495000 
13496000 
13497000 
13498000 
13499000 
U50O00O 
13501000 
13502000 
13503000 
13504000 
13505000 
1350&000 
13507000 
13508000 
13509000 
13510000 
13511000 
135.12-0110 
13513000 
13514000 
13515Q0Q 
13516000 



01381001112 
01381001113 
01381001210 
01381001313 

0i3-aiao.4 3i3 

0l38t00l3l3 
01381001313 
Ol3Al00l5J2 
0l38l00l7«3 
0138J0017I3 
01 38 1 DO 1913 
0l38t0022>0 
0l38i0024ti 

01361002512 

01381002811 

01381003010 

01381003^011 

01381003210 

01381003312 

01351001513 

01381003610 

01381003913 

01381004010 

01 38 1 0040 11 

0138(004210 

01381004211 

0138}0043I2 

01381004410 

013-8 1004411 

01381004512 

01381004610 

01 38! 00 4610 

01381004611 

01381004912 

0138100491.3 

0l38l0050tl 

0138I0051«3 

01391005113 

01381005312 

0l38l0053»3 

01351-00.5610 

0138(005810 

01381005913 

01341006413 

01381006211 

01381006410 

oj3Aiao*iia. 

01381006512 
01381006513 
O1181QQ.6A10 
01381006913 
01381006913 

ouaiao-iaii 



01381007312 
01381007513 
01.3fllCi074lO 
013BI0076I1 



ULtT06*FALSEI 
AEXPl 

EMiTLCJUNK); 
EMtTO(ISN)| 
CSZI IF LLITOG aNO ULITOG THEN 

BFGiN 



EMITl(T4*ELBATCl-n,AnDRESS)J 
UtlTOfi*TRUE»GO TO CSZ 
END 
ELSE 
1*1-1 

end; 



OR P2 



L*ARPROGS; 

IF(T*IF ADOCON-ADDC THEN T4+T3+1 EUSE 

T'l-Ta + DSO OR T>1023 THEN FLAG(59)I 
rMITL(T); 

IF P3 THEN BEGIN SAVED I M*SAVED I MxT ; 

IF SAVEDIM>MAXSAVE 
THEN MAXSAVE*SaVEDIM 
END 
EUSE 

IF t>maxrow Then maxrow*.ti 

END 

elsf 
Begin if notcllitog and t3pO) 

then 
begin 

EMiTO(XCH)>EMITO(SUB) 
ENDI£MITL(U?EMIT0CAD0) 
END» 

subiputnbump(t2)ilbj*lbj+iiif t«.table(i)«comma then go to two 

ELSE 
IF T#RTBRKeT then FI-AG(018)J 

if not spectog then 

BEGIN 

comment keep count of no, of arrays declared; 
noofarraysj»noofarrays ♦ gtahoji 

EMlTL(UBJ)IEMlTL(GTAltO0); 

IF P3 and P4 then FLaG(14); % SAVE AND AUXMeM MUTUALLY EXCL. 

EMITL(REALCP3)+2xREAL(P2)*REALCP4)x64)I 

EMITV(5) 

END» 

PUT(LBsi»SAVElNF02-l)| 
DO BEGtN 

T*TAKECSAVEINF0); 
K*T,INCR| 

T.lNcR«.SAVElNF02-SAVElNFO-n 

PUTfT»SAVElNFO)| 
ENn 

UNTIL SaVEINf0»SaVfINF0+K»SaVEINf02-1I 
IF STFPli'COMMA THEN GO TO STARTI 
IF NOT SPECTOg THEN EMlTO(MKS)l 

saveinfo*nextinfoi 

I*I+1IENTRY(TyPeV)ISAVEiNF02»NeXTINfO*NEXTINFO+1I60 to BETAll 
BETA2J 

IF T* TABLE(I*Ul)'«COMMA OR TsRTBRKET 
THEN 



13517000 

13518000 

13519000 

13520000 

13521000 

13522000 

13523000 

13524000 

13525000 

13526000 

13527'000 

13528000 

13529000 

13530000 

13531000 

13531100 

13532000 

135^3000 

13534000 

13535000 

13536000 

13537000 

13538000 

13539000 

13540000 

13541000 

13542000 

13543000 

13544000 

13545000 

13546000 

13547000 

13548000 

13549000 

13550000 

13551000 

13551400 

13551500 

13552000 

13552500 

13553000 

13554Q0Q 

13555000 

13556000 

13557000. 

13558000 

13559000 

13560000 

13561000 

13562000 

135&300O 

13564000 

13565000 

1 354WaO 

13567000 

13568000 

13549^00 

13570000 



T 01381007712 
T 01381007913 
T 01381003112 
T 01381008210 
T 01381006210 
T OU8t0082U 
T 01381008313 
T 01381008411 

r 01344 0-0454 2 

T 01381008513 

T 01381008611 

T O138I004713 

T 01381008810 

T 01381008912 

T 0l38lQ0ft2JQ 

T 0138«0096U 

T 0138I0097J2 

T 01 38 10099 I 2 

T 01381009913 

T 01 381 0100 II 

T 01 38 J 01 on 2 

T 0138I010U2 

T 013810105(2 

T 01 384 01 05 1 2 

T 0138*010512 

T 01381010610 

T 0138I0107J2 

T 0138J0107I3 

T 013810108(0 

T 01384 010912 

T 01381011011 

T 01381011112 

T 0118I0U4-11 

T 01381011411 

T 0138J0117I2 

T 013810117.13 

T 01381011810 

T 013810118(0 

T 013810119? 3. 

T 0138(0121(3 

T 0138(0123(3 

T 0138104 26.10 

T 0138(012611 

T 01384 012712 

T Qlaflial^8J.^ . 

T 013810129(2 

T 0138(0130(0 

T ai38l0l3U3 

T 013810134(0 

T 013810135(2 

X 01381-013542 

T 0138(0138(0 

T 0138(0139(3 

T (Xl 344-04^44 42 

T 0138(014210 

T 01381014610 

T 0134.44114Z4-2 

T 0138(0150(0 



i 
i 



1 



8FGIN 

IF ELCLASS*.TA8LCCI-1)«LITN0 
THEN 
BEGIN 

T3*EUBAT[i-n. address; 

IF Ti« suBOP Then 

ADDCON *ADDC 

ELSE 
ADDCON *SUBC< 
T2*T3x«+A0DCON| GO TO SLBI 
ENDI 
IF EUCUASS.FACTOP THEN 
BEGIN 

T2**SUBCJ GO TO SLB 
END 
ENO> 

FLAG(0i9); 
STARTI aRRAYFLAg ♦ FALSE END* 



138 IS 



13571000 T 

13572000 T 

13573000 T 

13574000 T 

13575000 T 

13576000 T 

13577000 T 

1357*000 T 

13579000 T 

13580000 T 

13581000 T 

13582000 T 

13583000 T 

13584000 T 

13585000 T 

13586000 T 

13587000 T 

13588000 T 
175 LONG. 



0138101 
0130101 
0l38t0l 
0138101 

ouaiQ-i 

0138101 
0138101 
oust 01 
0138101 
0138101 
0138401 
013SI01 
0138101 
0138101 
0138101 
0138101 
0138101 
0138101 
NEXT SES 



5011 
51 J 2 
5312 
5313 
5AtQ 
5610 
56«l 
57U 
5610 
6011 
6410 
6410 
6411 

651 e 

6611 
6810 
681 « 
68tl 



PROCEDURE 



BEGIN 



END » 



PUTNbUMP(X)J 
VALUE X> 
REAL XJ 



infocnextinfo.linkr.nextinfo.linkc]' 
nfxtinfo*nextinfo+i 



XI 



13589000 
13590000 
13591000 
13592000 
13593000 
13594000 
13595000 



T 0003I0891I3 

T 0003(089113 

T 0003!Qa9113 

T 0003l089l»3 

T 0003«0891»3 

T 0001JOB95t 2 

T 0003I0895I2 



PROCED 
COMMENT 



IF NOT 
BEGIN 
IF A 

BEG I 

END 



ijRe jumpchkxj 

thts procedure is called at The start of any executable code 
Which The block might emit.jT determines whether any jumps 
arround nonexecutable Code may be waiting and whether it 
IS The first executable codej 

SPFCTOG THEN 



JUMP 

THEN 

N ad 

EM 

fLSE 
IF 



endj 



AJUM 



JUSTi 
ITB(BFW.SAVEL»L) 

FIRSTXb«095 
THEN 
BEGIN 
ADJUST? 
FIRSTX*L; 
END) 
P*FALSE 



13596000 
13597000 
13598000 
13599000 
13600000 
13601000 
13602000 
13603000 
13604000 
13 60 5 000 
13606000 
13607000 
1360.8000 
13609000 
13610000 
13611000 
13612000 
13613000 
13614000. 
13615000 



T 000 31 089611 

T 0003»0896ll 

T 00031089611 

T 00031089611 

T 0003t0896>l 

T 00031089611 

T 0003108.9.713 

T 00031081810 

T 0003f0898i0 

T 0QQ3t£l61£!Q 

T 00031081912 

T OOO3I090OJ0 

T OQ0310SQOM 

T 00031090112 

T 00031090113 

T 0003109021 

T 00031090211 

T 00031090313 

T 0O03i-09il3-ll 

T 00031090313 



PROc 
COMME 



IF NO 

BEGIN 

IF 



EOLlRf: jumpchknxi 

NT JUMPCHKNX determines WHETHER ANY EXECUTABLE CODE HAS BEfN 
EMITTED AND IF SO WHETHER IT WAS JUST PREVIOUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED. IF BOTH THEN L IS BUmPED 
AND SAVED FOR A LATER BRANCH^ 

T SPECTOG THEN 

FrRSTX#ft095 
THEN 
BEGIN 
IF NOT AJUMP 
THEN 

savel*bumplj 

AJUMP*TRUe 
ENDIADJUST 



eNoi 



13616000 
13617000 
13618000 
13619000 
136?0000 
13631000 
13622000 
13623000 
13624000 
13625000 
13626000 
13627000 
13628000 
13629000 
13630000 
13631000 



0003t 
00031 
00031 
00031 
00031 
00031 
0003< 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



090610 
090610 
0906 I 
090610 
0906J0 
Q90610 
09061 1 
0907J2 
090ri2 
090713 
090810 
0908 to 
090811 
091112 
091 1V2 
091113 



PROCEDURE SEGMENTSTART) 
BEGfN 

IF noheading Then datimei 

IF singltog Then wRiTe(Line.pRintsegno»s6avl) 

PRT(1076) m -kLIST. LABEL» OR SEGMENT DESCRIPTOR* 

ELSE WRlTE(LTNFtOBL]»PRlNTSEGNO,SGAVL)l 
PRTfl077) « *L1ST, LABEL* OR SEGMENT DESCRIPTOR* 

END SeGHENTSTARTI 



13632000 
13632100 
13633000 
13633100 



T 00031 09 14 to 

T 0003«09l4l0 

T 00031091410 

T 0003t09i5l2 



13633200 T 0003I092H2 
13633300 T 0003l0932«l 



PROCEDURE SEGMEnTcSiZE»NO»NOO)> 
VALUE SIZE»N0.N00> 
REAL SiZE.NOtNOOl 
BEGIN 
INTEGER DUMMYI % THIS IS HERE 



STACKfF*2) « DUMMY 



PRT(HOO) « ♦LIST. 
PRT(iiOi ) m *LISTf 



SO THAT OUR CODE SEGMENT 



% IS NOT TOO BIG 
PDPRTrPDlNX,[37l5].PDlNX,r^2»6]] tu 
Sl7E & N0r28»3ail0] K 

M0VEAN0BL0CK(ED0C.ABS(SIZE)»-ABS(N0))rl3»33»l5] ft 
REAL(SAVEPRT0G)[3l47n]| 
PDlNXUPDINXfl) SiZEIkAbScSIZE)! 
IF SI7E>SEGSIZEMAX THEN SEgSI ZEMAX I «SI ZE J 
AKKUMl«AKKUM+SlZE» 

IF SaVEPRTOG Then AUXMEHREQUAUXMEMREQ + 16x(SlZE,t38«6Hl)> 
IF LISTER OR SEGSTOG THEN 
BEGIN 

IF NOhEAOING THEN OaTiME; 

IF SINGLTOG ThEN WRi Te (L I NE . PR I NTSI ZE. NO. SI ZE . NOO) 
LABEL. OR SEGMENT DESCRIPTOR* 

ELSE WRITE(LINE»PRINTSIZE»N0.SI2E»N00J1 
LABE|.» or SEGMENT DESCRipTqR* 

end; 

LDTCT[N0.t38l3]fN0.i:4ll7]] »« 
IF BUILDLINE THEN 



X106- 
X106- 
X106- 
1106- 
X106- 



13634000 C 0Q03l0932i.l 



j:i06- 
X106- 
Xl06» 
X106- 
Xl06- 
XlQ6« 
J[106- 
Xl06- 
Xl06- 
«106- 
Xl06- 
X106- 
X106- 

XI 06- 

X106- 
XI 06- 
X106- 



13635000 
13636000 
13637000 
13637100 
START OF SEGMENT 

13637200 
13638000 
13639000 
13640000 
13641000 
I36420a0 
13643000 
13644000 
13645000 
13646000 
13647000 
13648000 
13649000 



C 00031093211 

C 0003l0932»l 

C 0003I0932U 

C 0003J0932I1 



0139 
0139 
1 39 
0139 
0139 
0139 
0139 
0139 
at.3-9 
0139 
0139 
0139 
0139 



lOOOOtO 

tooooto 

1000240 
1000313 
1000712 
IflOXVtl 1 
tOOlOtl 
1001211 
100.1410 
1001713 
tOOiBIl 
IDQ49I2 
t0020ti 



1 36 500 Q C 01 391 0042 1 



13651000 
13652000 
13653000 



C 01391004313 
C . 04391 QX)43 13 
C 01391004513 



M0VEANDBL0CK(ENlL»ENfLPTR4.l,4) R S 1 ZE 1 18 I 33 M 5 ] X106- 

FLSE -n 1106- 

ENn OF SEGMENT? 11106- 



139 IS 



13654000 C 

13655000 C 

13656000 C 

54 LONG. 



01391004610 

01391004913 

01391005112 

NEXT SEG 3 



PROCEDURE ENTERCTYPEJl VALUE TYPEI INTEGER TYPE! 
BEGIN 

GI*r.TAl[J»«J-nj 
IF NOT SPECTOG then 
BEGIN 
IF NOT P2 THEN 

IF P2l«(G»0WNV) THFN G » "GT Al [ J » «J-1 ] I 
IF NOT P3 THEN 

IF P3I»(G»=SAVEV) Then GI»GTA1 t JIs»J-1]» 
IF NOT P4 THEN 

IE P4:*{G»AUXMeMV) Then G»»GTAl[JI«J-ni 
END» 

IF G#0 THEN FLaG(25) ELSE ENTRY(TYPE) 
END ENTER! 



13697000 
13696000 
13699000 
13700000 
13701000 
13702000 
13703000 
13704000 
13705000 
13706000 
13707000 
13708000 
13709000 
13710000 
13711000 
13712000 
13713000 
13714000 
13715000 
13716000 
13717000 
13718000 
13719000 
13720000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 



T 00031093211 

T 0003«0932«1 

T 00031093211 

T 0003I0932»1 

T 000310932*1 

T 0003 1 093 2 U 

T 0003I0932U 

T 00031093211 

T 0003109324 1 

T 0003I0932U 

T 00031093211 

T 00034 093211 

T 00031093211 

T 00031093211 

T O003»X»932Jl 

T 00031093211 

T 00031093211 

T 00031093211 

T 00031093211 

T 00031093211 

T 00 Q3 1 093512 

T 00031093513 

T 00031093610 

T 000 310936 »1 

T 00031094011 

T 00031094112 

T 0003»09fl5U 

T 00031094610 

T 0003(095010 

T 00031095010 

T 00031095312 



PROCEDURE HTTE0APC6OTST0RAGE»RELADfST0PPERiPRTA0 3» 
PRT(ll02) • HTTEOAP 

VALUE GOTSTOR A GE»RfLaD» STOPPER »PRT AD > 
BOOLEAN gOTSTORaGE; 

REAL Relad»stoppeR»prtad; 

BEGIN 

BOOLEAN BTi 



STACKfF+2) « BT 
STACKfF+3) 9 K 



START 



Real k.lsi 



13728000 
13729000 
13730000 
13731000 




00034^95343 
00031095313 
0003J0953I3 
00034055313 


13732000 
13733000 
13734000 
13735000 
13714000 
Of SEGMENT 


T 00031095313 

T 00031095313- 

T 00031095313 

T 00031095313 

T 000310-953-11 
«4i**»««*«* 140 


13737000 


T 


01401000010 



STACKfF+4) « LS 



LS4.RF-LAD? 

bt*jumpctr«level< 

IF FUNCTOg 

thfN 

BfGIN 

FMiTV(5i/0; 

EMiTOcRTN) 
END 
ELSr 

EMIT0(XIT)J 

IF stackctr>maxstack then maxstack*stackctrj 

CONSTANTCLEANJ 

IF K«.MAXSTACK*5l4>0 OR GOTSToRAGE OR BT OR NCII>0 OR FAULTOG. r 46 1 n 

ThfN 

rfgin ADJUSTJLS-LJ 
IF BT OR GOTSTORAGE OR FAULTOfi . [ 46 J U 
THEN 
BEGIN 

EMITV(BL0CKCTR)| 

EMiTLd)? 

EMlTO(ADD)i 

IF GOTSTORAGE OR FAULTOG . t 46 I 1 ] 

Then 

FMITST0Re(BLOcKCTR»SND) 
END 

ELSE fMJTL(O); 
K«-K + Ncn^ 

While K«.K-iio 

DO eMitL(O); 
PURGE(STOPPeR)> 

IF faultlevel<level then 

Begin if faultlf:vel*levfl then faultievei*32> 

emitpair(0..mdS); emitO(ChS)? ■ 
end of this part of error kludge) 

EMIT(0)I « DC & DISK 

bumpli 

EMITB(BBC»U»IF RELAD = 4095 THEN ELSE RELAD) » X DC «l DTSK 

constantclean 
end else purgecstopper)) 
z*progoescbldr(pdes^if ls««4095 then else ls^prtad)! 

END mTTfOAPI 



140 IS 



13738000 
13739000 
13740000 
13741000 
13742000 
13743000 
13744000 
13745000 
13746000 
13747000 
13748000 
13749000 
13750000 
13751000 
13752000 
13753000 
13754000 
13755000 
13755500 
13756000 
13757000 
13758000 
13759000 
13760000 
13761000 
13762000 
13762500 
13763000 
13764000 
13765000 
13766000 
13767000 
13767100 
13767200 
13767300 
13767400 
13767500 
13768000 
13768100 
13769000 
13770000 
13771000 
13772000 
13773000 
50 LONG* 



01401000040 

0140I0000U 
01401000210 
01401000210 
01401000210 
01401000211 
0140I0003U 
01401000313 
01401000410 
0l40l0004i0 
01401000513 
0140IO007I3 
01401000810 
01401001113 
01401001211 
01401001-411 
01401001512 
01401001610 
0l40l00l6tl 
01401001611 
0140J0017I3 
Ol40t00ldl0 
01401001912 
0140(001912 
01401002010 
01401002112 
01401002113 
0l40i002l»3- 
01401002312 
01401002410 
0140101)2610 
01401002811 
01401002912 
014QI003QI0 
014010032(1 
0140(0034(0 
01401003410 
0140(0035(2 
0140(0036(0 
0l40.l.0Q.a6lQ 
0140(0039(3 
0140(0039(3 
014010.042(1 
0140(0046(1 
NEXT SE6 3 



PROCEDURE formatgen; 
BEGIN 

iNTEr.ER prtilabel l; 



STACKfF*2> « PRT 
STACKfF*3) » TB? 



BOOLEAN TB2I 



13774000 T 0003(0953(3 
13775000 T 0003(0953(3 
1 3776000 T OOOli 0951-13- 
START OF SEGMENT ♦»♦♦♦*♦•♦* 141 

13777000 T 014110.000(0 



ARRAY TEDOCrO»7»Oll?73; 
STACKrF+4) » TfDOC 

MOVrCOOEdEDOC.EDOO) 

BUltDLINf: * B00LE:AN(2xREAL(BUILDLINE)) t 
TB?»GTAltJ-llBSWlTCHVl 
GT5*Sf,N0l 
LI gTI J»(?xSGAy/L-l)&2i:ii46t2]| STOPeNTRY l«TRUE » 
IF UlSTER OR SegSTOG ThEN SEGMfNTST ARTi 
SfiNO«.SGAVL; 

FJaOj PRTtsSETSPACE(rRUE»l)lSTOPGSPlBTRUEl % FORMAT. 
Z*PROGOeSCBLDR{LOES#0,PrT)J 

IF TB? Then 

BEGIN 

FNTRY(SUPERFRMTin)l!F eLCLASS/ASS 1 GNQP THEN FLAG(36); 

PUT(TAKF(UASTlNF0)&PRTrl6«37lin.LASTlNF0)J 

RRfl*NEXTiNFOlPUTNBUMP(0)| 

nO 

BEGIN PUTNBUMPtDl IF STEP T ^LEFTPAREN THEN FLAGC37X 
FLCLASSJs^cwj 

tbi*-formatphrase; 

END 
UNTIL ELCLASS#''»"; 
RR3*-NEXTlNF0"-i;NEXTiNF0*RR4;PUTNBUMPfF)l 

no 

WHlP0UTCTAKECRRA«.RR4+n) 
UNTIL RR4«RR3; IF F>l022 THEN FLAG(38); 



13777500 T OHIIOOOOIO 



ENn 

BEGl 

i^l-i; 

DO 
BEG I 

s 

E 
PU 
TB 

ENn 

UNTfL 



ELSE 
N 



N 



topdefine*true;stepit ; 

NTRYCFRMTiD); IF ELCLASS#LEFTPAReN ThEN FLAG(32)J ELCLaSS I ."t"; 
T(TAKEfLASTlNF0)&PRTrl6«37nn&Ft27'«40l8],LASTlNF0); 

uformatphrase; 



ELCLASS/",- OR TBl«-FSt256 



I 



ENni 



SegMeNT(-f»S6N0,6T5)JSGAVL*SGAVL*1; 
IF TBI AND ELCLASSe^f" THfN BEGIN I*I+1JG0 TO L END! 
IF ELCLASSft")-* Then ELBATtl]*0 ELSE ELBAT f I ] .CLASS*SEMi COLON I 

stopgsp*stopentry«-falsej 

SGN0*GT5I 
MOVFCOnE(TEDOC,EDOC)» 
BUILDLINE ♦ BUlUDLlNE.r'>6in i 
END FORMATGENJ 



HI IS 



13777600 
13777700 
13778000 
13779000 
13780000 
13780002 
13781000 
13782000 
13783000 
13784000 
13785000 
13786000 
13787000 
13788000 
13789000 
13790000 
13791000 
13791050 
13792000 
13793000 
13794000 
13795000 
13796000 
13797000 
13798000 
13799000 
13800000 
13801000 
13802000 
13803000 
138^4000 
13805000 
138060QO 
13807000 
13808000 
13809QQ0 
13810000 
13811000 
13612000 
13813000 
13814000 
1381500Q 
13816000 
13817000 
13818000 
13818500 
13818600 
13B 19000 
78 LONG. 



014H0002I0 
0141 1000410 
01411000513 
01411000713 
014110006(0 
0l4ll00l2i-l 
01411001411 
01411001513 
01411001513 
0l4ll00l6ll 
0141 1002010 
OlAlJOOgOtl 
01411002112 
01411002313 
0141100261-0 
01411002713 
01411002610 
01411003112 
01411003113 
01411003211 
01411003211 
0141*003410 
01411003611 
01411003712 
01411003611 

01411004211 
01411004211 
01411004211 
01411004312 
01411004411 
01411004512 
01411004512 
01411-004610 
01411004912 

01411005312 
OlAllOOSAlO 
01411005410 
01411005712 
0141*005712 
01411005712 
01411005712 

Q1411M5913 

01411006312 
01411006611 
0141 10070 !0 
0l41»0070li 
01411007312 
014110.07410 
NEXT SEG 3 



procedure checkboundlvl 
comment check 



) 

OYNAMfC ARRAY BOUNDI MUST NOT BE 



13619100 
13819200 



T 0003109511-3 
T 00031095313 



DFCLARED AT SAMe LEVEL* 
ir NOT SPECTOG AND ElBaT[ I] . LVL-UEVEL 

Then rLAGciF Real(ARrayflag)«3 Then 509 else 46) ; 



13619300 
13819400 
138i94i0 



T 0003*095313 

T 00031095313 
T 00031095513 



I 

i 



COMMENT 46'-ARRAE NONpLiTERaL ARRAY BOUND NOT GLOBAL TO 

ARRAY DECLARATION! 
PROCEDURE FAULTDECI COMMENT FAULTDEC HANDLES THE MONITOR <rAULT LIST> 
THiNGf FOR The RUn-TimE ERROR BUSINESS. iT GETS STACK OR 
PRT SPACE AND PASSES SOME STUFF TO THE BLOCK CONTROL 
INTRINSIC, Who will BUILD AlT ENTRIES! 
BEGIN INTEGER TPI REAL Al 



I38i9500 T 0003«0959I3 



STACK(F+2) , TP 
STACKfF+3) a A 



13819600 T 

13900000 T 

13901000 T 

13902000 T 

13903000 T 

13903100 T 
START OF SEGMENT 



j*-oi JUMPCHKX; emito(MkS); 
TF faultlevel>level then FAULTLEVEL*LEVEL! 
if MODEao Then faultlevel*i* 

DO BEGIN IF U>0 THEN STEPITI J«.J+1| 
SCATTERELBATj A*ACCUMrl]! 

IF TP».REAL((Q«''6lNT0V'')&(tt«'»6EXP0V")t'*6'<>7UU(Q*"5 INDEX" 
)(:45»47in&(Q,»'4ZEROO'»)[44»47ll]e(Q«»'4FLAGO«)t43l47ll])B0 
THEN ERR (61) ELSE 
BEGIN IF TABLF(l + n«ASSI6N0P THEN 
BEGIN STEPlTj COMMENT OVER THE *! 

IF GTUSTePI>IDMaX AND GTKFAULTID THEN FRR(3); 
LEVELF*ELBATtlJ,LVL» 
END ELSE C0UNT*CACCUMtlJ»A),i:i2«6]J 
IF LeVELF»LEVEL THEN ERR (1) ELSE 
BEGIN KLASSFI-FAULTIOI AODRSF t •GETSPACECFALSf* 1 ) I 

formalf*vonf*false» 
emitlctp)j if mode«0 then begin emltl(0)j 

EMlTPArR(ADDRSF»STD)IENDI EMi TNC ADDRSF ) ; 
EMIT (H/E**)! COMMENT C^TO-FI 

makeupaccum* EJ STePIT 

FNDI ENDI end UNTIL ElCLASS^COMMA I 
FMITLCJ)! EMITLC13)| EMITVC5); 

END faultdec; 



00031095913 
00031095913 
0003)>0959t 3 
00031095913 
00031095913 
00031095913 



**«***«*«* 142 



13904000 T 
13905000 T 
13906000 T 
13907000 T 
13908000 T 
13909000 T 
13910000 T 
13911000 T 
13911100 T 
13911200 T 
13911300 T 
13911400 T 
13911500 T 
13912000 T 
13913000 T 
13913100 T 
13914000 T 
13915000 T 
13916000 T 
13917000 T 
13918000 T 
13919000 T 
13920000 T 
142 IS 56 LONGi 



1 42 1 00004 
01421000210 
01421000410 
0l42l0006i0 
01421000912 
0l42t00l0il 
0J42I0013I2 
01421001713 
01421001913 
0l42l0026ri 
01421002713 
0142(003112 
01 42 1 0033 1 2 
01421003513 
01421003713 
01421 OOJO II 
014210041(3 
01421004411 
01421004610 
0142(004712 
0142(004810 
01421004913 
0142(005210 
NEXT SE6 3 



COMMENT THIS SfCTiON CONTAINS THE BLOCK ROUTINE i 
PROCEDURE PLOCK(SOP)l 
VALUE SOPl 
BOOLEAN SOPl 
COMMENT SOP IS TRUE IF THE BLOCK WAS CALLED BY ITSELF 
PROCEDURE DECLARATION-OTHERWISE IT WAS CALLED 
The BLOCK ROUTINE iS RESPONSIBLE FOR HANDLING 
STRUCTURE OF AN ALGOL PROGRAM-SEGmEnT I NG EACH 
ALL DEClARATIONS»DOING NECESSARY BOOKKEEPING 

BLOCK, AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 
ABOUT DECLARED IDENTIFIERS, 
IT ALSO WRITES EACH SEGMENT ONTO THE PCTl 
BEGIN 



THROUGH The 
BY STATEMENT. 
The BLOCK 

Block, HANDLING 

REGARDING EACH 



14000000 
14001000 
140Q2Q0Q 
14003000 
14004000 
14005000 
14006000 
14007000 

uooaoax) 

14009000 
14010000 
14011000 
14012000 



T 0003(095913 

T 00031095913 

T Q0i)3l095»l3 

T 00031095913 

T 00031095913 

T 00031095913 

T 0003*095913 

T 0003(095913 

T OOOllflA&fil^ 

T 0003(095913 

T 0003(0959(3 

T 00Q11Q9S913- 

T 0003(095913 



tABF-L oWNERR»SAVERR.BO0L,EANDEC,REALDEC»AtPHADfC» INTEGEROECf 

l,ABEL.DEC,DUMPDEC.UISTDEC»OUTnEC» I NDEC » HON I TORDEC » 
SWiTCHDEC^PROCEDUREDEC.ARRAYDECfFORMATDECtFlLEDEC* 
GoTSCHK*FIElDDEC»AUXmEMERR» 1117-p 

5TREAMERR»DEFINEDEC»CAlLSTATeMENT»HF«STARTI 
SWITCH OECLSW*- OWNERR.SAVERR,B0OLEANDEC»REAL0EC»AUPHADECf INTEGERDEC» 

labeldec,dumpdec,uistdec»outdec.indecfmonitordec, 
switchdec»procedureofc»aRRaydec»formatdec»filedec» 

STREAMERR»DEFlNEDEC.AUXMEMERRfFlELDDECI «ll7- 

DEFINE NLOCSbiO#,LOCBEGiNi«PRT|#, 
l,BP«i:36l)2]#, 

SPACEITDOWN ■ BERIN wRf TE( LI NECDBL] ) I WR I TE C II NE[DBL] ) END*? 
ARRAY TED0Ct0|7i0ll?7]^L0CALSr0»NL0CSJJ 
STACKfF+2) X TEDOC 
STACKfF + 3) a LOCAL'S 

ARRAY TtHll[0i7$Qt\?JU 

stack(f*4) » tenil 

integfR oldlastaodRess; 
stackff+5) m oldlastaodress 

integfR oldenilptri 

STACKfF + 6) :, OLOENiLPTR 

boolean gotstoragej 
STACKfr+7) « gotstorage 

boolean FWDTOGI comment previous forward declaration INDICATOR] 
STACKfF+lO) n FWDTOG 

INTEGER PINFOO.BLKAD) 
STACKfF+11) * PInFOO 
STACK(F*12) s BLKAD 

COMMENT LOCAL TO BlOCK TO SAVE WHERE A PROCEDURE IS EMTERED 
IN INFOl 
REAL MAXSTACKO,LASTlNF0TfRELAD»LO»TSUBLEVEL»STACKCTH0l 
STACK(F*13) s MAXSTACKO 
STACKfF+U) 9 LASTlNFOT 
STACK(F+15) ■ RfLAO 
STACKfF+l6) s LO 
STACKfF+17) m TSUBLEVEL 
STACKfF+20) * STACKCTRO 

INTEGER Sr,N00,L0LD,SAVEL0.PRTi0,NINF0O» 
STACKfF+21) » SgNOO 
STACKfF*22) * LOLD 
STACKrF*23) » SAVELO 
STACKfF+24) « PRTIO 
STACKfF*25) b NiNFOO 

INTEGfR NCIlOl 
STACKfF + 26) s NCMO 

INTErER PROAD I 
STACKfF*27) » PROAD 

INTEGER NTeXTO; 
5TACKfF*30) * NTEXTO 

INTEGFR FIRSTXOJ 
STACKfF+31) « FIRSTXO 

BOOLEAN FUNCT0g0»AJUMP0»FAULT060; 
STACK(F+32) » FUNCTOGO 
STACKfF+33) » AJUMPO 
STACK(F+34) • FAULTOGO 

BOOLEAN SAVEPRTOgO, NEXTSaVEI 



START 



14013000 
OF SEGMENT 
14014000 
14015000 
14016000 
14017000 
14018000 
14019000 
14020000 
14021000 
14022000 
14023000 
14023100 
14024000 



T 0003 

T 0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 



1095913 
♦♦» 143 
lOOOOlO 
iOOOOtO 

tooooio 
tooooto 

lOOOOlO 
100021 t 
1000211 
1000211 
1001313 
1001313 
1001313 
1001313 



14024100 T 0l43»a0l7.t3 

14024200 T 0l43l00l9t3 

14024300 T 0l43«00l9l3 

14025000 T 0l43l00l9l3 

14025100 T 0l43«00l9l3 

14026000 T 0l43»00l9l3 



14027000 T 01431001913 
14028000 T 0143»0019I3 
14029000 T 01431001913 



14030000 T 0l43J00i9l3 



14031000 T 0l43»00l9l3 

14032000 T 0l43l00j,9l3 

14032500 T 0l43»00l9»3 

14033000 T 0l43»00l9l3 

140340Q0 T 0143100.1913 

14034100 T 01431001913 



STACK(F+35) » 
STACKfF+36) s 



saveprtogo 
nextsave 



BEGINCTR«.BEGlNCTRfl} 

IF Sop Then blkad»proado 



MOVE 
OLDt 
OLDE 

eNius 

MOVE 
FIRS 



COnEf 

astad 

NllPT 

pot*o 

(NlOC 

FI 

TX*40 



LOlD* 

SAVEL 
AJUMP 

I l» 

OLnNi 



ELSE BEGIN 



EN 
TED0C»EDOC 
nRESS ♦ UA 
R ♦ ENILPT 
«CARONUMBE 
S»L0CBEG1N 
RSTX0*FIRS 

IF LEVE 

LIFUNCTOGO 
«» SAVEL 

t» falsej 
o; 

NFOO »* GL 



BLKADl»GET 
EMiTVcBLKA 
EMlTOfBFW) 
CONSTaNtCL 

); MOVECODECT 
STAODRESS; LA 

R> enilptR ♦ 

Rtl0»20l28] ; 

»L0CALS); 

TXJ 

L < 31 THfN LE 

ELSE FL 
♦ FUNCTOGilAJUMP 

% NO pendi 

% START GE 
OBAUNINFOO; % 



SPACE(TRUE»-6)» % SEG, DESCR, 

i 

ENILfENiL); 
STADORESS * -II 
0| 
ENILPTR*! I 



% SYMBOLS 
GLOBALNINFOO in NiNFOO «« NEXTiNfOI % 

% 
% 



NCI 

NCI 

STA 

F 

GOTST 

/ IF L 
SgNO 
ELBA 

START 



NTfXT 

I0*NC 

I*OI 

CKCTR 

AUlTO 

ORaGE 
S 

ISTER 
♦ SrAV 
Ttlj; 
« IE 

T 



* nexttextj 



VeL ♦ LEVEL + 1 

AG{039); 

0«.AjUMPlPRTl0*PRTUS6N00»SGN0» 

NG JUMPS IN THIS BLOCK YET. %\\B' 
NeRATING CODE AT WORD 0. SYLLABLE 0, 
REMEMBER WHERE PREVIOUS BLOCKS Xll8« 
BEGAN IN SYMBOL TABLE. XllS- 

Remember where the symbols 
FROM This block will goxiib. 
IN The symbol table. «it8. 



faultog* 

f saveprtogo 
Then segMent 



rTa 
tf 



0«.stackctr) 
go*faultogi 

«-FALSf> 

avepRtog ;« 
or Segstog 
lj sgavl»sgavl+ii 

CLASS#.SEMlC0L0N; 
TABLE(I)1<SFMICOLON 
HEN 
BEGIN 

FLAG(0)l 

1*1-1 

ENDI 
H0]*J*0> 
SPECTOG 
THEN 
BEGIN 

IF BUP-PJ 

THEN 
BEGIN 



l» saveprtog) 

STARTI 



OR S0Pa46U]; 



14035000 

14036000 

14037000 

14036000 

14039000 

14040000 

14041000 

14042000 

14043000 

14044000 

14045000 

1404600Q 

14047000 

14048000 

1404900.0 

14049100 

14049200 

14049300 

14050000 

14051000 

14052000 

14053000 

14053100 

14054000 

14055000 

14055100 

14055200 

14055250 

14055260 

14055300 

14055400 

14055450 

14055500 

14056000 

14057000 

1405B000 

14058100 

14059000 

14059100 

14060000 

14061000 

140620Q0 

14063000 

14064000 

14 045 000 

14066000 

14067000 

14066000 

14069000 

14070000 

14071-000 

14072000 

14073000 

14074000 

14075000 



0l43«00l9»3 

0143I0021«2 

01431002113 

01431002113 

01431002113 

01431 0021 ij 

01431002113 

01431002113 

01 431 0024* 3 

01431002113 

01431002411 

014310025-13 

01431002610 

01431002610 

01431002614 

01431003112 

01431003312 

01431003411 

01431003912 

01431004112 

01 431 0041 » 3 

0143I0042>1 

01431004410 

0143*004713 

0143I0051»3 

01431005210 

01431005312 

0143I0053I3 

014310054}! 

Q143J0Q54J4 

01431005513 

01431005513 

01431005513 

0143«0056«! 

0143(005712 

01431 005810 

01431005811 

01431005913 

01 4.31JQ06Q11.. 

01431006312 

01431006512 

01431QO^JJ2 

01431006913 

0!43l0070tl 

0143X001412 

01431007113 

01431007211 

0143400-7241 
0143«0073I3 
0143«0075»3 
0143^»007^54* 
01431007513 
01431007610 

0143-IXJO:74I4 
01431007712 



PRT(ll03) ■ *SEGMENT DESCRIPTOR* 



BEGIN LABEL GETLPI 



14076000 T 0143I0077J3 



tf streamtog Then f*o else 
f*fzeRoi 
bup*last1nf0i 

DO 
BEGIN 
IF NOT STREaMTOg THEN 

bup*lastinfo; 

GETLpi 6*TaKE(BUP); 

IF K*G,ADDReSSi«PJ 

Then 

BEGIN 
IF BIJP * BUP««BUP- TAKEfBUP ♦ D.PURPT ThEN X102.. 

GO TO 6ETLP 
END> 
IF TyPEV*G,CLA5S«FRMTID OR TYPeV«SUPERFRMT I D THEN 
G.AnnRESS^F^F*? 

ELSE 
IF TYPEV«.G.CLASS<INTARRAYID AND 
TYPEV^BOOARRAYID 
THEN 
BEGIN 

Tl*6,INCRl 

GTl *N*TAKECBUP+Tl)» 
G,ADDRESS*F*F+N+1» 
WHILE N#0 
DO 
BEGIN 
IF T2*TAKE(BUP*T1+N)<0 
THEN 
BEGIN 
T2**T2; 

T2.LBP*4x(F''N) + 2l 
PUT(T2iBUP+Tl+N) 

ENDi 
N*N"»1 
END 
END 
ELSE 

G,ADDRESS*F*F+n 
PUTfG»BUP)J G,INCR*GTII 
IF FWDTOG THEN COMMENT CHECK CORRESPONDENCE W/FWOI 
BEGIN 

IFfGTl4.TAKF(MARK + PJ)), CLASS # G. CLASS 
COMMENT CLASS ERROR; THEN FLAG(49); 

COMMENT VALUE ERRORJ IF GTi.VO * Q.VO THEN FLAGCSO) 

ENn ELSE 

PUT(G*MARK+PJ) 
>BUP«-BUP-TAKE(BUP + D.PURPT 
END 
UNTIL PJ*PJ-1«0 
END* 



START 



PRT(ll04) « *SrGMENT DESCRIPTOR* 



OF SEGMENT 
14077000 
14078000 
14079000 
140B0000 
140M0O0 
14082000 
14083000 
14084000 
14085000 
14086000 
14Q870QQ 
14088000 
14089000 
1AQ90000 
14091000 
14092000 
14093000 
14094000 
14095000 
14096000 
14097000 
14098000 
14099000 
14100000 
14101000 
14102000 
14103000 
14104000 
14105000 
14106000 
14107000 
14108000 
14109000 
14U0000 
14111000 
14112000 
14113000 
14U40Q0 
14115000 
14116000 
141161QQ 
14U6200 
14116300 
141 1 6 40 Q 
14116500 
14116600 
1411 FOOD 
14118000 
14119000 
14i2aOflil 
14121000 



SPEcTOG*FALSEi 



144 IS 



65 iAN(V* 
14122000 T 



01441000010 
01441000113 
0144I0002>1 
0144)000313 
01 44 1 0004 10 
01441000410 
0l44t0004ll 

, 0144 1 00051 J 
01441000712 
01441000611 
01441000912 
01441000913 
01441001211 
0lft4iQ0l^J4 
0l44t00l3l2 
01441001610 
01 44 J 00 1712 
0l44t00l9t2 
01441002113 

0l44fQ02Ui 
01441002211 

01441002312 

01 44 10024 10 

01441002611 

01441002913 

014410041)10. 

01441003112 

01441003112 

014410(13311 

01441003410 

0144100341 1 

014410035X3 

01441003811 

01441004010 

01441004011 

01441004112 

01441004210 

01141 CmjZll. ... 

01441004211 

01441004513 

Q144ie.fl4lJl. 

01441004611 

01441004912 

Ql44iaD.ill3 
01441005313 
01441005610 
Q14410A5&11 
01441005610 
01441006011 
0lA4.tQ06.iU 
01441006211 

NcaT--SC4 -14a 
01431007912 



m 



STAr 

whu, 

DO 
BEfi 



go to hf 

FNOJ 
KrT •■ 0| 

F. stfpi«declarators 



«A 



TF J 



»0 
P2J 

GO T 

owneRR«f 
saveRRif 
auxmemer 
streamer 

REALDECI 
AUPHADEr 
BOOLEANn 
iNTEGERn 



IN 

stopdefine 



Then go to 

sP3»«P4lsFA 
DECLSWtGT 
LAG(20)IJ*J 
LAG(21)IJ*J 
RIFLAG(618) 
R«FLAG(2?); 
P3*TRUEIENT 
»P3*TRUf;EN 
EC«P3*TRUEI 
EC«P34-TRUEI 

monitoRdeci 

T 



*fGTAltJ«-J+l]*ELBATt 13 . ADDRESS) i«MON I TOR V 
GTAUJ3#DUMPvlERR0RT0G*TRUEi 



AND 



CALLSTAT 

lse; 

AltJ]3» 
♦IJGO TO 
♦IIGO TO 
> J««J+1> 
J*J+1>G0 

eR(Reali 
teRcalfa 
fntercbo 

fNTERCIN 
IF SPECT 
HEN BEGl 



emfntj 



realdeo 
Realdecj 

GO To REALDEC; 

TO PROCEDUREDECJ 
D)|GO TO START? 

idjigo to STARTI 

0I0))G0 TO STARTI 
TID)»G0 to STARTI 
OG 

n comment error a63 means that a monitor 
Declaration appears in the specification 

PART OF a PROCEDURE! 
IA6(463); 



XllT"- 



n 



IF ME 

UMPOEC IF S 

THEN 



PRTdiOs) • 
STACK(F+37) 



ARRAYDEr 
FILEDECl 

INDf 
OUTDECt 
GOTSCHKi 
FORMATQf 

LiSTDECl 

BEGt 

REAL 

♦SEGMENT DES 



JJUMPCHKXIA 

J*J-HMODEC 

CI I00ECC9 

lODECdO)! 

gotstoRage* 

CITF SPeCTO 

formatgen 

N 

saveinfoi 

CRiPTOR* 



RRIM 

PECT 

BEG 



END 

mup; 

RRAE 
(113 

)f 

NOT 
G TH 
{ G 



Fl 
ENOJ 

AC THEN BEGIN FAULTDECI GO GOTSCHK END! GO STARTJ 
OG 

IN CI 

APf 

PR( 

FLA( 



lOMMENT ERROR 

•peaRs in The 
ioceoure; 

lG(46«)l 



*64 MEANS A DUMP DECLARATION 
SPECIFICATION PART OF A 



GO TO start; 

;G0 TO GOTSCHKI 
IGO TO GOTSCHKI 

IF gjtoRmatv Then go gotschki go startix 

IF GifFORMATV THEN GO TO START! 

SPECTOG or GOTSTORAgEIGO to STARTI 
EN ENTRY(FRMTlD+REAL(GTAltJ-n«SWlTCHV)) 
To STARTI 



ELSE 



123000 
124000 
125000 
125500 
126000 
127000 
128000 
129000 
13Qa00 
131000 
132000 
133000 
134000 
135000 
136000 
136100 
137000 
138000 
139000 
140000 
141000 
142000 
14 3000 
144000 
145000 
146000 
147000 
148000 
149000 
150000 
151000 
152000 
153000 
154000 
155000 
156000 
157000 
158000 
159000 
160000 
161000 
162000 
163000 
164000 
1650QQ 



PRT(li06) s GOTSCHK 



saveinifo 

LABfL STARTi 

IF G»»GTAlrU]»LlSTV AND G « "QTaH J-n»SW 1 TCHV THEN 
BEGIN HANDLESWLISTI GO TO GOTSCHK ENDI 



IF spectog Then 

BEGIN ENTRYCLISTiDJI gO TO START ENDI 
STOPENTRYIiiSTOPGSP;aTRUEI Il»l-1 ' 
DO BEGIN 

Il«I+ll jumpchkxi 

ENTRYaiSTiD); IF ELCLASS^lEFTPAREN THEN FLAG(3l) ELSE STEP 



ITI 



START OF SEGMENT 

14166000 
14167000 
14166000 

14169000 
141 70Q0O 
14171000 
14172000 
14 J 73000 
14174000 



1431 
1431 
1431 
1431 
143t 
1431 
1431 
1431 
I43t 
1431 
1431 
1 43 1 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 

1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1431 
1 4 Ji 
1431 
1431 
143» 
1431 
1431 
1431 



0079 
0060 
0080 
0080 
0081 
0061 
0082 
0082 
0066 
0088 
0069 
0090 
0092 
0094 
0097 
0100 
0103 
0106 
0109 
0111 
01 13 
0ll5 
0ll5 
0ii5 
0115 
0115 
01 16 
0116 
0119 
0120 
0120 
0120 
0120 
0121 
0121 
0122 
0124 
0127 
0130 
0133 
0136 
0139 
0140 

0l4l 
0141 



014510000 
014510000 
01451 D 001 

014510007 
01451-0007. 
0145)0009 
014510011 
Ql 451 00.12 
0l45l00i3 



3 



2 
3 
1 
1 


1 
2 



3 
1 
3 
1 
2 
2 
2 
2 
2 
3 
3 
3 
I 
1 
2 

1 
I 
1 
3 
3 
1 
I 

3 

I 
2 



■2- 

I 

2 

2.... 

45 



SAVEINFOULASTINFO; X IN CASE C-RELATlVE CONSTANTS ARE 

% EMITTED BH DOING THE PUT-TAKE BELOW, 
FJsLlSTGENJ 

PUT(TAKE(SAVElNrO)8( IF M0DE«O THEN F 
ELSf FI»GETSPACE<FALSE»SAVE|NFO + n) % LIST DESCK. 
ri6lll]»SAVElNF0); 
EMlTSTORE(r»STD)l 
END UNTIL ELCLASS^ COMMAJ 
STOPENTRY««STOPgSP»«FALSEI 
START! 

END LiSTDECl 
PRT(li07) n *SFGMENT DESCRIPTOR* 

GO TO STARTI 

LABELDECMF SPECTOQ AND FUNCTOG THEN FLAG(2«)I 

stopentry*stopgsp*truej 

I*I-1I 
DO 

BEGIN 

stopdefine«.truei 

STEPlTl 

ENTRY(LABEUID)J 
PUTNBUMP(O) 

END 

until etclass#comma» 
stopentry*stopgsp*falSfi 
go to start* 
switchdfcj 

BEGIN 

LABrt STARTi 
PRTtlllO) « *SEGMENT descriptor* 



H175000 
10176000 
14177000 
14178000 
I4l7900a 
14180000 
14181000 
14182000 
14183000 
14184000 
14185X)00 



01431 
01451 
01451 
01451 
flU5i 
01451 
01451 
01451 
01451 
0l45» 
til 5 I 



001713 
OOiBiQ 

ooieio 

001912 
Q.Q21ia 
002410 
002513 
002611 
002713 
002912 
0029.12 



145 IS 30 LONG* 



STACKfF*37) » GTl 

STACKfF+40) s GT2 

STACKfF+4l) B GT4 

STACKfr+42) * GTS 

STACKfF+43) s TBI 



INTEGER GTl,GT2fGT4,GT5> 



BOOLEAN TBI? 

stopentry*not spectogistoPgsp«.true' 

SCATTpRELBAT) 6Tl*0) TB1*fALSEI 
IF LEVFLFbLeVEL 

thfn 

BEGIN 

IF TAKE(LINKF+1)^0 

THEN FLAGCl)! PUT( -TAKECL I NKF* 1 ) .L I NKF+1 ) > 

TBn-TRUEiGT2»ADDRSFr 

GTl* TakEFrST; GT4*LASTInF0I LASTINF0*L1NKFI 

STEPIT|GT5«-NEXTINF0;NEXTINF0*LINKF + INCRF 

END 
ELSE 

entRycswitchid)> stopgsp*stopentry*fauseiif spectog then go to 

STaRTI 

if flclass.assignop 
thfn 

BEGIN 

JUMPCHKNX;PUTNBUMP(L)>G*LI 



141S6Q00 
14187000 
14188000 
14169000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14196000 
14197000 
14198000 
14199000 
14200000 
14201000 
14202000 

START OF SEGMENT 
14203000 



NEXT 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 
0143 



SEG 143 
f 01 4210 
I0U2I1 

1014512 
1 014610 
1014713 
1014810 
1014810 
'014811 
1014912 

I015AIO 

1015010 

I0150II 

1015210 

I0153J2 

1015313 

I Q 15-410. 

1015410 



T 01461000010 



14204000 T 014610000.10 



14205000 
1A20&000 
14207000 
14208000 
14209000 
14210000 
14211000 
14212000 
14213000 
14214000 
1421'iOOO 
14216000 
14217000 
l42lJa.Q0jQ 
14219000 
14220000 
H221000 
14222000 



T 01461000010 

T 01-461000113. 

T 01461000313 

T 01461000410 

T ai 4^1000411 

T 01461000512 

T 01461000610 

I 01461001014 

T 01461001210 

T 01461001411 

T 01441001A10 

T 01461001712 

T 01461001712 

I 04AA.|ill)2fllO 

T 01461002011 

T 01461002112 

T 0.1461.002 111 

T 0146I0022IO 



IF FORMaLF «« SWlTCHGENCTBl.GTl) 

Then 

BEGI 

JUM 

STU 

IF 
T 
IF T 



1 11 3' 



EMI 
END! 



N 

PCHKX; 

FFF(GTl)» 

mode>o 

HEN 

01 THEN gTUGT? else 

GTn.GETSPACECFALSE.LASTlNFO+DJ X SWITCH, 
TSTOREfGTl.STD) 



END 

flse 

BEGIN 



IF ELCLASS)«FORWARDV THEN FLA6C33); 
PUT(-TAKE(UASTINrO + l)»LASTlNF04-l)l 

PUTNBUMP ( GTHsGET SPACE (TRUE* LAST! NF0+1))>XSWTTCH. 

IF MODE >o Then gti»=getspacecfalse»-i);j!Temp. stor, 

STEPfTl 

forhauf»true 

ENDJ 
PUTrTAKE(LASTiNF0)&REAU(F0RMAUF)[9U7in&6Tltl6»37'ltn»LAST|NF0)l 

IF TBI Then 

BEGIN 



PRT(llll) « 



EN 
START! 

fnd switchdecj 
♦segment descriptor* 



Di 



NEXTlNF0*GT5; 
LASTlNFO*GT^I 



H?23000 
14224000 
14225000 
14227000 
14228000 
14229000 
14230000 
14231000 
14232000 
14233000 
14234000 
14235000 
14236000 
14237000 
14238000 
14239000 
14240000 
14241000 
14242000 
14243000 
14244000 
14245000 
14246000 
14247000 
14248000 
14249000 
14230000 
14251000 
14252000 



01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
0l46> 
01461 
01461 
01461 
01461 
Q146I 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 
01461 



002410 
002411 
002513 
002610 
002611 
002713 
002713 
002810 
00 3ai 
003211 
003312 
003^13 
003313 
003313 
00341 Q 
003610 
003912 
004413 
00441 1 
004512 
004512 
004513 
004912 
004913 
005010 
OOSOll 
005113 
005U3 
005210 



60 TO START! 
DEFINFDFCI 

BEG?N LABEL START! 
PRTC1112) » *SEGMENT DESCRIPTOR* 



146 IS 



53 LONG. 
14253000 T 
14254000 T 
14254050 T 



NEXT SEG 143 
01431015512 
0143.1015513 
01431015610 



STACKfF+37) 
STACK(F+40) 
STACKfF+41) 
STACK(F+42) 
STACK(F+43) 



J 
K 

DINFO 
LiNKA 

Links 



REAL JpK,0INF0»LiNKa.LINKB1 



X118- 



START OF SEGMENT ♦♦♦♦*♦**** 147 
14254100 P 01471000010 



STOpENTRY«.ST 
DFFININ 
DO 

bfgin 

STOPDEF 
STEPlTl 

K»COUNT 
GTAlfOj 

DlNFO ♦ 
IF ELCL 
BFGIN 

IF 
00 



OPGSP*TRUEM«-fl ! 

G l« BOOLEANCREALCDEFINING) & lt47J47in)» 



INElsTRUEl 
M0VE(9»ACCUMrn»GTAl)? 

+ 11 J*GTAU0J; eNTRy(DEF1NE0ID)1 
•.J + «»100000»| J*0» 

lastinfo; 
ass«leftparen or elclass«lftbrket then 

K > 62 Then begin eRR(14i)i go start endi 
Begin stopdefine»truei 

stepiTj 

IF (j*j+i) > 9 Then begin errci72)i go start endi 

M0Vt(9, ACcUMtn* DEFINF0t(J-l)xl0])l 



14255000 
14255500 
14^36000 
14257000 
14258000 
14259000 
14259010 
14259015 
14559017 
14259020 
14259030 
1425904-0 
14259060 
14259070 
1 425^9075 
14259080 



T 01471000010 

T 01471000211 

T 01 471 eofljio 

T 01471000512 

T 01471000512 

T 014710.0.0513. 

T 01471000810 

T 01471001112 

T 0147X004-313- 

T 01471001411 

T 01471001610 

T 0l47lXUJl-6-tl 

T 01471002112 

T 01471002113 

T 01471X^.22-10 

T 01471002513 



DEFINEPARAMCDrNFO+l» J)l 

ACCUMCO] »8 & OEFINEDID CLASS & 1 FORMALI X116' 

LINKA * LASTtNFO; LINKB «- NEXTINFO; 

rj 

IF LaSTiNFO * LiNKB THEN X NEW INFO ROW ENTERED. 

PUTCTAKE(LTNKA)&(LASTlNF0-LlNKA)t27fa0|8]. LiNKA)! 

STACKHEADCSCRAM] ♦ TAKE(LASTlNFO).tlNKl 

STOPDEFlNE * TRUe> 
END UNTIL STePI^COMMA) 

IF ELCLASS#RTPAREN and ELCLASS#RTBRKET Then ERR(173)I 
ST0PDEFINE*TRUEI 
STEPiT? 

PUT(-TAKE(DINF0). DlNpO)! % MARK AS PARAMETRIC 
PUT{TAKE(LASTINfO) & 0t?7U0tB3, LASTlNFO)! 
END) 

IF ELCLaSS^RfLOP OR ACCUM[ n »«•♦ laOOOO" 

Then 

BEGIN 

FUAf.(45); 

COMMENT ERROR 45 IS NO m FOLLOWING DEFINE IDJ 
I«-I-l> 

END» 
MACROID«-TRUE? 
LaSTINfO ♦ DlNFOl 

PUTCTAKECDINFO) & NEXTTEXTCllf32U6], D1NF0)| 
DEFlNEGENCFALSEt J & D I NFOt 18 I 33l 15 3 ) I 

macroid*false; 

END 

UNTIL stePi/comma; 

DEFINING !• BOOLE AN(REAL{DEF I N I Nq) & OlH7tH7tll)i 
STaRTI ST0PENTRY*ST0PGSP»FALSE« END* GO TO STaRTI 
PRTCllU) ■ ♦SEGMENT DESCRIPTOR* 



14?59085 
14259090 
14259094 
14259096 
1425909^ 
14259100 
14259102 
14259104 
14259110 
14259120 
14259130 
14259140 
14259150 
14259155 
14259160 
14260000 
14261000 
14262000 
14263000 
14263100 
14264000 
14265000 
14265900 
14265930 
14265950 
14266000 
14266100 
14267000 
14268000 
14268500 
14269000 



T 01471002811 

P 01471003010 

T 01471003313 

T 0l47i0035«2 

T 01474-0.035X3 

T Ol47t0036l0 

T 01471003913 

T 01471004^10 

T 0147I0042U 

T 01471004410 

T 01471004742 

T 01471004810 

T 01471004811 

T 0l47J00-5ai0 

T 01471005211 

T 01471005211 

T 01471005410 

T 01471005411 

T 01471005512 

T 0147JDQ5AI0 

T 0147;0056I0 

T 01471005712 

T 0147.IQQ57J2 

T 01471005810 

T 0147|0058»1 

T 014/1006112 

T 01471006312 

T 01471006313 

T 0147IQ0A343 

T 01471006512 

T 01471006712 



FIELDDEC' 
BEGIN 

Real saveinfo* sb» nbi 
prt(1114) * *segment descriptor* 



«117- 
X117- 
X117- 



147 IS 70 LONG. NEXT SEG 143 



14269020 
14269040 
14269060 



C 01431015713 
C 01 4310158 10 
C 01431015810 



STACKfF+37) b SaVEINFO 

STACKfF+40) e SB 

STACKfF*41) m NB 

BOOLEAN FOUnDLBI % TRUE IF LEFT-BRACKET WAS USED IN FIELD SPEC.Xll7* 

STACKfF+42) » FOUNDlB 

LABEL EXIT. SAVElTl Xil7- 

STOPENTRY i« STOPGSP Is TrUeI «117- 

I «i I - 1> %117' 

DO XI 17' 

BfGIN 1117- 

STOPDEFINE «» TRUEI X117* 

stfpiti iii; 

entry(fieldid); xii 

SAVEINFO tm lastinfo; Xll 

IF ELCLASS m RELOP AND ACCUMtl] » "l^OOOO" THEN XU: 

BEGIN «11 

IF STEPI « LFTBRKfT THEM I REMEMBER THIS «11 

BEGIN X117? 

FOUNDLB «« TRuEl J;il7'» 



START OF SEGMENT *♦«♦♦*♦*♦♦ 148 



14269080 C 01481000010 



14269100 
14269120 
14269140 
14269160 
14269180 
14269200 
14269220 
14269240 
14269260 
142^4280 
14269300 
14269320 
1426934Q 
14269360 



01481 
01481 
0l48t 
01 4B i 
0l48t 
01481 
01481 
01481 
01481 
014-81 
01481 
0148« 
aiJJJ 
01481 



QflQ.aiQ 

000010 

000112 

000211 

000312 

000312 

000313- 

000410 

000512 

.0Jia5i.j 

000713 
000810 
QDil.9J2 
000913 



IP 



PRT(1U5) 



stepit; 

END 
ELSE 

FOUNdLB »= FALSfI 

IF elclass » FiELnin thfn 
Begin 

SB l« EUBATCn.SBITFJ 
NB t« ELBATrn.NBlTF; 

GO TO saveit; 

END* 
IF ELCLaSS * LiTNO THEN 
TF STEPI « COLON THEN 
IF STEPi « LITNO THEN 

IF CSB «« ELBATtI-2], ADDRESS) x 

(NB im fLbAT[i 1, ADDRESS) * AND 
SB ♦ NB < 48 THEN 
BEGIN 

saveiti 

PUT(TAKf(SAVEINfO) & SB SBITF I NB NBlTF» 

SAVEINFO); 
STEPlTl 

IF FOUNoLb THEN % BETTER HAVE RIGHT BRACKpT. I 
IF ELcLaSS n RTBRKET THEN 
BEGIN 
STEPIT; 

GO TO exit; 

END 
ELSE 
ELSE 

go to exiti 
end; 

end; 

FLAGCIU)! 

00 STEPfT UNTIL ELcLASS « COMMA OR ELCLASS ■ SEMICOLON; 
EXIT! 
END 
UNTiL 

ELCLASS * COMMA? 
STOPENTRY I* STOPGSP l» FaLSE; 

end; 
♦segment descriptor* 



GO TO start; 

PROCEDUREDECI 
BEGIN 

labfl start, starti; 

PRTC1U6) 8 *SFflMENT DESCRIPTOR* 



% 


1 1 7 ■• 


% 


1 1 7^ 


% 


1 1 7 • 


% 


[ 1 7 "■ 


% 


[ 1 7 " 


% 


[ \J m 


% 


I 1 7 1» 


% 


[ \T " 


% 


[ 1 7* 


% 


i 1 7« 


% 


1 1 7 "■ 


I] 


1 7 •» 


% 


: 17- 


%] 


1 7'" 


XI 


1 7 ■■ 


X 


4 7 ■• 


X] 


1 7* 


X] 


1 7* 


X] 


1 7^ 


XI 


1 7** 


X] 


17* 


XI 


17"* 


X] 


1 7» 


X] 


IT* 


XI 


1 7 * 


XI 


17'" 


X] 


1 7* 


XI 


1 7 ■■ 


XI 


17"" 


XI 


f 7 « 


XI 


J 7» 


XI 


1 7* 


Xl 


17*' 


XI 


17* 


X] 


1 7 ** 


X] 


17" 


XI 


1 7" 


XI 


1 7 * 


XI 


17* 


XI 


1 Z"* 



X117' 
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14269380 
14?69400 
14269420 
14269440 
14269442 
14269444 
14269446 
14269448 
14269450 
14269452 
14269460 
14269480 
14269500 
14269520 
14269540 
14269560 
14269580 
1426959a 
14269600 
14269620 
14269640 
14269660 
14269680 

14269700 
14269705 
14269710 
14269715 
14269720 
14269740 
14269760 
14269780 
14269800 
14269B20 
14269840 
14269860 
14269880 
14269900 
14269920 
14269940 
14269960 



C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



45 LONGr 
14269980 C 
14270000 T 
14274 000 T 
14272000 T 



01481 
0l48t 
OlASt 
01481 
01481 
0l4di 
0148) 
01481 
01481 
01481 
0l48t 
01481 
01481 
01481 
1 481 
01481 
01481 
01441 
0l48t 
0148} 
01481 
01481 
0l48t 
01481 
0148» 
01481 
01481 
01481 
01481 
01481 
01481 
0l48i 
01481 
01481 
01481 
01481 
0l48t 
01481 
01481 
0l48i 



OOlOll 
OOlHZ 
00 1112 
001112 
00i3(3 
0Q14I1 
001512 
00l6U 
OQlBlO 
00l8»l 
001811 
001912 
002011 
002210 
002414 
002712 
002811 
002912 
002912 
003210 
00324 1 
0033»2 
003312 
003411 
003512 
003513 

0036 10 
003610 
003610 

0036 1 1 
003611 
003611 
003611 
003712 
00401 1 
004112 
004112 
004112 
004210 
004313 



NEXT-SE6 14^ 
0143»0159I2 
0143«0159I3 
0443lOl6X)-lO 
01431016010 



Label staRT2# dOitanyway; 

COMMENT FWDTOg NOW gLObaL TO BLOCK! 

TF NOT SPecTOG TheN fUNCTOg«-FALSe» 

fwdtog «* nextsave »= false; 

if lastentryito then begin jumpchknx 1 constantcue an end; 

MAXSTACKO*. MAXSTAck; 
IF G*6TAl[ J*J-1]«STREAMV 

THEN 

Begin streamtog*true; 

IF G«-GTaUJ«.J-1 J«0 THEN TYPfV^-STRPROC I D 



start 



Of SEGMENT. 
14273000 
14274000 
14275000 
14276000 
14276500 
14277000 
14278000 
14279000 
14280000 
14281000 



♦,♦♦*♦♦♦**♦. 14.9,. 

T 01491000010 
T 01491000010 
T 01491Q0.001Q 
T 01491000113 
T 0149)0003(2 

T Qi49I-0.fl05J2- 

T 0149)000610 
T 014910008)0 
T 0l49lfi0aflll 
T 0149)0009)3 



IF 



END 

ELS 

I 



ELSE 

bfgin 
IF typf.v*pkocid +s>intstrprocid 

typfv <boostrprocid 
Then flagcoo^jj 
NOT spectog Then 

FUNCTOG«-TRUEI 
ChKSOB 
END 



OR 



E 

F G«0 T 

E 
!F 
BE 
!F 
EL 



HEN TYPeV-PROcID 
LSF 



(typevs«realstrprocid+g)»intstrpi 

IN NeXTSaVEJsTRUE; TYPEVIsPROCII 

typev<booprocid or typev>intproc 

r> nr-n.Li f i- « .1 r- u T C • . / r- • _ /^ T • < . I-.1_< 



IF SPfC 

Then 
bfg 

END 
M0DE4-M 
L0*Pr0 
SCATTE 

comment c 

IF LfV 



tog 



PROCID THEN 
D END ELSE 

ciD Then fuag(005) 

SE begin if (NEXTSAVE«*GTAlt J-1 J=SAVEV) THEN J»»J- 
IF NOT SPEcTOG ThEN FUNCTOG « aTRUE» CHKSOB 
END) 



1> 



IF G 



BE 
TA 

XM 



FN 

ELSE 

OOiTANyW 



Pj»* 
FN 



IF 
IF E 

COMMENTi 

R 
LaS 



ENT 



IN 

ENTRY(TYPEV); GO TO START2 
J 

ODE+ll 

INFOI 

RFLBAT) 

HFCK TO SFF IF DECLARED FORWARD PRfViOUSLY ; 

FLF«LEVEL 

THEN IF KLASSFs^TYPEV TrEN BEGIN FLAG(6)J GO DOlTANYWAY END ELSE 

GIN 

KECLINKF+n i ThEN FlAG(006) ElSE PUT( -G^L I NKF+1 ) I 

ARK(DECLREF5J % PROCEDURE DECLARED FORWARD. MARK LAST Xil6- 

% XREF Entry as a declaration. xii6- 

IF REAL(NEXTSAVE)»tG.r3Jl] THEN FLAGCOSD* 

fwdtog«.true) 
proad*addrsfi 

PROlNFO*ELBATCI JIMARk*LINKF+INCRFJSTePIT 
D 

ay« Begin stopentry*P2*trliej 
entry(Typev); mark*nextinfq;putnbumpco)> 

PR0INF0*TAKE(LASTiNF0U LASTlNr0t35l35«133»PR0AO*AO0RSFl 

stopentry«.false 

Dl 

IF LEVEL < 31 THEN LEVfL * LEVEL + 1 

ELSE FLAGC039)J 
PJ ♦ 01 

IF streamtog then stReamwords; 
flclass-sfmicolon thfn go to startii 

LCLASS#LEFTPAReN then FLA6r007)l 

statements fool The 
entries in the zero 



The following e 
formal parameter 
ri^nextinfo? 
tinfot»lastinfo; lastinfo»nextinfo*ii 
putnbumpco); 

PT0G*TRUE{ I»I*1» 
RY(SECRET)I 



SCANNER AND BLOCK, PUTT 1 NG 
ROW OF INFOI 



HP82000 

H283QO0 

14284000 

14265000 

14286000 

14287000 

14288000 

14289000 

14290000 

14291000 

14292000 

14293000 

14294000 

14294100 

14295000 

14295100 

14296000 

14297000 

14298000 

14299000 

14300000 

14301000 

14302000 

14303000 

14304000 

14305000 

14306000 

14307000 

14308000. 

14309000 

14310000 

1431Q50Q 
14310501 
14311100 
14312000 
14313000 
14314000 
14316000 
14317000 
14318000 
143-19000 
14320000 
14321000 
14)22000 
14323000 
14323100 
14123200 
14324000 
14325000 
14326000 
14327000 
14328000 
14329000. 
14330000 
14331000 
1 4 33 2 00 Q 
14333000 



0ia9»00i3i2 
0lA9i00lil3 
0149(001410 
01491001513 
1 49 li) 01610 
01491001610 
01491001811 
01 49 too 191 3 
0149J0019I3 
01491002011 
01 49 li) 02011 
0149I0022U 
01491002312 
01491002512 
0l49t0027l2 
01491003010 
01491003512 
01491003611 
01491003713 
01491003713 
0149«0037«3 
01491003810 
0l49iaa35.U 

01491003913 
01491004011 
01491004113 
01491004210 
01491004210 
01 49 1 00421 Q 
01491004513 
01491004610 

01 49 10 052 1.0 
01491005610 
01491005610 
01 491 0058 U 
01491005913 
01491006010 
01 49 1 0062! I 
01491006312 
01491006312 
01491006512 
01491006713 
01491007011 

0l49t007i)U 
01491007113 
01491007312 
01491007513- 
01491007610 
01491007713 
01491007811 
01491008011 
01491008011 
Ol49.lOO.aQil- 
01491008113 
01491006313 
01491008410 
01491008610 



SBi 



ir FWoToG Then begin if gti * Take(mark),['*oi8] ?« pj thenx 
fLag(«8)j comment wrong number of parameters; 

COMMENT so ThaT WE OONT CLOBBER iNpOl END ELSE 
PUT(Pj,MARK)> 

P*PJI 

IF elclass#rtparen 
Then flag(008)» 

IF STEPli'SEMICOLON 
THEN rLAG(009); 
COMMENT MARK PARAMETERS VALUE IF THERE IS A VALUE PARTI 

IF stept»valuev 

TmEN 
BFGTN 
DO 

IF stepi?ssecRet 

Then FLAGCOiO) 
ELSE 

BEGIN 

IF G*ELBATCI J.ADORESS«0 OR G>PJ 
THEN 

FLAG(0103; 

G*TAKE{ELBAT[I3)J 
PUT(G&lrl0ia7ll].ELBAT[I]) 
ENO 
UNTIL 

STEPHtcOMMAJ 

IF elclass^sfmicolon 

THEN FLAGfOli) 

else stepit 
end; i*i*i; 

IF STRFAMTOg 
THEN 
BEGIN 

BUP*PJ; SPECTOG«-TRUEiGO TO STaRTI 
END 

fLse 

BEGIN 

spectog*true; 
8UP«-o; 

IF ELCLASSjtDECLARATORS 

Then flag(0i2) 
endi 

STaRTiPTOg*-FALSe>LaSTiNfO*LASTINF0TjNeXT|NF0*IF FWdTOG then RRl ELSE 
MARK+PJ^i; 

startiipinfoo*nextinfo> 

START2I ENn; 
PRT(1117) • *SEGMENT DESCRIPTOR* 

IF SPfcTOG OR STReaMTOG 

Then 

GO TO start; 

comment IF SPECTOG iS ON ThEN ThE BLOCK WILL PROCESS THE SPECIFICATION 
PART SIMILARY TO DECLARATIONS WITH A FEW NECESSARY VARIATIONS* 
HFI 

BEGIN 

LABEL START»STOP> 
PRTCU20) • *SEGMENT DESCRIPTOR* 



14333100 
14333200 
14333300 
14334000 
14335000 
14336000 
14331^000 
14336000 
14339000 
14340000 
14341000 
H34200Q 
14343000 
14344000 
14345000 
14346000 
1434^000 
1434S000 
14349000 
14350000 
14351000 
14352000 
14353000 
14354000 
14355000 
14356000 
14357000 
14358000 
14359000 
14360000 
14361000 
14362000 
14 36300Q 
14364000 
14365000 
14366.QOQ 
14367000 
14366000 
14369000 
14370000 
14371000 
14372000 
14373000 
14374000 
14375-QOO 
14376000 



T 0149J0087»2 

T 0149J0090J0 

T 014910091J2 

T 0149I0091«2 

T 0149I0092«1 

T 01491009313 

T Ol49»0093«3 

T 01491009513 

T 01491009610 

T 0149>0097»3 

T Ol49»0097l3 

T jO 149 I 009.6X0- 

T 0l49f0098n 

T 0149J0099I2 

T 01491010010 

T 01491010011 

T Ol49«0l0l«3 

T 01491010210 

T 0l49|0l02«t 

T 01491010512 

T 01491010513 

T 0149I0107J2 

T 01491010611 

T 0l49t0ll0l0 

T 01491011011 

T 0l49t0ll0ll 

T 01491011210 

T 01491011211 

T 01491011313 

T 0149 101141 1 

T 01491011611 

T 01491011611 

T 01 491 OU 61 1 

T 0l49t0ll7l2 

T 01491011912 

T 0149 J OU 91 2 

T 01491011912 

T 0l49l0ll9l3 

T 01491012011 

T 01491012112 

T 0l49J0l21»3 

T 01491011211 

T 01491012312 

T 01491012712 

T Ol49lOUJiU 

T 01491012913 
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14377000 
14376000 
14 379O0O 
14380000 
14381000 
14 3t 2004) 
14383000 
14364000 



T 01431016112 

T 0l43l0l61«2 

T 0l43li)l^lia 

T 0143»016211 

T 0l43t0i62il 

T 0l43»X»442li-- 

T 01431016312 

T 01431016312 
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TF STREAMTOg 

Them rfp.in 

jumpchknx;g*progdescblorfchar»l»proad)>pj*p) 
ptog*false> 
if functog 

THEN 

PUTC(Z«-TAKE(PROiNFO))«LOCLIDt?Ul«73&(Pj«.PJ+l)t 161371 in 
, PROINfO); 

IF stepi«beginv 

THEN 

BEGIN 

WHILE STfPt«DECLARATORS OR ELCLASS«L,0CALV 
DO 
BEGIN 

IF ELBATri3.AD0RESS«LABELV 

Then 

BEGIN 

stopdefine«.stopgsp*stopentry*truei 

DO BEGIN STOPDEFlNr«.TRUFlSTFPlT>ENTRY(STl-ABID)lPUTNBUMP(0) FND UNTIL 
ELCLASSi«cOMmA|STOPGSP«-STOPENTRY*.FALSE 

END 
ELSE 
BEGIN 

I*I + U 
ENTRY(LOCLlD) 
END 

end; 
compoundTail 
end 

ELSE 

streamstmt t 

COMMENT THE FOLLOWING BLOrK CONSTITUTES THE STREAM PROCEDURE PURGEI 
BEGIN 

Rfal nlocnlabj 
PRT{ji2i) * *segment descriptor* 



14385000 
14386000 
14387000 
14386000 
14 389.000 
14390000 
14391000 
14392000 
14393000 
14394000 
14395000 
14396000 
14397000 
14398000 
14399000 
14400000 
14401000 
14402000 
14403000 
14404000 
14405000 
14406000 
14407000 
14408000 
14409000 
14410000 
14411000 
14412000 
14413000 
14414000 
14415000 
144160QQ 
14417000 
144]8000 



T 0150»0000»0 

T 0150«OOQOJQ 

T 0l50»0000ll 

T 01501000313 

T 15010004 II 

T 0150I0004U 

T 01501000411 

T 01 50 1000913 

T 01501001010 

T 0150(001011 

T 1 50 ^X) 01112 

T 01501001113 

T 0150I0013»2 

T QlSOJOOiAll 

T 01501001411 

T 01501001513 

T 0l501-0i)l6-l0 

T 01501001611 

T oisorooiBio 

T Ol50i0021i3 

T 01501002312 

T 015UI0024J0 

T 01501 QD24 10 

T 01501002411 

T 01501002610 

T 01501002610 

T 0l50»0026ll 

T 01501002712 

T 01501002X12 

T 01501002713 

T 0150I0027U 

T OlSai 00281 1 

T 01501002811 

T 0l50»0028Jl 



STACKfF+37) a NLOC 
STACKfF+40> « MlAB 
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DEFINE SES«16#,SEDs6I.TRWp5#; 
DEFINE RSA ss 43 *i 

DEFINE L0C»r36«12 3#«LASTGTa[?4»12]#i 
J*- LASTINFOI 

NLOC.'NLAB^O; 

DO 
BEGIN 

if(gtutakecj))»class«loclid then 

BEGIN 

IF booleancgti.fOrmal) then 

BEGIN 

IF GTUO Then 

PUT(TAKErGT2*MARK+P-GTl,ADDRESS+l)4FlLEIDt2J41l7] 

•GT2); 
END 
ELSE NLOC*NLOC*ll 
END 
FLSE 

Begin 



14419000 
14419100 
14420a00 
14421000 
14422000 
14423000 
14424000 
14425000 
14.426000 
14427000 
14426000 
14429000 
14430000 
14431000 
14432000 
14433000 
14434000 
14435000 
14436000 



T 0151«0000»0 

T 01511000010 

T O4.5lia0X)XllO_ 

T 01511000010 

T 015U0000II 

T OlSl 1 000210 

T 01511000210 

T 01511000210 

T 0151I0.QQ41O. 

T 01511000411 

T 015H0005I3 

T 01511 OQ.QAIQ 

T 01511000611 

T 01511001113 

T ai5.l-lQQlZi(l. 

T 015U0012IO 

T 0151 t 001410 

T 01544004 4-1-0 

T 0151I0014«0 



PRT(ll22) » *5EgMEMT 



ir GTl.ADDRESSitO THEN NLAB*NLAB+n 
IF(GT3*TAKE(GlTcJ))),LASTGT»«0 AND GT3.I-0C «0 THEN 

BEGIN 

M0VEC9,iNF0[0#J],ACCUMt0]); 

Q«-ACCUMf ni 

FLAGC267),' 

errortog^true; 
end» 
end; 

XREFDUMPCJ)! % DUMP xRfF INFO 

G*CGT2«-TAKfCJ+1)),PURPtI 

IF GTl,I2l8] J* STLABlDx2+l THEN 

STACKHEADC(0&GT?tl2M2J363)MOo 1 25 3*TAKE( J ) ,Ll NKI 
END UNTIL J*J-g51» 
PUTt P«NLABrri42l63&fNL0C+REAL(FUNCT0G))[lU2l6]iCUPRT+l) 

ri3l37lin»MARK)l 

GTU LI L ♦ FILeTHiNg I 

while l # 4095 do 

begin filething * 6et(l); 
emitccpj+i,rsa); 

L * FILeTHiNgI 

ENDJ 

L *► gTi; fileThing • ao9'5 i 
IF functog Then 

begin 

em1tc(take( pro fnfo). address, ses)» 

EMITCCPJ*2»SeD)I 
EMITCC1»TRW)| 

PUTCZ, PROINfO)! 
FNDI 
EMIT(0)J 

streamwordsi 
streamtog*false» 

IF LISTER AND FORMaTOG 

fnd» 

DESCRIPTOR* 



>;ii6«" 



THEN SPACEITDOWNJ 



lastinfo«.lastinfotjnextinfo*mark+p+i; 

END 
ELSE 

BEGIN 

If stepi«fORwaRdv 
thfn 
begin 
xrefftcpr0inf0,0,f0rwardref3? % we need this so we can find 

X The forward oecl. during xref 

PUTf-TAKE(G«*PROlNFO:LINK*l) & REAL( NEXTSAVE ) C 3 » 471 i i , G) ; 

PURGE(PlNFOO)l 
STfPiT 

END 
ELSE 
BEGIN 

proado*proad> 

tsublevel*sublevel>sUblevel*lev£L ;stackctro*stackctri 

COMMENT ADDITIONS MADE TO COMPILER TO INSURE THAT STACKCELLS 
COUNTER DOES NOT OVERFLOW fOR PROCEDURE OECUARATlONSI 

IF MODE * 1 Then fRSTleveL *leveli 
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14437000 
14438000 
144 39000 
14440000 
14441000 
14442000 
14443000 
14444000 
14445000 
H445100 
14446000 
1444ra00 
14448000 
14449000 
14450000 
14451000 
14451100 
1445^1200 
14451300 
14451400 
14451500 
14451600 
14451700 
14452000 
14453000 
14454000 
14455000 
14456000 
14457000 
14458000 
14459000 
14460000 
1446100Q 
14461500 
14462000 

77 LONG 
14463000 
14464000 
14465000 
14466000 
U4670a0 
14468000 
14469000 
14469100 
14469101 
14470000 
1447 10 00 
14472000 
14473000 
1 4474 QQD 
14475000 
14476000 
14 477 000 
14478000 
14478010 
144tftQ20 
14478030 



01511 

01511 

01511 

01511 

0151» 

01511 

015H 

01511 

01511 

015H 

01511 

01511 

01511 

01511 

01511 

01511 

01511 

01511 

015U 

01511 

01511 

01511 

01511 

015U 

01511 

01511 

01511 

01511 

0l5li 

0.1511 

01511 

01511 

01511 

015H 

01511 



001411 
001713 
002113 
002210 
002512 
002610 
0026U 

002713 
002713 

002713 
002913 
00 W 1 
003411 
003611 
0041-1 2 
004411 
004610 
0^47fl 
004912 
0050U 
005^10 
005211 
005512 
005611 
005611 
005712 

0059 1 2 
006011 
006113 
006211 
006211 
006313 
00641 Q 
006411 
007411 



NEXT SEG 150 
01S0I0030I0 
1 5010032 «i 
0150I0032«1 
0150100321 1 
015010.033-1-2 
01501003313 
01501003410 

oisoioomi 

01501003712 
01501003712 

ai5Q«e04-lJ2 

01501004210 

01501004210 

015010 QA2J1 

01501004211 

01501004312 

.Ol&Q±flOAlU- 

01501004610 

01501004610 

QlSOlOOiiMO- 

01501004610 



a 



MAXSTACK*STACKCTR*514 + REAL( FUNCTOG ) » 
IF EtCLASS » BEGINV THEN 

IF TABLECI+l) » DECLARATORS THEN 

BfGIN 

BtOCKCTRUE & NEXTSAVE[a6l47lU)l 
I PURGE(PlNFOO)| 
60 TO STOP ENol 
BEGIN 

vJUMPCHKNXj 
RELAD»L I 

IF NEXTSAVE THEN FLAGC052)I 
STMT I 

IF FAULT0G.C46M] THEN BEGIN EMITU(10)I EMITOCCOM)! ENDl 
HTTEOAPcFALSEtRELADiPlNFOO.PROADJI 
ENDJ 
STOPi 

SUBLEVEL*TSUBUEVEtl 
STACKCTR*STACKCTRO> 

TF LISTER AND FORMaTOG ThEN SPACEITOOWN* 
ENOI 

FNO» 

proinfo»lo; 
ir jumpctk«Lfvel 
Then 

jumpctR^-levfl-u 

LEVEL«-LEVEL-n 

mode*mode*i» 

maxstack*maxstacko> 
startiendi 

PRTCll23> • *SEGMENT DESCRIPTOR* 

60 TO START! 

callstatemfntj 

jumpchkxi 
IF spectog Then begin 

IF (PJ * BUP) then 

begin 

integer IHSSCRAM»SC0UNT» 
PRT(1124) • *SEGMENT DESCRIPTOR* 
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14478040 

14479000 

14480000 

14481000 

U4a20.00. 

14483000 

14484000 

14485Q00 

14486000 

14487000 

14487010. 

14488000 

14488500 

14489000 

14490000 

14491000 

14492000 

14493000 

14493500 

14494000 

14495000 

14496000 

14497000 

14498000 

14499000 

14500000 

14501000 

14502000 

14503.000 

83 LONG 
1450400Q 
14505000 
14506000 
1450. 7 00.0. 
14507010 
14507020 
14507030 



0l50l004Bf0 
01501004913 
0150100501 1 
0l50l0052»l 

01501005512 
01501005513 
0450 1005610 
01501005610 
01501005611 
Ol501.0.Q5li-3 
01501005912 
01501005913 
0150! 0062.10 
01501006410 
01501006410 
0150*00*410 
0l50i0064ll 

01501006513 
0150*00-7512 
01501007512 
O150I0O75I2 
01501007610 
01501007610 
01501007611 
01501007811 
01501007913 
0l50l00eiJ2 
0150100.8 1.13 

NEXT SIG 143 
01 43 1 01 64 ffl 
01431016411 

0l43»0l65}2 
01431 Pl65 11 
0l43t0l66i0 
Ol43lOl67t2 
01431016713 
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STACK(F+37) 
STACK(F+40) 

STACK(F+41) 



!I 
SSCRAM 

SCOUNT 



MOVECIO,ACCUM»INFQE31#2403)1 
II isIISScRAMlsSCRAMlSCOUNTUCOUNTJ 
FOR SCRAM tm STEP 1 UNTiL 124 
.DO IFCM*S.TACKHEAOtSCRAMji < 256) 
THEN IF I »» THEN 

BEGIN ELBATt76]l»lNF0t0.IUlt35l35» 
131 J 
C0UNTi«lNF0tOf I+l3,ti?l63l 
MOVECCOUNT,INFOtO»I]f ACCUM); 

n«7..6J scatterelbati 

FORMALF !■ TRUE! 
KLaSSF «■ REALini 

makeupaccumiei 

END* 



14 50 7 040 

14507050 

14507060 

l450Za70 

14507080 

14507090 

1450709-5 

14507100 

14507105 

1450.7.140- 

14507120 

14507130 

14507140 

14507150 



T 0t52i000i)l0 

T 01521000211 

T 0152J0005I2 

T 0152I0005IZ 

T 0i52t0007l2 

T 0152*000811 

T 01-521001112 

T 01521001211 

T 01521001512 

,T .ai52-LQi)4^-l-0 

T 0l52l00i9l2 

T 01521002010 

T Ql 521 0020 U 

T 01521002113 



I«-1IISCRAM«.SSCRAM>C0UNT*SC0UNT| 

M0VE(10,INr0[3l»240],ACCUM)> 
BUP»Pj; FLAG(12)JSPECT0G»TRUEI 

GO TO start; 



fND 



PRT(ll25> « START 

PRTC1126) ■ ♦SFGMENT DESCRIPTOR* 

fUAG(12)IG0 TO HF 

fNd) 

BEGINCTR * BE6lNcTR-i; 
IF ERRORTOg 

THEN COMPOUNDTaIL 

ELSE 
BEGIN 

stmt; 

IF EL.CL.ASS*TAbUE(I + 1)»DECLARAT0RS 

then 

BEGIN 

ELBA Trn,CLASS*SEMl COLON > 

BEGINcTR*BEGINCTR+1j 

GO TO START 
END 
ELSE 

compoundtail 
end; 

BEGIN 

Relad*firstx; 
if starkctr>maxstack 

THEN MAXSTAcK*STACt<CTR; 

IF GOTSTORAGE OR JUMPCTR-LeVEL OR FAULTOg. t *6 J 1 ] 

THEN 

IF NOTCGOTSTORAgE or FAULT0G,t46in) 

Then 

BEGIN 

emiTVcblockctr); 

EMlTL(l); 
EMiTOcSUB); 

emitstorecbLOckctr.std); 
gotstorage*trije 

END 

ELSE 
REGIN 

EMiTLMO)) 
EMiTO(cOM) 

fNd; 

funct06*funct0g0; 

IF sop 

THEN HTTeOaP(GOTSTORaGE*FIRSTX,NiNfOO»BLKAD) 
ELSf 

bfgin 

IF LfVeL « 1 THEN eMITO(XIT) 
ELSE BEGIN 

EMITVCAODRSF J* GETSPACEC TRUE. -6) ) ; X SEG. OESCR. 

emito(BfW); 
end; 
constantclean; 

if gotstorage or ncii>0 or level-1 
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14507160 
1*507170 
14507180 
14507190 

14507200 

35 LONG 
14506000 
14509000 
14510000 
14511000 
14512000 
14513000 
14514000 
14515000 
14516000 
14517000 
14518000 
14519000 
14520000 
14521000 
14522000 
14523000 
14524000 
14525000 
14526000 
14534000 
14535000 
14536000 
14537000 
14539000 
l45390aQ 
14540000 
14541000 
14542000 
14543000 
14544000 
1454S000 
14546000 
14547000 
1 454a0.0i) 
14549000 
14550000 
145510QO 
14552000 
14553000 
1455400^ 
14555000 
14556000 
lA-55700a. 
14557500 
14557600 
1455^8000 
14558500 
14558600 
1455900-0 
14560000 



01521002410 
01521002610 
01521002912 
0152I0031»2 

01 52 too 33 13 

NEXT SEG 143 
0143101694 2 
0143J0170IO 
01431017010 
0143J0171I3 
01431017113 
0l43»0l72l0 
0L43J.aU2ll 
01431017312 
01431017313 
0143I017_5J3 
0l43»0l76t0 
01431017611 
0143I0179J2 
0l43t0ie0t0 
0l43«0l80ll 
01431018011 
01431016011 
01431018112 
0143101*113 
Ol43;0l8lt3 
01431018211 
01431018211 
01431018411 

01431018513 
0141101-8411 

0143«0187I3 
01431018811 
01431018912 
0l43l0l90t0 
01431019011 
01A3ID.UII3 
01431019211 
01431019211 
aiA3l04 93.l2 
01431019312 
01431019313 
01A3J019_4U 
0l43>0l94l 1 
01431019512 

ai43iai*4j.a 

01431019610 

01431019713 
0l4il0l9ai4 
01431019912 
014310200*1 

0143«0203I3 
0l43»0204ll 

0141105414X4. 

0143I0205J2 



i 
i 

i 






OR FAULT0G.t46ll] THEN 
BEGIN 

ADJUSTI REl-AD«-Ll 

IF GOTSTORAGE OR FAULTOG , [ 46 I 1] 

Then begin emitv(blockctr)i emitkd; 
emit0(add)iemitst0re(bl0ckctr,std)j 

end; 
tf level»1 then if g*nc i i +maxstack-51 2>0 then do emltu(o) until g*g«"1 

aOl 

PUR6E(NINF00)I 
IF LEVEL=1 Then if FAULTLEVEL*! THEN 

BEGIN EMiTpAlRCO.MDS)! EMIT0(CHS)> ENDI 
BUMPUJ 

EMiTBfBBW.Lf IF FlRSTX«fl095 THEN EUSE FIRSTX)J 
CONSTANTCLEAN 

END ELSE PIJRgECNINFOO)! 
IF RELAD »a095 THEN ReUAD*OI 
nexttext * NTEXTOi 
r,*PR0GDESCBLDR(Lr)ES-REAL(UEVEL«l)»RELAD»8LKAD) 
END) 
ENlLSPoT .. l0j?3 & CAR0NUMBERCl0»20«2a]; 
SEGMENT C(L-». 3)0 IV /4» SGNO, SqNOO ) J 



ENILPTr ♦ OLOENILPTR; UASTADDRESS ♦ OLDLASTADDRESS; 
M0VECOnE(TENlL»ENlL)» 
M0VeC00FCTED0c»ED0C) JU*UOLDl 

D0UBLE<SGN0»SGNOO.*fSGN00»SGN0)J 
IF NOT SOP AND ^LEVeU 4 1 

Then 

REGIN 
ADJUST; 

G*PROGDFScbLDR(LDES»L»ADDRSF)? 
IF EICLASS * FACTOR THEN 

BEGIN COMMENT SPECIAL CASE FOR COBOU ONLY) 



fNd; 



stePiti 
eno» 

IF JumpctR-level Then jumpctr*level-i) 



H561000 

14562000 

14563000 

14564000 

14564100 

14565000 

14566000 

14567000 

14568000 

14569000 

14569100 

14569200 

14570000 

14571000 

14572000 

14573000 

14574000 

14574500 

14575000 

14576000 

14576100 

14577000 

14578000 

14579000 

14580000 

14581000 

14582000 

14583000 

14584000 

14585000 

14586000 

14587000 

14588000 

14589000 

14590000 

14591000 

14592000 

14593000 

14594000 

14595000 

14596000 

14597000 

14598000 

14599000 

14600000 

14601000 

14601100 

14401200 

14601300 

14601A0Q 

14601500 

14601600 

14601610 

14601700 

14601800 

14602000 

14603000 



0143J0206I1 
0l43f020ef0 
01431020611 
01431021010 
01431021010 
01431021312 
0l43!02l5l2 
01431021512 
0l43»0220l0 
0143»0222I0 
Ol43i0222»l 
0l43»0224ti 

01431022712 
01431 022610 
01431023113 
01431023113 
01431023*11 
01431023611 
0143I0237I3 
01 43 10239 12 
01431024010 
Ol43t0244i0 
0l43lQ246il 
0l43t0246il 
01431024611 
01431024611 
01431024611 
01431024611 
0143102461 1 
0143*024611 
01431024611 
01 43 J 024641 
01431024611 
0143102461 1 
0143J0246I1 
0143I0246II 
01431024611 
0l43!Q246tl 
01431024810 
01431025010 
OlOi 02511 Z 
01431025411 

01431025513 
01431025.610 
0143J0256I1 
0l43l0257f2 
0143.10259.12 
0143I0259I3 
0l43t0260t0 
Ol4aiQZ60lO 
01431026010 
01431026010 
01-431 02A41iO 
01431026010 
01431026011 
01431026OU 
01431026011 



rUNcTOG*rUNcTOGO; 
AJUMP«-AJUMPOt 

GLOrALNINFOO Is OLDNINfOOj 
PRTl*PRriOI 

rIRSTX*FlRSTXOj 
SAVfU*SAVEUOI 
STArKcTR*STACKcTRO; 

saveprtog «* saveprtogoi 

NClf*NrilO> fauutog»faultogo 
fndj 

END BUOrKi 



X118- 



ANnCFALSE8FAUlTLEVEL<LEVEUrA6»47ll3)» 



143 IS 



14604000 T 

14605000 T 

14606000 T 

14606100 C 

14607000 T 

1460a000 T 

14609000 T 

14610000 T 

14610100 T 

14611000 T 

14612000 T 

14613000 T 
287 LONG. 



01431026312 
01431026411 
0l43t0.2£5t2 
0143;0266I0 
01431026611 
0l43l0^67l3 
01431026810 
01431026912 
0143102^913 
01431027011 
01431027410 
01 43 1 027^4*0 
NEXT SEG 3 



COMMENT THIS SECTION CONTAINS THE VARIABLE ROUTINE AND ITS SlOrKICKSl 
PROCEDURE rLSMPMN(FLBATWORo.TYPFOPHOC) i 
PRT(lt27) • CLSMPMN 

VALUE ELBATWORD.TYPEDPROC I 

REAL ELBATWORo i 

boolean typfdproc i 

begin comment call sfmple monitor is used to call printi for 
Simple variables, see the merrimac routine for a 

DESCRIPTION OF PRlNTw 

emitpaiR(junk#snD);emitocmks); emitV(JUNK)j 
emitl{Passtype(elbatword)); emitpaircgnatc 
powersoften),lod)i PASSALPHA(ELBATW0RD)I 
rMlTPAlR(GNAT(CHARl)fLOo) I 

if TYPEnPROC THEN PASSMONF ILE< TaKECG I T( ELBATWORD) ) . [ 27 1 1 U J ELSc 
PASSMONfILE(TAKE(GiT(ELBATWORo)).SVaRMONFILE) f ■ 



15000000 T 
15001000 T 



0003t0959<>3 
00031095913 



EMiTNUMf l*CARDNUMBERri«4»44])| 

EMlTVfGNATCPRlNTI))* 
EtiD CLSMPMN? 



X109» 



15002000 
15003000 
1^003010 
15004000 
15005000 
15006000 
15007000 
15006000 
15009000 
1501Q0Q0 
iSOiOOlO 
15010020 
15011Q00 
15012000 
15013000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 

Qooa 

0003 
0003 
0003 
0003 
0003 



1095913 
1095913 
1095913 
109-5913 
«0959«3 
I0959J3 
1095913 
J0962II 
1096410 
IGL966I0 
1096713 
1097011 
» 0973 12 
1097512 
t0976«0 



iNTrGER PROCEDURE PASSTYPEf ELbATWORD ) » 

VALUE ELBATWORd t 
REAL ELBATWORd i 
COMMENT PaSSTYPE IS USeO TO PASS ThE TYPE OF VARIABLE BEING 
MONITORED TO PRlNTp 

passtype^celbatword.class-booprocid) mod 4; 



15014000 
15015000 
15016000 
15017000 
15018000 
15019000 



T 0003I0976M 

T 0003»0976ll 

T 00031097611 

T 00031097611 

T 0003l0976«l 

T 00031 09Z6 II 



PROCEDURE PASSALPHAfELBATWoRDjJ 
VALUE ELBATWORD ; 
REAL ELBATWORD t 
BEGIN COMMENT PASSALPHA GENERATES CODE THAT PASSES THE 10 
PARAMETER TO PRiNTP 
DEFINE SIZEALPHA « RR9#I COMMENT SIZEALPHA CONTAINS THE 

LENGTH OF THE ALPHA FOR THE 
VARIABLE DESCRIBED BY ELBATWORD! 



START 



15020000 
15021QQO 
15022000 
15023000 
l5Q2400fl 
15025000 
Of SEGMENT 
15Q26QQQ 
15027000 



T 0003I0981»2 

T 00031.09.8112 

T 00031098112 

T OOO3<O901<2 

T QD01I.J39.&1 12 

T 0003l09frll2 
»*4[«*4>**4<* 153 

T QlSXlOOOOIil.. 

T Ol53»0000i0 



INDEX CONTAINS THE INDEX 
FOR ID, INFOtlNDEXj « lO; 
tTEMP IS A TEMP FOR t> 



END 



DEFINE INDEX w RRiO#J COMMENT 

INTO INFO 

DEFINE UTEMP s RRil#» COMMENT 

EMlTVflF BOOLEAN(L.t46M33 
THEN CPLUS2 

ELSE CPUUS1)ILTEMP*BUMPUJ EM I TWORDf GETALPHA( 

INF0[(iNDeX»ELBaTW0RD,LiNK*1),LINKR» INDEX,LiNKC3» 
IF SIZeALPHA»TAKE(INDEX).ALPHASIZE > 7 
THEN 7 

ELSE SiZEALPHA))» EM I TB( BFW . LTEMP» U ) I 

PASSAtPHAI 



153 IS 



15028000 T 

150?9000 T 

15030000 T 

15031000 T 

15032000 T 

15033000 T 

15034000 T 

15035000 T 

15036000 T 

15037000 T 

15038000 T 
15 LONG. 



0153 
0153 
0153 
0153 
0153 
0153 
0153 
0153 
0153 
0153 
0153 
NEXT 



tooooto 

lOOOOtO 

tooooto 
tooooio 

tOQOQlO 
1000113 
I0005t3 
1000912 
toon 12 
t00ilt3 
|-004Atl 
SEG 3 



COMMENT 



THE 
OF 



FOLLOKI 
SIMPLE 



PROCEDURE 



STACKfF+2) « TAUL 
STACKfF*3) M Tl 
STACKfF+4) a T2 



1. 
2. 
3. 

4. 
5. 
6. 
CODE 
1. 
2. 
3. 
^. 
5. 
6. 



V ♦ 

V ♦ 

v.ts 



NG 6 

VARI 

EXP 

EXP 

«L] 

V.tSIL] 

V.tSIL] 

V 
EMITE 

VN.E 

EXP, 

VN,D 

VV»E 

ZERO 

VV . 



D FO 
XP,M 
M*,V 
UP,C 
XP,T 
L»VV 



LOCK HANDLES 
ABLESt 

fMHERE. 
»ALL V 
♦ EXP »WHERE 
•• EXP »ALL V 
»ALL V, 
»ALL V, 
E ABOVE CASES 
Hi*. 

XPfTiM+^XCH,*, 
VL»t. 



THE FOLLOWING CASES 



R Th 

*.XC 

L,*, 
OC»E 
#M*« 
•T . 



V IS FORMAL-CALL BY 
EXCEPT FORMAL"NAME, 

V IS FORMAL-CALL BY 
EXCEPT FORMAL-NAME, 



IS AS FOLLOWSt 



NAME. 
NAME. 



Where vn • 

EXPs 

M* s 

VL ■ 
VV w 
*• « 
T « 
ZERO 
DUP, 

EXP 
TER 
HION 
TER 

IT, 
CKS 



of course. 
The parame 
global fas 
The paRame 
Who called 
Syntax che 



deSc V 

aRiTH, or BOOLEAN EXPRESS lON, AS REQUIRED. 

caul on monitor routine.if Required. 

LITC V 

opdc V 

STORE iNSTRUCTiONdSO.lSN.SNO OR STD). 

BIT TRANSFER CODE f 1 At D IB# TRB ) , 
L ■ LITC 
COC.XCH « THE INSTRUCTIONS DUP.COC.AND XCH, 

WIUL CAUSE RECURSION. IN GENERAL. AND THUS 
Pi AND THE LOCALS CAN NOT BE HANDLED IN A 



Pi IS USED TO 

some of the 
dfPend upon a 



VARlABLEfPD* 

Begin 
Real tall. 



TELL The variable routine 

CODE generation AND SOME 

Particular value of pi , 

1 



real Pit 



COMMENT ELBAT WORD FOR VARiABLEI 



Tl 
T2 

J 



f COMMENT 1ST INTEGER OF PARTIAL WORD SYNTAX! 
» COMMENT 2ND INTEGER OF PARTIAL WORD SYNTAXI 



COMMENT SUBSCRIPT COUNTER » 



000310761 
0003(0961 
000310981 
000 310961 
000310961 
0003(0961 
00011^961 
000310961 
000310961 
0003 1 0981 
000310961 
000310961 
0003tQ9.at 
000310961 
0003 t 0981 
000110961 
000310981 
000310981 
0003! 0961 
000310981 
000310981 
00031 0981 
0003«0981 
000310961 
000110981- 
000310961 
0003(0981 
000110981 
0003(0961 
000310961 
000110961 
0003(0981 

000310981 
0003 10961 



15071000 T 015AI-OQ.OQ 
15074000 T 0154(0000 
15075000 T 0154(0000 



15039000 




15040000 




15041000 




15042000 




15043000 




15044000 




15045000 




15046000 




15047000 




15046000 




15049000 




15050000 




ISQSIQOQ 




15052000 




15053000 




15Q5400D 




15055000 




15056000 




15 05 7 000 




15058000 




15059000 




15060000 




15061000 




15062000 




150^1000 




15064000 




15065000 




150 6600 




15067000 




15066000 




15069000 




15070000 




15071000 




15072000 




START OF SEGMENT 





2 

2 
2 

2 
2 
2 

2 

2 
2 
2 
2 

2 

2 

2 

2 

2 

2 

2 

.2,,. 

2 

2 

2 

2 

2 

■^• 

2 

2 

2 

2 
2 

2 
2 
2 
54 



K 



STACKfF+5) 9 J 

Rfal X. Zf 
$TACKrr4.6} M X 
STACKfF+7) » Z 

REAL REMFMBERSEQNOI I REMEMBERS SEQUENCE NUMBER OF VARIABLE X116- 
STACK(F+10) » REMEMBERSfQNO 

% ON LEFT HAND SlOE OF ASSIGNMENT SO WE 8116- 
% CAN XREF IT CORRECTLY, XII6- 

LABEL EXIT? 
TaLL*ELBAT[1] I 

IF ELCLaSS < tNTPROciD THEN 
BEGIN 

IF taLl.link #proinfo,link Then 

BEGIN ERR(2U)I GO TO EXIT ENDI 
COMMENT ?n VARIABLE-FUNCTION IDENTIFIER USED OUTSIDE OF ITS SCOPE*! 
Tall * tall S (fLcLASS + «) [2»41I7J & 514 tl6'37«U3l 

END 
ELSE CHECKER(TaLL)! 

RfMEMBERSeQNO la CARDNUMBERJ J!ll6- 

IF TALL, CLASS < INTID THEN 
BEGIN 

Label li. exit i 

PRT(ll30) » *SEGMENT DESCRIPTOR* 



15075500 T 01541000010 



15075550 C 0l54»0000l0 



Lit 



DEFINE F0RHALNAHE»t9t2]a2 #) 
J * ELCLASS i 

IF STEPis ASSIGNOR ThEN 
BEGIN STACKCT «. II %k 

XMARK(ASSI6NREF); % ASSIGNMENT TO SIMPLE VARIABLE, XII6' 

IF tall.formalname then 

BEGIN 

EMITNCTALL. ADDRESS)! 

IF Tl^O THfN BEGIN EM I T0( DUP ) > EM I T0( COC ) ENDl 

END 

ELSE IF Tl/0 THEN EM I TV ( TALL . ADDRESS ) 
» STACKCT ♦ REALCTUO); STEPIT! «A 

IF TALL. CLASS «B00I0 THEN BEXP ELSE AEXP! 

EMlTDt48-T? ,Tl ,T2)! 
IF TALL<0 THEN CLSMPmN( TAlL» JJ^BOOPROC I D AND J<INTPR0C|D) ; 

STACKCT ♦ 01 XA 

GTl ♦ IF TALLtCLASS »INTID THEN IF Pl» FS 
THEN ISD ELSE ISN ELSE 
IF Pi • FS THEN STD ELSE SND ! 
IF TALL.FORMALNAME THEN 

BEGIN EMiTOfXCH)! EMITO(GTI) END 

ELSE EMITPAIR(TALL. ADDRESS. GTl)> 
END 



ELSE 



BEGIN 

IF ELCLASSt PERIOD THEN 

BEGIN IF 00TSyNTAX(Tl»T2) THEN GO TO EXIT I 

IF ste:Pi«assignop Then 

BEGIN Xn6* 

IF Pl^ FS then 

Begin «ii6« 

ERR(20l)! % partial WORD NOT LEFTpMOST 

GO TO EXIT! X116- 



15075551 
15075552 
15076000 
15077000 
15078000 
15079000 
15080000 
15081000 
lSQa2000 
15083000 
15084000 
15085000 
15085100 
15086000 
15087000 
15088000 

START OF SEGMENT 
15089000 
15089010 
15090000 
15091000 
15091100 
15092000 
15092020 
15093000 
15094000 
15095000 
15096000 
15097000 
15098000 
15099000 
15100000 
15101000 
15101500 
15102000 
15103000 
15104000 
15 105 000 
15106000 
15107000 
151 OB 000 
15109000 
15110000 
iStllXJOO 
15112000 
15113000 
15111100- 
15114000 
15U5000 
151 15400. 
15115200 



154« 
154» 
154 J 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 
1541 



000010 
OOOOtO 
0^04 
OOOOtO 
000112 
0001-13 
000210 
000410 
0a05 J 3 
000513 
000912 
000912 
OOlOtO 
001112 
00 1-2 JO 
00l2tl 



T 0l55t0000t0 

T 0l55»0000t0 

T 1 55 1 004^0 II 

T 01551000113 

C 0l55l0003t2 

T 0l55-t0007l2 

T 01551000810 

T 0l55t0009t2 

T 01551.000813. 

T 0l55t00llt2 

T 01551001313 

T 01551001313 

T 0l55l00l5l3 

T Ol55«00iBti 

T 0155 .to 0.2 111 

T 01551002313 

T 0l55»0027t3 

T .0155100261.0 

T O1551OO3O1O 

T 01551003211 

T 01551001513 

T 0l55l0036tl 

T 0l55»0036il 

T. 01551004011 

T 01551004011 

T 01551004011 
T 0155 10041 12 

T 01551004210 

T Ol55l0044tO 

C 155-1 004-54 a - 

T 01551004513 

P 01551004611 

C --Ol55i004llZ~ 

C 0l55t0047l3 



end; 

XRfLFlT(TALU.REMEMBERSEQNO,ASSlGNREF)J 
GO TO LU 

END? 

END J 
IF Pli* FP THEN BEGIN ERR(202)» GO TO EXIT END; 
COMMENT 202 VARIABLE- A VARIABLE APPEARS WHICH IS NOT FOLLOWrO 

BY A LEFT ARROW OR PERIOD 
COMMfNT 201 VARIABLE- A PARTIaL WORD DESIGNATOR IS NOT THE 

Left-most Of a left part ltst 

FM|TlfTALL#Tj,T2); 

END ; 
EXIT« END OF BLOCK Of SjMPLE VARIABLES 
ELSE 
PRT(1131) « *SEGMENT DESCRIPTOR* 



1116- 
X116- 
«116- 
Jill6- 
XA 



* 

*; 

*; 

XA 
XA 



COMMENT 



The follow 
variables; 

1. Vt*] 

2. V[R, 

3. V[R] 

4. VtR] 

5. VfR] 

6. VtR] 
R IS A K-O 

IN The CAS 

IS EMITTED 



ING BLOCK HANDLES THESE CASES OF SUBSCRIPTED 



1. 



2. 



FOR The re 



»row designator for s ingle-d i mfns i on . 
*3 »row designator for multl -di mensi on, 

»array element*name or value. 
.cs;l] .Partial word designator, valuf. 

♦ .assignment to array ELEMENT, 
.CSIL] * ^assignment TO PARTIAL WORD.LEFT-MOST, 

rder subscript list. i.e. R» R1.R2.,...Rk, 

E OF NO monitoring ON V. THE FOLLOWING CODE 
FOR the ABOVE CASESI 
CASE il IS A SPECIAL CASE OF #2. NAMELY, SINGLE 
DIMENSION, The CODE EMITTED iSt 

vl»lod . 

EXECUTION! PLACES ARRAY DESCRIPTeR IN REG A. 

This code is basic to the subscription process, 

EACH subscript GENERATES THE FOLLOWING SEQUENCE 
OF CoOE' 

aexp.l*.lf first subscript then vn else cdc 
»lod. 
For a k-order subscription»k-i sequence are 
produced, the aexp in each sequence refers to 
The code produced by the arithmetic expression 

PROCEDURE for THE ACTUAL SUBSCRIPT EXPRESSIONS, 
t* RfFeRS TO THE CODE PRODUCED FOR SUBTRACTING 
NON-ZERO LOWER BOUNDS FROM THE SUBSCRIPT 
EXPRfSSIONCL* yields no CODE FOR ZERO BOUNDS), 
EXECUTION! PLACES ARRAY ROW DESCRIPTOR iN REG A 
.The SPECIFIC ROW DEPENDS, UPON THE 

values of the k-l subscripts^ 
maining cases. 
Sequences of code are emited as in case #2, 

HOWEVER. The actual sequences ARE! 

ONE Sequence »(Aexp.l*).for the ist subscript, 
K-i Sequences. ciF first subscript then vn 
flse cdc.lod»aexp,l*)» for the remaining 
subscripts, if k>i. 
AT This point, cases #3-6 are differentiated 

AND addition C0DE# PART I CULAR TO EACH CASE.lS 



155 IS 



15115300 
15116000 
15116100 
15116200 

isurooo 

15118000 
15119000 
15120000 

15121000 
15122000 
15123000 
1512«000 
15125000 
15126000 
1512^000 
15128000 



C 
P 

C 

c 
t 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



56 L0NG» 
15129000 T 
15130000 T 
15131000 T 
15132000 T 
15133000 T 
15134000 T 
15135000 T 
15136000 T 
15137000 T 
15138000 T 
15139000 T 
15140000 T 
15141000 T 
151420QQ T 
15143000 T 
15144000 T 
15145000 T 
15146000 T 
15147000 T 
15148Q00 T 
15149000 T 
15150000 T 
15151000 T 
15152000 T 
15153000 T 
15154000 T 
15155000 T 
15156000 T 
15157000 T 
15J58000 T 
15159000 T 
1S160OQ0 T 
15161000 T 
15162000 T 
15143000 T 
15164000 T 
15165000 T 
15166000 T 
15167000 T 



0155! 
01551 
01551 
0155! 
01551 
01551 
0155! 
01551 

0155! 
01551 
OtSSI 
0J55J 
0l55» 
01551 
01551 
0l55» 



004810 
004810 
0050;i 
005H2 
005112 
005112 
0051«2 
-005-313 
0053«3 
005313 
0053J3 
005313 
005512 
a05&12 
0055!2 
0055«2 



NEXT SE6 154 
0l54t00l4t0 
0154 1 0014 to 
01541001410 
0154I0014;0 
01541001410 
01541001410 
0154I0014JO 
01541001410 
01541001410 
01541001410 
0454 10Q| 410 
0l54l00l4t0 
0l54l00l4l0 
01541001 410 
0l54;00l4!0 
0l54!00i4l0 
01541001410 
01541001410 
01541001410 
01541004 410 
0l54i00l4;0 
01541001410 
0l5.4iQQt4lQ 
01541001410 
0154;0014I0 
0l54t0.QUl0 
01541001410 
0l54«00i4l0 
0154I0Q14I0 
0l54l00i4t0 
0l54f00i4»0 
04541001410 
0l54;00i4l0 
0l54!00l4i0 
045410044X0 
0154(001410 
01541001410 
04541-0044-1-0 
0l54l00i4t0 



EMITTED, 

3, ADD THE SEQUFnCEI 

IF First subscript then vv else coc, 

EXECUTiONI The array element is put in REG A, 

4, ADD THr SEQUENCE! 

IF FIRST SUBSCRIPT THEN W ELSE COC»ZEROL» 
XCh»T, 

5, ADD THE SeOUENCE» 

IF FIRST SUBSCRIPT THEN VN ELSE COC.FXP, 

xCh»*. 
6. add thf sequence* 

if first subscript then vn else cdc»dup»lod. 
exp,t, xch«*. 

EXPf T,*»ZEROl»ETC, HAVE SAME MEANINGS AS DEFINED IN 

Simple variable Block. « 

BEGIN 

LABEL EXIT»LAST,NeXT t 
PRT(li3?) » *SEGMENT DESCRIPTOR* 

INTEGER THFNuMBEROFDECLAREDDIMENSIONSI 

sTACKrF*ii) » ThenumbeRofdfclaReooimensions 

DEFINE NODIM m RRi#I COMMENT NODIM CONTAINS THE NUMBER OF 

DIMENSIONS OF A MONITORED SUBSCRIPTED 
VARIABLE! 

Define testvarb » rr2I; comment testvarb contains the 

index of the last entry in info 
for a monitored subscripted 
variable* 

dffine inc » rr3*i comment inc is a counter used to index 

INTO INFO TO PICK OUT SPECIAL MONITOR 
INFORMATION! 
DEFINE SPMON • rlin2]*> COMMENT SPMON DESIGNATES THE BIT 

POSITION OF THE SPECIAL MONITOR 
INFORMATION FOR SUBSCRIPTED 
VARiABLESI 
DEFINE OPBIT s rll' !]*> COMMENT OPBIT TELLS WHETHER TO 

EMIT AN OPDC OR LiTC FOR PASSING 
THE SUBSCRIPTS FOR MONITORED 
SUBSCRIPTED VARIABLES. 1 MfANS 
LITC» MEANS OPDCI 
DEFINE LWRBNo » RRft#l COMMENT LWRBND HOLDS THE LOWER 

BOUND WORD FROM INFO FOR MONITORED 
SUBSCRIPTED VARiABLESI 
DEFINE SPMONAOR • tl2lU]#l COMMENT SPMONADR CONTAINS 

THE ADDRESS THAT WILL BE 
EMITTED IN AN OPOC OR LlTC 
DEPENDING ON OPBlTl 
COMMENT SPCLMON IS A BOOLEAN THAT 

IS SET TRUE IF THE VARIABLE IN 
TALL IS SPECIAL MONITORED. 



START 



STACKfF+12) • SPCLMON 



BOOLEAN SPCLMON* 



PRT(U33) m M4 



PROCEDURE M<l(TALLiiJ)l 

VALUE TALL.J > 
REAL TALLiJ I 

BEGIN STACKCT ♦ H 
IF J « 1 



I4t0 
1410 
1410 
1410 
1410 
141 
1410 
1410 
I4t0 
1410 
1410 
1410 
1410 
1410 
1410 
1410 
14«1 



««««*«*«*« 156 
T 0156I0000I0 



15168000 T 0154100 

15169000 T 0154100 

15170000 T 0154100 

15171000 T O154JO0 

15172000 T 0154100 

15173000 T OlSftlOO 

15174000 T 0154100 

15175000 T 0154100 

15176000 T 0154100 

15177000 T 0154100 

15178000 T 0154100 

15179000 T 0154100 

15180000 T O154J00 

15181000 T 0154100 

15182000 T 0154100 

15183000 T 0154100 

15184000 T 0154100 

OF SEGMENT 
15184100 

15185000 T 0l56l0000{0 

15186000 T 01561000010 

15187000 T 01561000010 

15188000 T 01561000010 

15189000 T 01561000010 

15190000 T 01561000010 

15191000 T 01561000010 

15192000 T 0156»0000J0 

15193000 T 01 56 1 0000 10 

15194000 T 01561000010 

15195000 T 01561000010 

15196000 T 01561000010 

15197000 T 01561000010 

15198000 T 0156I0000J0 

15199000 T 0l56l0000t0 

15200000 T 01561000010 

15201000 T 01561000010 

15202000 T 01561000010 

15203000 T 01561000010 

15204000 T 01561000010 

15205000 T Ol56»00O0-lO 

15206000 T 01561000010 

15207000 T 01561000010 

15208000 T 0l56l00il0ia 

15209000 T 01561000010 

15210000 T 01561000010 

15211000 T 015610000.10 

15212000 T 

15213000 T 

15214000 T 

15215000 T 



01561000010 
01561000010 
01561000010 
01561000010 



%k 



15216000 T 

15217000 T 

15217500 I 

15218000 T 



01561000010 
01561000010 
01561000010 
01561000011 



Then begin comment first time around; 

IF TALL < 

Then begin comment tall is monitoreoi 

EMITV(JUNK)) EMIT0(XCH)I 
ENOI 
EMITNCTALL, ADDRESS ) 
FNd 
ELSE REGIN COMMENT NOT THE FIRST TIME AROUNdI 
EMITO(CDC); 
IF TALL < 

Then begin comment call subscripti 

EMlTV(JUNK)> EMiTOfXCH)* 

end> 
endi fnd? xa 



15219000 
15220000 
15221000 
15222000 
15223000 
15224000 
15225000 
15226000 
15227000 
15228000 
15229000 
15230000 
15231000 
15232000 



T 01561000112 

T 0156 I 0002 10 

T 01561000210 

T 01561000312 

T 0156I00Q«J1 

T 01561000411 

T 01561000512 

T 015610006.10 

T 01561000611 

T 01561000712 

T 0156JJ)00XI3 

T 0l56l000ail 

T 01561001010 

T 015610010 to 



COMMENT 207 



COMMENT 



**iti>ii 



ir STEPI * LFTrRKET then begin eRR(207)»GO TO EXtT ENOI 
ThENUMBeROFDECLaReODIMENSiONS » TAKE(GlT(TALL)),t40«8jl 
J * 0) 

STACKCT •■ Ol lA 

VARlABLE-MlSSlNr. LEFTbRACKET ON SUBSCRIPTED VARIABLE ♦! 

IF Pi > FP Then tall ♦ abS(tall) else 
if tall < then 
monitor function ml goes here i 

begin comment this may be a monitored subscripted 
variable? 
emitocmks); 

if spclm0n«.take(gitctall) + 1>,spm0n * 
Then begin comment this is special monitoredi 

TESTVARB*(N0DIM*TAKE(1NC*GIT(TALL)) 

,nodimpart)+inc; 

DO IF B00LEAN(LWRBND«-TAKE(INC*iNC + 1)), 
OPBIT 
THEN EMlTL(LWRBND,SPMONADR) 
ELSE EMlTV(LWR8ND,SPM0NA0R) 

UNTIL INC i TESTVARB 



nexti 



IF 



ENDI 
STEPi » 
BEGIN 



COMMENT ?03 VARIABLE- 



COMMENT 204 VARIABLE' 



ENoI 
FACTOP THEN 
STLB * 11 

WHILE Table? i+i) « comma do 

BEGIN STEPITI 

TF STePI « FACTOP THEN STLB ♦ STLB+1 
BEGIN eRRC204)I GO TO EXIT END! 

ENOI 

IF J*STlB * THENUMBEROFDECLAREODIMENSIONS 
BEGIN ERR(203}IG0 EXIT ENDI 

The NUMBER OF SUBSCRIPTS USED IN A ROW 

ROW DeSiGNATER DOES NOT MATCH THE ARRAY 

DECLARATION, 

IF STfPt * RTBRKET THEN 

BEGIN eRRC204)I60 EXiT ENDI 

COMPILER EXPECTS A 3 IN A ROW DESIGNATER 

IF Pi * FA THEN 



ELSE 



Then 



♦ i 

♦ I 



15233000 

15233100 

15234000 

15234500 

15235000 

15236000 

15237000 

1S23B0Q0 

15239000 

15240000 

152410D0. 

15242000 

15243000 

15244000 

15245000 

15246000 

1 5247000 

15248000 

15249000 

15250000 

15251000 

15252000 

1525 30 aO 

15254000 

15254400 

15554500 

15254600 

15254700 

l525AflO0 

15254900 

15255000 

15356 00 

15257000 

15258000 

1525-9000 

15260000 

15261000 

152620QQ 

15262500 



T 01561001010 

T 01561001313 

T 01561001610 

T 01561001611 

T 0l56l00l7l3 

T 01561001713 

T 01561001913 

T 01S6I0021I2 

T 01561002112 

T 0156I0021»3 

T 01561002113 

T 01561002210 

T 01561002411 

T 01 56 10026 10 

T 01561002611 

T 01561002913 

T 01561 0.03 210 

T 0156I0032U 

T 01561003313 

T 01561003512 

T 01561003611 

T 01561003713 

T 0456100^7 1 3 

T 01561003912 

T 01561003913 

T 01561004-010 

T 01561004312 

T 01561004313 

T 1 56 1 0-0 461-1 

T 01561004810 

T 01561004611 

T 01561O0SO10 

T 0l56t0051«3 

T 01561005113 

T O15A.L0O5113 

T 01561005113 

T 01561005211 

I 0156JO.Q54I1 

T 0i56«0054»i 



COMMtNT 205 VARIABLE- A 

S 

I 

COMMCNT ***** MONITOR F 

I 
B 



F STUB > 
F PljtFi 
F Pi ■ F 

BEGI 

ROW DeS 

tatement 

F J.O 

UNCTfON 
F TaLI 
EGIN COM 
fMiT 
FMjT 
NDI 

F PI « F 
OR X ♦ 1 
EGIN IF 
THEN 
IF Z 
NO) 

TEPITI 
TO EXI 
ROW DfS 



1 Then fua6c212) euse 

AND Plt'FL THEN 

P AND REU THEN ELSE 

N ERR(205)» GO TO EXITI END> 

IGNATER APPEARS OUTSIDE OF A FitL * 

OR ACTUAL PARAMETER LIST. ♦! 

THEN 

EM I TPAIRCTALL, ADDRESS. LOO) > 
M2 GOES HERE i 
< THEN 

MENT DO NOT MONITOR AFTER ALL» 
NUM(5&CARDNUMBER[li4t44]}2 XI 09- 
N(gNAT{PRINTi))1 «109- 



A THEN 

STEP 1 UNTIL STLB DO 
CZ«^TAKE(GIT(TALL)+J + X)),C35ni3 

EMITVCZ) ELSE EMlT(Z); 
»t?3«l0] « ADD THEN EMlTO(CHS)| 



> 1023 



Tl 

IGNATOR PORTION J 



El 
S' 
Gl 
END OF 
AEXPI 
COMMENT ***** MONlTOf 
IF TALL < 
J «• J + IJ 

IF(GT1 •• TAKE( GlT(TALL)+ J)),C35«13] # THEN 
BEGIN 
IF G" 



ir function m3 goes here » 
Then emitpaiR(Junk»isn)i 



COMMENT ***** 



EMIT 

END OF 

IF ELCLASS 

BEGIN 

MONITO 

M 

E 
I 



COMMENT 208 VARIABLE- 

G 
END OF 
IF ELCLASS 
COMMENT ?06 VARIABLE- M 

IF J # THEN 
B 



Tl.[46i2] P THEN EMiTCGTl) 

ELSE EMITVCGTI, [351113) f 
CGTl,t23»123)l 
LOWpR BOUND ADJUSTMENT I 

■ COMMA Then 

R FUNCTION M4 GOES HERE i 
4 (TaLL»J)» 
MiTO(LOD) I 

F j+i > thenumberofdeclareddimensions then 

BEGIN eRR(208)| GO TO EXIT ENDI 
NuMBrR OF SUBSCRIPTS DOES NOT MATCH ARRAY ♦ 

declaration *t 

TO NrXTl 

SUBSCRIPT COMMA HANDLER i 
* RTbRKET THEN BEGIN ERRt206)IGO EXIT fND; 

issing right bracket on subscripted variable** 
umberofdeclaredoimensions Then 

EGIN ERRC20e)» GO TO EXiT END) 



COMMENT ***** 
LASt» 



STACKCT * 0> 

IF STEPI » ASSIGNOP THEN 
BEGIN 

XREFlTtTALL»REMEMBERSEQNOiASSlGNREF)r % 

% SUBSCRIPTED VARIABLE, 
MONITOR FUNCTION M4 GOES HERE « 
M4(TALL»J)l 

IF Ti» Then 



ZA 



ASSIGNMENT TO 



15262600 

15263000 

15263050 

15263100 

15264000 

15265000 

15266000 

15267000 

15268000 

15269000 

15270000 

15271000 

15271100 

15272000 

15272900 

15273000 

15273100 

15273200 

15273300 

15273400 

15274000 

15275000 

15276000 

15277000 

15278000 

15279000 

15280000 

15281000 

15282000 

15283000 

15284000 

15285000 

15286000. 

15287000 

15288000 

152890QQ 

15290000 

15291000 

15291100 

15291200 

15291300 

15291400 

15292000 

15293000 

1 52940 QO 

15295000 

15296000 

1 5 2^700 0. 

15298000 

15299000 

15299500 

15300000 
15301000 
15*01400 
15301200 
15302000 

isaaAaoa 

15304000 



01561005512 

01561005713 

0156 > 004010 

01561006210 

01561006410 

01561006410 

01S6I0064I0 

01561006411 

0156.I0O4AI1 

015610066(1 

01561006713 

01S4I0Q4B1O 

01561006913 

015610071(2 

0156! 007112 

0156I007H3 

01561007312 

0l56lQQ76i0 

0156»0079I2 

01561006113 

01 56 too 84 JO 

01561008411 

01561008512 

01 56 1 0085 15 

01561006513 

01561008513 

0156400671* 

01561008912 

01561009210 

O456ta0-9.2»t 

01561009411 

01561009712 

011610096.10 

01561009810 

0l56t0099t2 

01561009913 

01561009913 

Ol56»0l0OU 

01561010113 

0l56l0l02»l 

0l56l0l04»l 

0156LC4J3.4.I1- 

01561010411 

01561010512 

O156t04ii512 

0i56l0i07l3 

0i56l0i07l3 

04561X110610 

01561011010 

0l56t0ii0i0 

0i56U)ll0J0 

01561011011 

01561011113 

01541011-210 

0156(011411 

0l56}0ll4ll 

Ol541iIll-A14 

01561011610 



BEGIN ir Pi« FR Then go to exi 

ELSE BEGIN EMiTO(DUP)J EMlTOcCOC) ENOI 
IF TaUL, CLASS « BOOARRAYlD THEN BEX 
EMlTDf48-T?f T1»T2) J 
EMIT0(XCH)J 
COMMENT *♦*♦* MONITOR FUNCTION M6 GOES BEFORE EMI 

IF TALL < 

THEN BEGIN COMMENT STORE THE VALUE 
tN junk and call PRINTI, 
VALUE FROM JUNKI 
FMiTO( 

IF TALL. CLASS » INTARRAYJ 
THEN ISN 
ELSE SND3i 

IF Pi * FS 

THEN EMITPAIR(JUNK 

FMjTLCJ)! emitlcpass 
fmitpaircgnat(poweRsoften 

PASSALPHA(TALL)I 

CHARn«L00)l passmonfile 
aRraymonfiUe)! 
fMitnum((if sPclmon Then 

&CARDNUMBERtlMl4 
FMiTV(GNATCPRINTI))I 
IF PI # FS 
THEN EMlTVCJUNK)i 

puo; GO TO 
endi 

EMITOCIF TaUL. CLASS • INTARRAYIO T 
IF Pi ■ FS THEN ISO EL.SE ISN 

IF Purs Then std else snd)i 
PUO ; 

GO TO EXIT I 
END OF ASSIGNMENT STATEMENT SUBSCRIPT 
IF ELCLASSsPeRiOd ThEN 
BEGIN 

IF D0TSYNTaX(T1»T2) THEN GO TO EXIT 
IF STEPI • ASSIGNOP THEN 

IF Pi * fS then X PARTIAL WORD IS 
BEGIN 

XREFiTcTALLiREMEMBERSEQNO.ASS 

% WORD ASSIGNMENT T 

GO To LASTj 

END 

ELSE BEGIN eRRC209)j gO EXiT e 

J«l THEN EMITVCTALL.ADDRE5S)ELSE 



t end 

STEPi 
P ELSE 



t; 

AEXP 



IWF 



T0(XCH)» 



OF THE 
THEN R 



EXPRESSION 
ECALL The 



»SND}J 
TYPECT 
}fL0D} 
EMI 
(TAKEC 

3 ELSE 
43); 



EXITI 

HEN 
ELSE 



ALL))i 

f 

TPAlRCGNATC 

GIT(TALL)), 



2) 



Xi09* 
S109- 
X109" 



ED VARIABLES) 



\ 



LEFT»MOST 



I6NREF 
SUBS 



Xll6- 
X116- 
Xli6- 

); X PARTIAL 

CR, VAR, 

!I116» 
«116- 



IF 
END 
ELSE 



NOI 
EMIT0(C0C)I 



COMMENT ***** 



MONITOR FUNCTION MlO GOES HERE \ 
BEGIN COMMENT MONITOR FUNCTION MIOI 

SPCLM0N*PJ » FP OR ELCLASS ^ AMPERSAND) 



IF J 
THEN 



ELSE 



B 1 

IF SPCLMON 

THEN EMITVCTALL. ADDRESS) 
ELSE EMITNCTALL. ADDRESS) 
rMiTOxiF SPCLMON 

Then coc 



15305000 
15306000 
15307000 
15308000 
15309000 
15310000 
15311000 
153120D0 
15313000 
15314000 
15315000 
15316000 
15317000 
1S31&000 
15319000 
15320000 
15321000 
15322000 
15323000 
15324000 
15325000 
15326000 
15327000 
15328000 
15329000 
1533000D 
15331000 
15332000 
15333000 
15334000 
15335000 
1 53 16 00 Q 
15337000 
15338000 
15339000 
15340000 
15341000 
15342000 
15342100 
15342200 
15342300 
15342400 
15342500 
1534260Q 
15343000 
15344000 
15345Q0O 
15346000 
15347000 
1534B000 
15349000 
15350000 
15351000 
15352000 
15353000 
15354000 
15355000 



T 


L56I01 


117) 


T 


L56I01 


Ll6) 


T 


156101 


1211 


T 


156101 


124) 


T 


15610 


126) 


T 


156101 


127) 


T 


156101 


127) 


T 


156101 


1 27 J 


T 


15610] 


128) 


T 


156)01 


128) 


T 0456iOj 


12-84 


T 


156)0] 


128) 


T 


15610] 


129) 


T Q? 


15610] 


1301 


T 


15610] 


1311 


T 


15610] 


131) 


T 0, 


156I0J 


133* 


T 01 


15610] 


135) 


T 


156)0] 


137) 


T 01 


156)0] 


1381 


T 0] 


15610] 


141) 


P 


156)0] 


14 n 


P 0] 


1561 Oj 


Lftii 


P 


156)0] 


145) 


T 


156»0] 


146) 


T 0] 


156 10] 


146) 


T 0] 


156)0] 


148) 


T 


156)0] 


149) 


T OJ 


156)0 J 


LA9-1 


T 01 


156)0] 


1511 


T 0] 


156)0] 


1541 


T 0] 


15610] 


1571 


T 01 


156)0] 


1561 


T 01 


156)0] 


156) 


T 01 


156)0] 


^58l 


T 01 


156)0] 


159) 


T 01 


156)0] 


159) 


P 01 


I56t0j 


16 it 


C 01 


156)0] 


i62< 


C 0] 


156)0] 


63) 


C OJ 


i56tQi6Al 


C 0] 


156 tOj 


166) 


C 01 


156)0] 


166) 


C OJ 


LSMlJ 


1A7,|. 


T 01 


15610] 


67) 


T Oj 


[56)01 


69) 


T OJ 


156 IQJ 


L72I 


T 01 


156)0] 


172) 


T 01 


156)01 


72) 


T QJ 


L56I04 


172-1. 


T 01 


L56)0l 


73) 


T 01 


156)0] 


175) 


T 03 


15610] 


17^1 


T Oj 


156)0] 


176) 


T 01 


156101 


I7r) 


1 01 


l&6lXU.rfii- 


T 01 


156)01611 



m 



EUSE CDOI 
IF TALL < 
THEN BEGIN COMMENT 00 NOT MONITOR AFTER AULI 

EMITNUM(5&CARDNUMBERt l«4Ma])) XI 09- 

IF SPCUMON 

THEN EMITVCGNATCPRINTD) 

else em!tn(gnat(print1)) 
fNo> 
IF PI «f5 Then errc210)i 

IF PI " FI THEN Pl*OI 

go to exiti 
end; 
if pl»fs then bfgin err(210)i go to exit eno ; 

COMMENT ?10 VaRIABLE-MISSINg LEFT ARROW OR PERIOD. ♦! 

IF Tl#0 THEN BEGIN EMi T I (Oi Tl .12); 

IF Pii«Fi Then puoi 

ENDI 

IF PUFI THEN 

IF elclass#comma and elclass#rtparen 
Then simpariThi 

IF Pl»FI THEN Pi»OII 



COMMENT ***** MONITOR FUNCTION M9 
IF TALL < 

Then begin commfnt monitor function m9» 

EMlTNuM(5iCAR0NUMBER[U4M43)* 
EM1TV(GNAT(PRINTI))I 
END t 
EXITJ STACKCT ♦ END OF SUBSCRIPTED BLOCK; 
PRT(ll3ft) ■ *SEGMENT DESCRIPTOR* 

EXIT « END OF THE VARIABLE ROUTINE; 



XA 



X109- 
X109- 

XA 



15356000 
15357000 
1S35B0Q0 
15359000 
15360000 
15361000 
15362000 
15363000 
15364Q0Q 
15364500 
15365000 
15366000 
15367000 
15368000 
15369000 
15369100 
15369200 
15369300 
15369400 
15369500 
15369600 
15370000 
15371000 
15372000 
15373000 
15374000 
15374100 
15375000 
15376000 



156 IS 
154 IS 



215 LONG. 

15377000 T 

21 LONG. 



01561010210 
0i56l0i8S«2 
01561 01531 3 
Ol56f0l84U 
0156«0186»0 
0156IDU6I0 
01561018713 
01561018913 
01561.01^010 
01561019210 
01561019410 
156 » 019^411 
0l56i0l94tl 
01561019712 
0156^019712 
01561019913 
01561020210 
01564020210 
01561020211 
01561020410 
01 56 J 0-2 06 JO 
01561020610 
01561020810 
01 56.1 0208.10 
01561020811 
01561020913 
0156102-1112 
01561021211 
01561021211 

NEXT SEG 154 

01541001610 
NEXT SEG a 



COMMENT This section GENERATES CODE FOR STREAM PROCEDURES; 
PROCEDURE STREAMSTMT I 
BEGIN 
DEFINE LFTPAREN»LEFTPARENf,L0C«[36ll23l.LASTGT»[24ll2]#i 



DEFINE 



L0CFLD»36»36ti2#.LGTFLD«24l24ll2l; 
DEFINE LEVEL»LVL*.ADDOp«ADOPt; 



JFW 




39», 


. COMMENT 


7,5,5.1 


RCA 




40# 


. COMMENT 


7.5.7.6 


JRV 




47#i 


. COMMENT 


7,5.5.2 


CRF 




35#i 


» COMMENT 


7.5,10, 


BNS 




42ii 


> COMMENT 


7.5,5.5 


NOP 




1# 


• COMMENT 




ENS 




41#, 


► COMMENT 


7,5,5,6 


TAN 




30#. 


f COMMENT 


7,5,3.7 


BIT 




31# 


» COMMENT 


7, 5, 3. a 


JFC 




37#< 


, COMMENT 


7.5,5,3 


SFD 




06«< 


• COMMENT 


7,5.7,8 


R$A 




43#( 


f COMMENT 


7,5.7,4 


TRP 


X 


60*1 


. COMMENT 


7.5.2.2 



jump forward unconditional 
Recall control address 

JUMP REVERSE unconditional 
6 CALL REPEAT FIELD 
BEGIN LOOP 

END LOOP 

Test for alphameric 

TEST BIT 

Jump forward conditional 

SET destination ADDRESS 

Recall source address 

TRANSFER program CHARACTERS 



16000000 
16001000 
16002000 
16003000 
START OF SEGMENT 
16004000 
16005000 

i&aaAOoo 

16007000 
16000000 
16009000 
16010000 
16011000 
16012000 
16013000 
16014000 
16015000 
16016000 
16017000 
16010000 
16019000 



T 00031098112 

T 00031098112 

T 00031098112 

T 00031098112 

..«.««.*.**.*«.».* 1.57 

T 01571000010 

T 01571000010 

t oiszioouato - 

T 0l57|0000l0 

T 0157JO0O0I0 

T 015^7 looaaio 

T 01571000010 

T 01571000010 

T 0l57LQimQlQ 

T 01571000010 

T 01571000010 

T OiSZtilOilillO- 

T 01571000010 

T 0157»0000l0 

T. oisziiiaoiuxi 

T 01571000010 



PRTC1135) m FiXC 



BSS « 3*» COMMENT 7,5,6,6 SKIP SOURCE BIT 

BSD » 2## COMMENT 7,5,6,5 SKIP DESTINATION 

SEC ■ 34#i COMMENT 7.5,10,1 SET COUNT 

JNS ■ 38#l COMMENT 7,5.5.7 JUMP OUT lOOP 

COMMENT FlXC EMITS BASICUY FORWARD JUMPS. HOWEVER IN THE 

Of INSTRUCTIONS INTERPTED AS JUMPS BECAUSE OF A 

A VALUE a AND ThE JUMP i 64 SYLLABLES A JpW 

A RCA L CL IS STACK ADDRESS OF A PSEUDO 

MUST ALSO BE MANUFACTURED) iS EMITTED, 

PROCEDURE FlXCfS); VALUE SI REAL Sj 

BEGIN 

REAL SAVt.DtFI 



BITS 



I 



LABEL 



CASE 

CRF ON 
1 AND 
WHICH 



f 16020000 T 0157JOOOOIO 

I 16021000 T 01571000010 

16022000 T 01571000010 

I 16023000 T 0157«0000I0 

16024000 T 0157liU1.0QJQ 

16025000 T 01571000010 

16026000 T 01571000010 

16027000 T 0l57l0Q0Di0 

160?8000 T 01571000010 

16029000 T 01571000010 



STACKfF+2) 
STACK(F4.3) 
STACKfF+«) 



SAVL 

D 

F 



16030000 

16031000 

START OF SEGMENT 



F«-GET( 



SAVL*L? 
S)| 



IF 



■ ( L«-S) -i<63 Then 



ELSE 



l)lEMlTCN0P3lEMITfN0P)IEMlTCS))D»O*2l 
* SaVL 

BFGiN 
END I 



COMMENT 



END 



D •> L 
REGIN 
IF F»BNS THEN 

BEGIN 

S«-GET(L*.L 

ENDI 
EMITC(D.F)J L 
END 
BEGIN 

IF FitJFW THEN 
FMITC(1»F)J 
EMITC(1»JFW) 
EMITC(P^^*PJ + 1#RCA)I 
L ♦ SAVLI 

adjusti 

LPRT * phogdescbLdR(2#LpO); 

NOW ENTER PSEUDO LABEL INTO INFO WITH A0DRESS»PJ-1 I 
PUTNBUMP(0&CSTLABiDx2*n 

t2«40l8]^Pj[i6l37«lU&2t27»40»8ni 
PUTNBUMP(0i(NEXTlNFO»LASTINF0-nt4l4Ol8])l 
PUTNBUMP(0)» 
LaSTINFO ♦ NEXTlNr0-3| 
ENDI 
FiXC I 



T 0157I0000»0 
T 01571000010 



16032000 T 
16033000 T 
16034000 T 
16035000 T 
16036000 T 
16037000 T 
16038000 T 
16039000 T 
16040000 T 
16041000 T 
16042000 T 
1604 3000 T 
16044000 T 
16045000 T 
16046000 T 
16047000 T 
160ft8000 T 
16049.DQO T 
16050000 T 
16051000 T 
16Q52Q00 T 
16053000 T 
16054000 T 
16055000 T 

16056000 T 

16057000 T 

158 IS 35 LONG-, 



oisaiooooio 
oisafooooti 

01584 0002 JO 
0158)000411 
01581000512 
0158*04>OAIO 
0l58t0006tl 
0l58t00l2t0 
01 58 1001210 
0l58t00l3»2 
01581001410 

oiaajoxj-iftii 

0156t00l5l3 
01S8I0016I1 
0158 1 00a? 1 3 
0l58»00l9l3 
0l58l0020t 1 
0158100211.2 
01581002211 
0158I0022U 
01 561 002410 
01581002713 
01581003010 
045iU 110-1112— 
01581003210 
0l58l0032t0 
NEXT SCO- -157 



COMMENT EMITJUMP iS CALLED BY GOTOS AND JUMPCHAIN, 

This ROUTINE WILL EMIT A JUMP IF THE DISTANCE IS S 63 
SYLLABLES fOTHERWfSEt IT GETS A PRT CELL AND STUFFS THE 
STACK ADDRESS INTO THE LABEL ENTRY IN INfO AND EMfTS AN 
RCA ON THIS STACK CELL. AT EXECUTION TIME ACTUAL PARAPA.RT 
INSURES US THAT ThIS CELL WILL CONATIN A LABEL DESCRIPTOR 
POINTING TO OUR LABEL IN QUESTION, ; 
PROCEDURE EMiTjUMPt Z)i VALUE E< REAL E» 
PRT(1136) m EMiTjUMP 



16058000 
16059000 
16060000 
16061000 
16062OJQQ 
16063000 
16064000 
16065000 



0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 



tOOOOlO 
lOQQi>-li} 
lOOOOtO 
lOOOOlO 

i 0000 10 

rooooto 

.1.0000 10 



STACKfF*?) » T 
STACK(F+3) > D 

STACKfF+4) • ADOR 



BEGIN 
RFAL T,0) 



REAL ADDRl 



START 



16066000 

16067000 

OF SEGMENT 



IF ABS( 
D^-CT^TAKEtGlTCEn.LOcJ-L-DSfiA THEN 

R F* r f Ki 

IF addR*take(e):addRess.o Then 

BEGIN 

PUT(TAKE(E5&f ADDR*PJ*PJ+1)[16J37M13,E)I 
LPRT *■ PR0gDeSCBlDRC2.T»0)I 
END t 
EMITC(ADDR»RCA)I 
END 
EtSE EMITC(D»IF D <0 ThEN JRV ttSE JFW)> 
END EMIT JUMP; 



T 015/1000010 
T 01571000010 
****«•«*«* 159 



16068000 T 01591-000010 



159 IS 



16069000 T 0159 

16070000 T 0159 

16071000 T 0159 

16072000 T 0159 

16073000 T 0159 

16074000 T 0159 

16075000 T 0159 

16076000 T 0159 

16077000 T 0159 

16078000 T 0159 

16079000 T 0159 

16080000 T 0159 

21 LONG. NEXT 



tOOOOlO 
lOiXOOiO 
1000411 
1000512 
too 07 J 2 
1000713 
1001113 
• 004 31 3 
«00i3l3 
1001411 
1001411 
iOOietO 
SEG 157 



PRT(li37) « 



PROCEDURE 
JUMPCHAIN 



COMMENT When JUMPCHAjN fS CALLED THERF IS A LiNKEDllST IN THE CODE 

ARRAY Where jfws must be placed, the ist link is pointed 

To BY THE LOG FiElD OF EACH LABEL ENTRY IN INFO. THE LAST 
LINK IS n 4096, t 
jUMPCHAINf E)> VALUE E;REAL E; 



STACKfF*2) « SAVL 
STACKfF+3) n LiNK 



BEGIN 
RFAL SaVL 



l; 



LINKI 



START 



SAVL 

L ♦ TAKE(GlT(E)).LASTr,T 
WHILE L* 4095 DO 
BEGIN 

Link ♦ getcdi 

EMITJUMPC E)l 

L •■ LINK 

ENDI 
L*SAVL| 
END JUMPCHAiN ; 



16081000 T 

16082000 T 

16083000 T 

16084000 T 

16085000 T 

16086000 T 

16087000 T 

OF SEGMENT 



01571000010 
01571000010 
01571000040 
01571000010 
01571000010 

01571000010 
01571000010 
160 



*.<^.t^t.**.*1^**. 



160 IS 



16086000 T 

16089000 T 

16090000 T 

1 $091000 T 

16092000 T 

16093000 T 

16094000 T 

16095000 T 

16096000 T 

16097.QD0 I 
12 LONG* 



01 6010000 10 
01601000011 
01601000312 
016010Q04IQ 
01601000410 
01601000513 
01601000611 
01601000611 
01601000912 

0l60iQDil.9.U 

NEXT SEG 157 



COMMENT NESTS COMPILES Thf NEST STATEMENT, 

A VARIABLE NeST INDEX CAUSES THE CODE* 

XRF V» BNS , NOP, NOP, TO BE GENERATED INITIALLY. 
AT THE RIGHT PAREN THE BNS JS FIXED WITH THE LENGTH OF 

The nest (number or syllables) if the length j563. otherwise 

IT is fixed with a I AND THE NOPS REPLACED WITH JFW 1, 

RCA P. This is done because the value of v at execution 

MAY a AND THIS CODE CAUSES A JUMP AROUND THE NEST, 



16Q960Q0 
16099000 
16100000 
l6i0l-aOX> 
16102000 
16103000 

i6ia4X)-oa 

16105000 



0157 
0157 
0157 
0-157 
0157 
0157 
0157 
0157 



1 00 Q Ota. 

1000010 

(000010 

lXWMi4-0- 

lOOOOlO 

rooooio 

lOa 00-10 
1000010 



PRT(ll40) - NESTS 



JUMPOUT INFO IS KfMEMBERED IN A RECURSIVE CELL AND 

nest level increased by one, 

When the right paren iS reached. (IF the statements in 

The nest COMPILEt))» JOINFO IS CHECKED FOR THE EXISTANCE 
OF JUmPOUT STATEMENTS IN THE NEST. IF SO»ThE THE JUMPS 
ARE FIXED BY FAkInG TqToS InTq COMPILING THE REQUIRED 
JUMPS 

FINALLY The 8NS IS FIXED. IF ReQUiREO.AND NEST LEVEL 
AND JOINFO RESTORED To THEIR ORIGINAL VALUES, ; 
PROCEDURE NESTSi 

BEGIN 
LABEL EXIT» 



16106000 T 01571000010 

1610^000 T 0157IQ000I0 

16108000 T 01571000010 

16109000 T OIS'MOOOOIO 

UliOOOO T Ol-5ZXaO.ODtO 

16111000 T 01571000010 

16112000 T 01571000010 

16113000 T 0157I000OW 

16114000 T 01571000010 

16115000 T 01571000010 



STACKfF*2) 
STACKfF*3) 



JOINT 
BNSFIX 



REAL JOINT, BNSFIXJ 



16116000 

16117000 

START OF SEGMENT 

161 iSOOO 



T 01571000010 
T 01571000010 
♦ ♦•»♦♦♦♦*♦- tiii 
T 01611000010 



IF ELClASSi^LITnO THEN 

BEGIN 

EMlTCCELBATtn, ADDRESS. CRF3I BNSFiX* LI 

EMIT ( BNS)> EM|T(N0P)?EMIT(N0P)I 

END 
ELSE EMI TCCELB AT Cn, ADDRESS. BNSM 
IF STEPI # LFTPAReN THEN BEGIN ERR(262)» GO TO EXIT ENol 

nfstlfvel*nestlevel * 1» 
joint * joinfo; 

JOINFO * 0» 

DO Begin 

STEPlTJ ERRORTOG •• TRUE! STREAMSTMT 

END UNTIL ELCLASS f SEMICOLON I 
IF ELCLASS * RTPAReN ThEN BEGIN ERR(262)»Q0 TO EXIT ENoi 
EMIT ( ENS)J 
IF JOINFO / THEN 

BEGIN 
COMMENT PREPARE TO CALL JuMPCHAIN FORJUMPOUTS; 

ADJUSTI 

PUT(TAKE(GlT(JOiNrO))&LtLOCFLD].GlT( JOINFO))! 

JUMPCHAlNcTAKE(j0lNF0)&j0INF0r35l35«l3])l 

END? 
IF BNSFIX i THEN F I Xc ( BNSF IX ) ; 

NESTLEVEL * NESTLeVEL'U 
JOiNfO * JOINT J 

exiti end NeSTS % 



161 IS 



16119000 T 
16120000 T 
16121000 T 
16122000 T 
16123000 T 
16124000 T 
16125000 T 
16126000 T 
16127000 T 
16128000 T 
16129000 T 
1613Q0D0 T 
16131000 T 
16132000 T 
16133000 T 
16134000 T 
16135000 T 
16136000 T 
16137000 T 
16138000 T 
16139000 T 
161*0000 T 
16141000 T 
16142000 T 
16143000 T 
16144000 T 
36 LONG* 



01611000010 

0161I0000U 
OltllDQOltZ 
01611000313 
01611000610 
01611.00061 Q 
Ql61t0006lQ 
0l6H00n«2 
01611001210 
0161 1001312 
0l6ll00l3«3 
0161 1 00 1410 
01611001512 
01611001712 
01 61 1 0019 1 3 
01611002010 
01611002112 
01611002113 
01611002113 
01611002210 
Ql6U0fla5i3 
01611002610 
01611002810 
0l61l0jlUfiia 
0161I003H3 
0t61t0032i0 
N£XT SE6 157 



COMMENT Labels handles stream labels. 

ALL labels are ADJUSTED TO THE BEGINING OF THE NEXT 
WORD (IN THE PROGRAMSTReAM), 

if a go to has not been encountered before the label 
Then the. nest level field is entered and the defined bit. 

tt»ll» SET To ONE. FOR DEFINED LABELS. IF WHERE A GO TO 
has appeared, a CHECK IS MADE THAT THE CURRENT NEST LEVEL 
MATCHES The LEVEL OF THE LABEL. 
MULTIPLE OCCURAnCeS ARE ALSO CHECKED FOR AND FLAGGED. 



16145000 
16146000 
16147000 
16146000 

16149000 
16150000 
16151000 

16157000 
16153000 



T 01571000010 
I 0l57lQQfl0l0 

T 01571000010 

T 01571000010 

T 0l-57LX)^«0i<^ 

T 01571000010 

T 01571000010 

T ai57xfliiaai.a 

T 01571000010 



PRT(U4i) m 



PROCE 
LABELS 



FlNALLY>jUMPCHAiN IS CALLED TO FiX UP ANY FORWARD GO TOS 
AND GET A PRT LOCATION FOR ANY JUMPS i64 SYLLABLES. I 

DURE labels; 

BEGIN 

ADJUST; 

GTl «■ ELBATtn; 

XMARKfLBLREF)! % MARK LABEL OCCURENCE FOR XREF 1116- 

IF STEPI # COLON THEN ERR(25e) 

ELSE 

BEGIN 

IF TAKE(GT2«-GIT(GT1)),L0C * THEN rLAG(259) ELSf 
IF GT1>0 THEN 
BEGIN 

PUTCCTAKEfGTU&NESTLEVELtllMaiSn.GTDJ 
PUT(-L.GT2) 
END 



ELSE 



BEGIN 

IF GT1.LEVeLi«NESTLEVEL Then FLAG(257)I 

PUT((-L)&TAKp(GT2)[LGTFLD3.6T2)i 

JUMPCHAlN(r,Tl)l 

END* 



16154000 T 
16155000 T 
16156000 T 



END 
I STEPIT; 

END LABELS I 



16157000 
164 58000 
16159000 
16159100 
16160000 
16161000 
16162000 
16163000 
16164000 
16165000 
16166000 
16167000 
16168000 
16169000 
16170000 
16171000 
16172000 
16173000 
16174000 
16175000 
16176000 
16177000 



01571000010 
01571000010 
01 57100.0010 



0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0151 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 



lOOOOtO 
t 0000 10 
tOOOOli 
1000113 
i.0(U).5J-3 
1000713 

tooosto 
) ooaa^ i 

1001211 

1001313 
JiiOtAJO 
1001712 
1001713 
1 00 1 84 
lOOlSlO 

»00l8U 
4002112 
1002410 
1002512 
10025X2 
1002512 
J0025I3 



PRT(li4?) ■ ITS 



STACKrF+2) ■ ADDR 
STACKfF+3) m FIXi 
STACKfF+4) • FIX? 



COMMENT IFS COMPILES IF STATEMENTS, 

FIRST The Test ts compiled, note that in the 
constructs ••sc rflop dc and "5c relop string" that 
The syllable emitted is fetched from one of two fields 
IN The elbat word for the Relational operator, otherwise 
The code is emitted straightaway, 

A TEST IS MADE TO SEE WHETHER THE STATEMENT AFTER THE 
"THEN" COULD POSSIBLY BE LONGER THAN 63 SYLLABLES, AND IF 
S0» Z N0P5 ARE EMITTED FOR FlXC IN CASE A RCA WILL HAVE 
To BE GENERATED, 

This procedure dOfs no optimazation in the cases 
IF Then go to l.if Then statement else go to l# or 
IF Then go to li else go to l2 i 

PROCEDURE IFSl BEGIN 

DEFINE COMPARECODE bC 42 t 6 3#, TESTCODE«[ 36 I 6 3# »EQUALVb48#I 

label IFSBiIFTOG,IFSCfEXlTJ 
SWITCH IFSW ♦ IFSB»IfTOG»IFSCJ 
REAL A0DR,FlXlfFlX2 I 



16178000 T 01571002513 

16179000 T 01571002513 

16180000 T 015.71 0Q25I 3 

16181000 T 01571002513 

16182000 T 01571002513 

16183000 T 01571 052513 

16184000 T 01571002513 

16185000 T 01571002513 

16186000 T 015710025 1 3 

16187000 T 01571002513 

16188000 T 01571002513 

16189000 I 04-57 » 0055 13 

16190000 T 01571002513 

16191000 T 0157I0025I3 

16192000 
START OF SEGMENT 
16191000 
16194000 
16195000 



T 01571002513 

T aiAziaQflOiQ 

T 01621000010 

T 0i62t0004il 



ADDR^l ; 

60 To IFSW[STEPI -SBV+lJ i 

If ELCLASS»L0CLID THEN 

BEGJN 

EMITC{ELBATtn,ADDRESSiCRF)l 



1619A00X) I 
16197000 T 
16198000 T 
16189MQ_I 
16200000 T 



.0lA24il0OiUl- 
01621000513 
01621000912 

01621000913 
01621001010 



AOOR< 

END 



01 



TFSC« 



FLSE 

EtSE 
IF S 



IF ELCLASS»LiTNO THEN AODK * ELBAT [ i ]. ADDRESS 
BFGIN ERR(250)I GO TO EXIT £Hot 
TEPI # SCV THEN BEGIN ERR(263)IG0 TO EXIT END* 



IF S 
IF S 
FLSr IF E 



TEPlJtR 

TEPI«D 

UCLASS 

BEGIN 

IF AC 



ELSE 
END 
FLSp IF ELCLASS 
BEGIN 
IF EL 

ELSE 



ELOP THEN BEGIN ERRC26«)JG0 EXIT ENDI 

CV THEN EMlTc(ADDR»ELBATcl-l3,C0MPARECODE) 

■STRNGCON THEN 

CUM[1],I12I6J#1 OR ELBATtI-3],CLASS#lFV THEN 
BEGIN inR(?J\)i GO EXIT END 
EMlTC(ACCUMtl3,Il8«6].ELBATri-n.TESTC0DE) 



sLOCLiD Then 



END 
ELSf if ACCUMCl 
BEGI 
ELSr IF ELBATtT 

ELSf begin flag 
GO iftog; 

IFSBJ EMITCC1»BI 

IFTOGI IF SJtPUT 

FiXl » It 

EHlT(JFC); 

STEPlTl 

IF ELCLASS 

ELCLA 

ELCLA 



BAT[I 
BEGIN 
BEGIN 
EMITC 
EMITC 
FMITC 
END 

]^''5A 
N ERR 

-n.c 

f270) 

T)l 

HENV 



'•aj.CLASSj'IFV THEN 
ERR(27i)l GO EXIT END 

C0.ELBAT[I-1],TESTC0DE)5 % RESET TFFF, 
(ELBATtf 3, ADDRESS, CRF)I 
(0,ELBAT[I-n.TESTCODE)J % COMPARE. 



lpha" Then 

(265);G0 exit END 

ompaRfcooekeQualv Then emitc(i7,tan) 
J erroRtogntrue end; 



THEN BEGIN ERRC266)I GO EXIT END* 



• BE 

SS K 

SS » 



STRE 
IF F 



ELSE 
EXITIFND 



ELCL 
BEGI 
EMIT 
END? 
IF E 

amstm 

LCLAS 
BEGI 
FIX2 
FIXC 
STEP 

stre 

FiXC 
END 
FIXC 
IFS 



ASS » 
N 
(NOP) 

LCLASS 

Tl 

S« ELS 

N 

♦ LI 
CFIXI) 
ITI 

AMSTMT 
(FTX2) 

(Fixn 

I 



GINV OR 

IFV OR 

LITNO OR 

ELCLASS s STLABID OR 

LOCLID AND TABLE(I*1) m LFTPAREN THEN 

»EMIT (NOP) 

• ELSpV THEN ELSE 

EV THfN 

EMIT(JfW)I 
i 



162 IS 



16201000 
162020Q0 
16203000 
16204000 
162Q5000 
16206000 
16207000 
1620BOO0 
16209000 
16210000 
16211000 
1621U00 
16211200 
16211300 
16211400 
16212000 
16212100 
16212200 
16212300 
16212400 
16212500 
16212600 
16212700 
16212800 
16212900 
16213000 
16213100 
16214000 
162.1410.Q 
16215000 
16216000 
16217000 
16218000 
16219000 
16220000 
16221000 
16222000 
16223000 
16224000 
16225000 
1622 60 OC 
16227000 
16228000 
16228500 
16229000 
16230000 
162310X)0 
16232000 
16233000 
16234000 
16235000 
16236000 
L623T0QQ 
16238000 
16239000 
69 LJDNG* 



01621001210 
0162J0012I1 
01621001211 
0l62l00l2»l 
01621001411 
01621001713 
0l62t0020l 1 
0l62!Q02ll2 
01621002313 
0162100261 1 
0l^2Ji)028H 
01621002912 
01621003312 
01 621 DO 3 411 
01621003712 
01621003810 
01621 00 391 3 
01621004010 
0l62t0042l0 
0U2*O043l3 
0162(004410 
01621004611 
01621004810 

0162I0050U 
01621005011 
01621005014 
Ol62»0052»0 
0162I0055I2 

0162IO.Q5A11 

01621006112 
016210061*3 
0162100.6312 
0l62«0065l3 
0l62t0066«l 
01621006712 
01621006713 
01621006811 
01621006913 
016210070U 
01621007113 
04.621.00-7411 
01621007512 
01621007610 
04621 OOUl I 
01621007713 
01621007'61 1 
O4A21007-913 
01621006010 
0162I008H3 
01621008211 
01621006312 
01621006313 
04621-110841.1 
01621006411 
01621008610 

NEXT S£6 151 



PRT(li43) * GOTOS 



COMMENT GOTOS HANDLES gO tO ANO THE lAST PART OF JUMP OUT TO 
STATEMENTS. 

IF The LABEL HAS BEEN ENcOUNTfREO TheN CMITjUMP is CALLED 
AN PRODUCES A JRV OR RCA IN ThE CASE OF JUMPSS64 SYLLABL 
ES, OTHERWISE* A LINK IS EMITTED POINTING ANY PREVIOUS 
GO ToS IN The CaSf OF FORWARD JUMPS, 

FINALLY, IF THE NfST LEVEL IS UEFINED THEN IT IS CHECKED 
AGAINST The CURRENT LEVEL MINUS THE NUMBER OF LEVELS TO 
BE JUMPED OUT. qThERW i Se. NEST LEVEL IS DEFINED. I 
PROCEDURE GOTOS; 



BEGIN 
LABEL 



EXITI 



IF STEPI i«TOV THEN 1*1-1 ; 

IF STEPI # STLABID ThEN BEGIN ERR(260);gO TO EXIT END) 

IF(GT?*TAKE(GlTC6Ti*ELBATtI]))),M0N»l 

OR GT?,Loc»<o Then EMiTjUMPcGTi) 

ELSE 

BEGIN PUT(0(ILC24{36I12]»GIT(GT1))) 
IF GT1>0 THEN 
BEGIN 

PUT(-(TAKE(GTn&(NESTLEVEL-JUMPLEVEL)tlU43l5]),GTl)l 

EMlTNa023)> 

END 



START 



ELSE 



BEGIN 

IF 6T1. LEVEL * NeSTLEVEL-JUMPLEVEL THEN FLAG(257)) 

EMIT(6T2,LaSTGT)| 



EXITj 



end; 

ENDI 
JUMPLEVEL«-0 
END GOTOS 



163 



16240000 T 


01571002513 


16241000 T 


0157«0025»3 


16242000 T 


01571002513 i 


16243000 T 


157 « 00251 3 


16244000 T 


01571002513 


16245000 T 


01571002513 i 


16246000 T 


01571002513 


16247000 T 


0157J0025»3 


16248000 T 


01571002513 1 


16249000 T 


01571002541- -- 


16250000 T 


0157(002513 4 


16251000 T 


01571-00 2513 


OF SEGMENT ♦♦•***♦♦*♦ 163 


16252000 T 


01631000010 i 


1625J0O0 T 


01 63-1 00024-1 - 


16254000 T 


0l63»0005l3 


16255000 T 


01631000811 i 


1625^000 T 


01631001 112 - 


16257000 T 


0163<0012IO 


16258000 T 


0l63l00l5i2 i 


16259000 T 


01631001543 


16260000 T 


01631001610 


16261000 T 


0l63l00i9l2 i 


16262000 T 


01^3 100204 


16263000 T 


0163«0020J0 


16264000 T 


Ol63t0020t0 m 


16265000 T 


01634002011 


16266000 T 


01631002313 _ 


16267000 T 


01631002512 m 


l62AflDQfl T 


0161IQQ254 2 


16269000 T 


01631002512 


16270000 T 


01631002513 % 


S 27 L0K6# 


NEXT SEG 157 



PRT(li44) 



PROC 
RELEASES 



COMMENT RELEASES COMPILES THE STREAM RELEASE STATEMENT, 

The code generated is i 

SED FILE 

RSA 0, 
AT EXECUTION TjmE THIS CAUSeS AN. INVALID ADDRESS WHICH IS 
INTERPETEO BY THE MCP TO MEAN RELEASE THE FILE POINTED TO 
BY The DESTINATION ADDRESS, 
The MONITOR BIT IS SET IN INFO FOR THE LOCAL VARIABLE SO 

That acutal paraPart may be informed later that a file 

MUST BE PASSED FOR ThiS FORmAl PARAMETeRI 
EDUrE RELEASES; 

IF STEPi * LFTPAReN OR STePI^LOCLID OR STEPi i» RTPaReN OR 
(6Tt*ELBATCI*n).F0RMAL»0 

Then err(256) else 

BEGIN 

EMITCC QTI.AODReSSiSED); 

emit(filething)) filething*l-i; 



16271000 
1 6272000 
16273000 
16274000 
16275000 
16276000 
16277000 
16278000 
16279000 
16200000 
16991000 

16282000 
1 6^28 3000 
16284000 
16285000 
16246000 
16287000 



T 01571002513 

I 015710025-13 

T 01571002513 

T 01571002513 

I 0157JQ025U 

T 01571002513 

T 01571002513 

I 015710025.13- 

T 01571002513 

T 01571002543 

T 01574-002-541 

T 01571002513 

T 01571003113 

T 01571003313 

T 01574-0044-10- 

T 01571003513 



INFOrGTl.UINKR»rJl.LlNKC].MON 
END RELEASES! 



1» 



16?88000 
16289000 



T 01571003713 
T 01571006113 



PRT(ll45) m 



PROCEDURE 
INDEXS 



COMMENT INDEXS COMPjUE STATEMENTS 
OR LOCAUIDS , 

thRee caSes present ThEMSE 

LETINT, X Be either OF 
CASE I LOcLIO * X 
case II X ♦ X ,,, 
CASE III X * EITHER 
The VARIABLE "INDEX'* IS CO 
CASE EXfSTS^SUCH THAT ARRA 
The CODE TO BE EMITTED, 

each element of macro has 
Right to left* unused syll 

MAY REOUIRE AT MOST ONE Rt 

IN This procedure, indexs.t 

PROPER REPEAT PART BY THE 
ENCOUNTERED, THE SYLLABLES 
ONE AT A TIME AND IF THE R 
USED AS The REPEAT PART.TH 

The proper address and op 

NOTEI if MACROtTYPEl • T 
ERROR, 
INDEXS! 



BEGINING WITH S I , DI » C I . TALLY 

LVES# 

Sl»OI.CI OR TALLY* THEY ARE* 



LOC.LOCLIO.se OR DC, 

MPUTED. DEPENDING UPON WHICH 

Y ELEMENT "MACROt INDEX] hcONT A I NS 

1-3 SYLLABLES ORDERED FROM 
ABLES must » 0, EACH MACRO 
PEAT PART, 

HE VARIABLE "ADDR" CONTAINS THE 
TIME THE LABEL "GENERATE" IS 

ARE FETCHED FROM MACROfTYPEl 
EPEAT PART * THEN"ADDR" IS 
US BUILDING A SYLLABLE WITH 
ERATOR . 
HEN THIS SIGNIFIES A SYNTAX 

; 



BEGIN 
LABEL 



EXIT. GENERATE. L»L1» 



STACKfF+2) s TCLASS 

STACKfF+3) « INDEX 

STACKfF+4) a ADDR 

STACKfF*5) s J 



INTEGER TCLASS, INDEX. ADDR, JJ 



START 



TCLA 
IF S 

TF T 



IF T 



SS * E 
TEPI # 
CLASS 
BEGIN 

xmark 

IF Si 
INDEX 
ADDR 
GO To 

end; 

CLASS 
BEGIN 
IF ST 
IF ST 



LCLASS > 
ASSlGNOP THEN 

• LOCLio Then 



DEGIN ERR(25l)> GO TO EXIT END* 



CASSlGNREF)! 

v>stepi OR elclass>tallyv Then go to li 
♦ 32 + elclaSS-sivi 
♦ ELBATn-?3. address; 

GENERATE! 



iii6' 



» STEPI THfN 



ELSE 



EPI»«ADD0P then BEGIN ERR(252 
EPI^LITNO AND ELCLASS»»L0CLID 
BEGIN ERR(253); qO EXIT END! 
INDEX ♦■ TCLASS-SIV 

♦ REAL(ELBATtfl3.ADDRESS«SUB 

♦ REALCELCLASS »L0CLID) x 8! 
END 



); 60 EXIT END ELSE 
THEN 



) X 4 



16290000 T O157JO042I0 

16291000 T 01571004210 

16292000 T 0l57«0042l0 

16293000 T 01571004210 

16294000 T 0157IX)0424.0 

16295000 T 0l57l0042»0 

16296000 T 01571004210 

1629700Q T 01571004210 

16298000 T 01571004210 

16299000 T 0l57«0042»0 

16300000 T 01571004210 

16301000 T 0157I0042»0 

16302000 T 01571004210 

16303000 T 01571004210 

16304000 T 01571004210 

16305000 T 01571004210 

16306000 T 0157IQQ42.I0 

16307000 T 01571004210 

16308000 T 01571004210 

16309000 T 01571004210 

16310000 T 0157»0042I0 

16311000 T 0l57»0042f0 



16312000 

16313000 

OF St SMI NT 

16314000 



T Ol5'nO042«0 
T 01571004210 

***i>*i>.jiL<».*i! ItM 

T 01641000010 



16315000 T 

16316000 T 

16317000 T 

l63ta0Q0 T 

16316500 C 

16319000 T 
16320000 T 

16321000 T 

16322000 T 

163^3Q00 T 

16324000 T 

16325000 T 

16326000 T 

16326100 T 

16327000 T 

16328000 1 

16329000 T 

16330000 r 

16-331000 T 
16332000 T 



01641000010 
01641000011 

01641000313 

Ql64<aa0AIQ 

01641000411 

0l64ldO09t2 

0164100111 J 

0164I0013!3 

0l64t00i5i3 

Q16.410.Q16I.D 

016410016(0 

0l64lO0l7l2 

0164 1 0-017 J 3 

01641002010 

01641002211 

0l.A44 0Qaftll 

01641002512 

01641002712 

Ol&4lOil40tO- 

01641003010 



BEGIN 

INDEX ♦ TClASS -StV 

* ( IF ELCLaSS •> LOCLID ThEN 16 ELSE 

IF elclass b locv Then 20 else 

IF ELCLASS « SCV ThEN 2<t ELSE 

IF ELCLASS. DCV ThEN 28 ELSE 25)1 
IF ELCLASS » LOcV THEN 

IF STEPl # LOCLID THEN GO TO LI 
IF ELCLASS » LITNO AND TCLASS » TALLYV THEN 

BEGIN EMlTc(ELBATtn. ADDRESS, SEC)»GO TO EXIT ENDI 
END I 
ADDR * ELBATtn.ADORESSJ 

genfRatej 

IF MACROtlNDEX]* ThEN 

Lj Begin ERR(250)ir.o to exit enoi 

J * 81 TCLASS ♦O ; 
Lit M0VECHARACTERS(2iMACR0rlN0EX]»J«-J-2, TCLASS, 6 )J 

IF tclass#o Then 
Begin 

EMiTCdF TCUASSi64 THEN ADDR ELSE 0, TCLASS)! 
GO TO LI 
ENDI 
EXITJENO INDEXS I 



16333000 
16334000 
163350Q0 
16336000 
16337000 
16338000 
16339000 
16340000 
16 341000 
16342000 
16343000 
16344^0X> 
16345000 
16346000 
1634^000 
16348000 
16349000 
163SOO00 
16351000 
16352000 
16353000 
16354000 
16355000 



164 IS 65 LONG. 



0164 
0164 
0164. 
0164 
0164 
Q164 
0164 
0164 
0164 
0164 
0164 
01A4 
0164 
0164 
0164 
0164 
0164 
01 64 
0164 
0164 
0164 
0164 
0164 
NEXT 



1003010 
1003011 
IQ03JI2 
1003312 
1003512 
10.03112 
1004010 

1004112 
J0043i2 
1004411 

1004713 
1004713 

1004912 
1004912 
1 0050 to 
1005210 
1005313 
1005742 
1005713 
10056*0 
1006112 
1006113 
1006113 
SEG 157 



COMMENT DSS COMPILES DESTINATION STREAM STATEMENTS, 

DS* LlT"STRiNQ« iS HANDLED AS A SPECIAL CASE BECAUE THE 
STRING MUST BE SCANEO FROM RIGHT TO LEFT, REPEATEDLY IF 



PRT(1146) « DSS 



PROCEDURE DSSI 



NECESSARY. AND EMiTTEO TO 

All OTHER CASES, The elbat 

The OPCODE FIELD I 



The PROGRAM STREAM, IN 

WORD CONTAINS THE OPERATOR IN 



STACK(F+2) m ADDR 

STACK(F+3) « J 

STACKeF*4> « K 

STACKfF+5) M L 

STACKfF+6) m T 



BEGIN 
INTEGER 



ADDR* J»t<,L,T| 



16356000 
16357.0QO 
16358000 
16359000 
1 63 60 00 
16361000 
16362000 

16363000 

16364000 

START or SEGMENT 



T 01571004210 

I Ql57l.,DJ)42lfl 

T 01571004210 

T 01571004210 

T 0l57ja0.42iQ- 

T 01571004210 

T 01571004210 

T 01571004210 

T 01571004210 

***ii*.*«At« 1.65 



LABEL EXIT, LIJ 

DEFINE 0PC00E«»t27l61#l 

IF STEPI # ASSlGNOP THEN BEGIN ERR(25l)l 60 TO EXIT ENDI 

IF STEPI m LOCLID THEN 

BEGIN 

EMlTC(ELBAT[n.ADoRESS,CRF)l 

ADDR* 01 

IF stePi « LiTV Then qo to li 

END 
ELSE IF ELCLASS* LITnO THEN 

Begin 

ADDR ♦ ELBATflliAoDRESSl STePiT I 

End 

ELSE ADDR ♦ 1 I 



16365000 
16366000 
16367000 
163680QO 
16369000 
16370000 
16371000 
16372000 
16373000 
1647-4000 
16375000 
16376000 
4A37-7-0OO 
16378000 



T aiASJ O.OXlOJ-0 

T 01651000010 

T 0l65«0000l0 

T Q.U5 1000214 

T 01651000313 

T 016SI0004I0 

T 01651000-6-10- 

T 0165I0006I1 

T 01651000713 

-T -01^4004*40- 

T 01651000913 

T 01651001010 

T a4-64-i-00 1-2X0- 

T 0l65«00i2l0 



IF 



FLCLASS » FRNSFER OR ELCLASS 
EMITC(ADDR»ELBAT[I3.0PC0DE) 

ELSF 

IF ELCLASS = LiTV THpN 
BEGIN 
EMITC(AD0R»TRP)J 

IF STePI )• STRING 
ELCLASS / LITnO 



B FILLV THEN 



AND 
AND 



ELCLASS 
ELCLASS 



STACKfF*7) s ♦TEMPORARY STORAGE* 



STRNGCON 
NONLlTNO 
BEGIN ERR(?55)<60 TO EXIT END; 
IF ELCLASS s LiTNO OR ELCLASS n NONLlTNO 
MOVECHARACTfRS(COUNTI«IF ADDR < 8 THEN 

c#a-couNT,AccUMrn»3)j 

IF ADOR MOD 2 # THEN 

BEGIN 

EMlT(ACCUMrl3.tl8l63)l J ♦ IJ 

END t 
FOR K ♦J+Z STEP 2 UNTIL ADDR DO 

BEGIN 

FOR L *6f7 DO 

M0VECHARACTERS(l»ACCUMtl].2*(IF 



AND 
THEN 



THEN 
ADDR 



ELSE 



XA 
XA 



Xlll 
Xlll 

Xlll 

8« 

XIU 



J*J+1>C0UNT THEN J*l 



ELSE 
LU 
EXIT'FND 



END 



EMIT(T); 
END 



ELSE J)»TfL )J 



ERR(2503J 
DSS i 



16379000 
16379500 
16380000 
16381000 
16362000 
16383000 
16384000 
16384100 
16384500 
16384700 
16384800 
16384900 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 



165 IS 



16393000 T 

16394000 T 

16395000 T 

16396000 T 

16397000 T 

16398000 T 
59 LONG* 



01651 
01651 
01651 
0l65f 
01651 
01651 
01651 
01651 
01651 
0l65( 
01 651 
01651 
01651 
01651 
0165» 
01651 
01651 
01651 
01651 
01651 



001312 
001512 
00i7l2 
001712 
QOlfill 
001912 
002010 
0022J0 
002410 
002513 
00 2.7 J 3 
003112 
003312 
003410 
003411 
003712 
00^712 
004H2 
004112 
004513 



01651004912 
0l65t0052l0 
01651005312 
0165I0053I3 
01651005313 
01651005411 
NEXT SEG 157 



COMMENT SKIPS cOMPiLeS ThE SKIP BiT STATEMENT, 

IF The REPEAT INDEX IS A LOCALID THEN A CRF IS EMtTTED, 
A BSS OR BSD IS THEN EMITTED FOR SKIP SOURCE BITS (SB) 
OR SKIP DESTINATION BiTS (DB) RESPECTIVELY t 
PROCEDURE SKIPS t 
PRTCU47) m SKIPS 

BFGIN 
RFAL ADDRJ 



16399000 T 

16400000 T 

16401000 T 

16402000 T 

16403000 T 



STACKfr*2) « ADDR 



16404000 

16405000 

START OF SEGMENT 



01571004210 
01571004210 
01571.004210 
0l57l0042»0 
01571004210 



T 01571004210 
T 01578004210 

m^.i.Hf****** 1&.6 



IF STEPI • LOCLID TheN 

Begin 

EMlTC(ELBAT[n,ADDRESS»CRF); ADDR«-0l STEPITI 

END 
ELSE IF ELCLASS « LITNO THEN 

BEGIN 

ADDR* ELBATtll.ADDRESSI STEPIT 

END 
ELSE ADDR ♦ 1 J 

IF ELCLASS »SBV THEN EM I TC ( ADOR »BSS) 
ELSE 

IF ELCLASS »DBV ThEN fMI Tc ( ADDRi BSD) 
ELSE ERR(250); 

END Skips ; 



16406000 T 01661000010 

16407000 T 01661000112 

16408000 T 01661000113 

16409000 T 01661000411 

16410000 T 01661 OOQilfl 

16411000 T 01661000513 

16412000 T 01661000610 

16413000 T 01^^1000713 

16414000 T 01661000810 

16415000 T 01661000913 

16416000 T Q166I0041J2 

164}7000 T O166IOO1II3 

16416000 T 0l66l00l4f0 

164 1 9 Q D T Ql 66 1 Q 045 « 3 
NEXT SEG 157 



166 IS 18 LONG. 



n 



PRT(ll50) • 



PROCEDURE 
UUMPS 



COMMENT JUMPS COMPILES 
JUMP OUT TO S 
The NUMBER OF 

jns are emitt 
jump instruct 
Simple jump o 

A PSEUDO STla 

The gotos pro 
Up The links 
thesf rix UPS 
go tos when t 

JUMPS) 



jump out and JUMP OUT TO STATEMENTS. 
TATEMENTS CAUSE JUMP LEVEL TO BE SET TO 

LfVfLS SPECIFIED. THEN ThiS NUMBER OF 
ED AND GOTOS IS CALLED TO COMPILE Thf 
ION. 

UTS ARE HANDLED BY EMITTING ONE JNS, ENTERING 
BID IN INFO AND SETTING ELBATtl] SUCH THAT 
CEOURE WILL PERFORM THE ACTION OF SETTING 
FOR LATER FIX UPS. THE NEST STATEMENT CAUSES 
(IF EMITTING OF JUMP INSTRUCTIONS) BY CALLING 

HE Right paren is encountered, i 



BEGIN 

JUMPLEVEL*!! 

IF STEPI^DECLARATO 



COMMENT 



IF STEPI » 
ELSE BEGIN 

IF ELCLASS# 

BEGIN 

Simple jump o 
if joinfo » 

BEGIN 
JOiNfO ♦ 
PUTNBUMP(0&(S 
[21 
PUTNBUMP 
PUTNBUMP 
LASTiNfO 

end; 

ELBATtl* I-l 
ENOI 1*1-1 I 



RS Then FLAG(26n< 
LITNO then JUMPLEVEL* ELBATtn. ADDRESS 



TOV AND ELCLASS# STLABID THEN 



UT Statement; 
Then 

nfxtinfo t 

TLaB|Dx2+1) 
^0l6]i2C27U0l8 3)1 
(0&(jOiNfO-LASTINFO )[ 4140183)1 

(0); 

* JOINFO* 
J* TAKECJOlNFO)iJ0lNFOt35J35tl3]l 



ENOJ 

FOR GTI* \ 
EMIT( 
GOTOSI 
END JUMPS! 



STEP 1 
JNS)I 



UNTIL JUMPLEVEL DO 



16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 

16432000 
16433000 
16434000 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
16444000 
16445000 
16446000 
16447000 
16448000 
16449000 
164SQ000 
16451000 
16452000 
16453000 
16454000 
16455000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 

0157 
0157 
0157 
0157 
0157 
0157 
0l5? 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 



1004210 
10042)0 
1004210 
I0042t0 
1004210 
1004210 
I0042«0 
1 00424 
1004210 
IOO42IO 
1004210 
1004210 

1004210 
I0042t0 
1004211 
IQ045I2 
1004611 
t0048l 1 
1005010 
tOOsOll 
IOO5OU 
« 00511 3 
1005210 
1005211 
laOSAI-O 
1005611 
tO058U 
1005913- 
1006010 
1006010 
IQ064I0 
1006512 
1006512 
1 0066 10 
10069(2 
1006913 



COMMENT STRfAMSTMT ENvOKfS THE APPROPRIATE PROCEDURE TO HANDLE 

The various and sundry stream procedure statements. 
The statements aRe broken down as follows* 



identified By 

END 

semicolon 

) 

if 

GO 

RELEASE 
BEGIN 

SIiDlrClfTALLYfLOCALID 
OS 



PROCEDURE ENVOKED 
GO TO FINI 
FINI 
FINI 



GO TO 
GO TO 
IFS 
GOTOS 

Releases 
compounotail 

INOEXS 
DSS 



16456000 
16457000 
16458000 
16459000 
16460000 
16461000 
16462000 
16463000 
16444000 
16465000 
16466000 
164670QQ 
16468000 



T 01571007010 

T 01571007010 

T 01571007010 

T 01571007010 

T 01571007010 

T 01571-007010 

T 01571007010 

T 01571007010 

T 015^40^0704-0- 

T 01571007010 

T 01571007010 

T 015710OZ0JO- 

T 01571007010 



SK 



UPON EX 

The sfm 

LABEL L»L1. 
SWITCH TYPE 



START! 



L« 
Ll« 
12 » 
L3« 
l<t» 
LSI 
L6I 
17 1 

i.e» 

L9t 
tlO: 
EXiTi 
FlNH 



GO TO T 
IF ELCL 
IF ELCL 

IF ELCL 
IF ELCL 
ERR< 25 

nests; 
labelsi 

IFSI 
GOTOSJ 

Release 
1*1+1 > 

INDEXSI 

Dss; 
Skips; 

JUMPS? 
STEPITJ 
END S 



IP SKIPS 

JUMP JUMPS 

lABELlD LABELS 

LITERAL NO,fLOCALlD( NESTS 

ITING,STREAMSTMT ASSURES THAT •• I •♦ POINTS TO 

ICOLON trNo OR ) IN SYNTACICALLY CORRECT PROGRAMSI 

L2»L3,L4,L5»L6,L7,L8,L9»L10.eXIT»FINI»STARTI 

• FlNlfL,FiNI.L3»L4.L5,L6.L7»L7»L7,L7.L8.L9fLl0l 

YPEt ELCLASS-ENDV + ni 

ass« rtpaRfn Then go to fini > 

ASS » LITNO or ELCLASSaUOCLiD AND TABLEd + D 

« lftpaREN Then go to lu 
ASS* stlaBjd Then go to L2 f 
ASS* LOCLiD Then go to L7 i 

)l GO to FINI f 
GO TO EXiTi 
GO TO START* 
60 TO FiNl > 

GO TO exit; 

s; GO TO exit; 
compoundTail; go to finu 

GO TO exit; 

GO to exit; 

GO to exit; 

go to exit; 

treamstmt; 



157 IS 



16«69000 T 0157 

16470000 T 0157 

16471000 T 0157 

16472000 T 0157 

16473000 T 0157 

16474000 T 0157 

16475000 T 0157 

16476000 T 0157 

16477000 T 0157 

16478000 T 0157 

16479000 T 0157 

16480000 T 0157 

16481000 T 0157 

16482000 T 0157 

16483000 T 0157 

16484000 T 0157 

16485000 T 0157 

16486000 T 0157 

16487000 T 0157 

16488000 T 0157 

16489000 T 0157 

16490000 T 0157 

16491000 T 0157 

16492000 T 0157 

16493000 T 0157 

16494000 T 0157 

16495000 T 0157 

118 LONG. NEXT 



1007010 
1007010. 
1007010 
1007010 
1007010 
1007010 
(007010 

iao70io 

(008010 
1006410 
1008542 
1006713 
1006913 
1009112 
1009210 
1009410 
1009610 
1009610 
lOlOOlO 
1010210 
1010410 
1010712 
IQ1Q9I2 
1011112 
1011312 
1011512 
1011611 
SEG 3 



TJMEI «■ TlME(l); PROGRAM; 
ENnOFlTALLl 
TF (XREF or DEFINING. till]) AND XLUN > THFN 

berin defin?: lss* <#»gtr.>#»neo« ##.leq«si; 
pRTcusi) « *segment descriptor* 



X116- 
fOFB 



PRT{ll52) « timings 
PRT(n53) • SAVETIMES 



DEFINE XREFlNFOtlNDEX] « I NF0[ ( { INDEX ) , CF DIV 2),t33l7]. S;il6- 

((INDEX). CF DIV 2).LINKC3#» X116- 

CF « t33»153*» 1116- 

FF « [I61l5]#i X116- 
NEWIDCINDEX] ■ (IF BOOLEAN(INDEX) THEN XREFlNFOtlNDrXl.FF 

fLSE XREFINF0[INDFX],CF)#; «116«' 

ARRAY TlMlN6St0l2»0l3]; Xll6- 



16496000 
17000000 
17000100 
17001000 
17002000 

START OF SEGMENT 
17002005 
17002006 
17002007 
17002006 
17002001 
17002010 
17002012 



T 00031098112 

T 00031096H2 

T 0003109BA10 

P 00031096410 

T 00031098611 

*>|i***4i4i<f*« 167 

P 01671000010 

C 0167100001.0 

C 01671000010 

C 01671000010 

C 01671000.010 

C 01671000010 

C 01671000010 



PROCEDURE SAVETIMES(I); 

VALUE U INTEGER 11 
BEGIN 

INTEGER Jl 



«U6» 

xn6- 

X116- 
X116'' 



17002015 C 01671000312 



STACK(F*2) 



FOR J I* 1 STEP 1 UNTIL 3 DO 
TtMlNGSII.J] IB TjME(J); 

ENn; 



17002020 
17002025 
17002030 
START OF SEGMENT 

tXit" 17002035 

*116» 17002040 
J116- 17002045 



.01671.00031.2 
01671000312 
01671000312 
166. 



C 
C 
C 

* m Ik *.**.* *.**- 



C 01661000010 
C 0166100^1-1-2- 
C 01661000610 



168 IS 



9 tONG. NEXT SEG 16^ 



PROCEDURE UPDATE7IMES(1)| 
PRT(1154) B UPDATFTIMES 

VALUE n INTFGEH 11 
BEfilN 

tntegeR JI 



STACK(F*2) a J 



rOR si »- 1 STEP 1 UNTIL 3 DO 

TTMiNGStliJl »* TiMEfJ) • T I M I NQSt I • J J » 
ENnI 



1116- 

X116- 
«116- 
1116- 



17002050 C 0167100031.2 



17002055 
17002060 
17002065 



C 0167I0003»2 
C 01671000112 
C 01671000312 



START Op SEGMENT •***»*♦♦*• 169 

X116- 17002070 C 01691000010 

X116- 17002075 C 0l69l0001l2 

X116- 17002080 C 01691000713 

169 IS 10 LONG. NEXT SEG 167 



PRT(ll55) e *SE 
PRTC1156) « INP 



WRTTE(LlNEtPAGEl)» 

SAVETlMES(0)l % SAVE TlMpS FOR START Op IDENTIFIER SORT 

lasiaddRess*Oi 

FOR XRe:FPTI«XRefPT STEP 1 UNTIL 29 00 
WRlTE(nSK2»30,XREFAy2[*J)| 

totalno \m xluni x remember number of identifiers, 
xrefpt^xlun.-o? 
FOR II* STEP 1 Until 8i9i oo 

XREFINFOrn «« 01 
BEGIN 

BOOLEAN PROCEDURE INPUTUA); 
GHENT DESCRIPTOR* 



X116- 

XREFAY2tXREFPT]l»l00000000I 

XOFB 
15116- 

XDF8 

X116- 

1116- 

»DFB 

XOFB 



UTl 



PRTtH57) M EOF 



ARRAY 
BEGIN 
LABEL 



A[0]l 
L.EOFJ 



READfDSKlf lO,At*3)tE0Fi; 

60 TO L^ 

EOFI INPUTIUTRUEJ 
REWIND(DSKl)| 
Lt 
ENDI 



17002520 
17002525 
17002530 
17003000 
17004000 
17004500 
17004600 
17004700 
17004710 
17Q0500Q 
17006000 



T 0167I0003<2 

C 01671000712 

T 01671000810 

T 01 67. 10009 J 2 

T 01671001313 

P 0l67l00i7l3 

T 0l67l00lflll 

C 0l67l00i9l3 

C 0167«0022»0 

T 16710029 I Z 

T 01671002912 



START OF SEGMENT ****♦*♦♦♦♦. 17.0 



XDFB 

X0F8 

XOFB 
j 

XDFB 

IDFB 
XDFB 
XDFB 
XDFB 

xora 



START 



17007000 
17008000 
17009000 
OF SEGMENT 
17010000 



T 01701000010 

T 0170IQ00QIO 

T 01701000010 

T 01741000010- 



171 IS 



17011000 T 
17012000 T 
17013000 T 
17014000 T 
l70i5OaO T 
14 LONGt 



01711000512 
0171400^513 
01711000611 
0l7ll0008n 
0-1 74 1 Q0X)5 1 2 
NEXT SEG 170 



PRTfll60) s OUTPUTl 



PROCEDURE OUTPUTKb.aJ; 

VALUE Bi 
BOOLEAN a» 
ARRAY AfOJI 

BEGIN 

IF B THEN 
BEGIN 



XDFB 

XDFB 
X0F.8 
XDFB 
XDFB 
XDFB 
X116- 



17016000 T 01701000010 



17017000 

uaiaaoo 

17019000 
17020000 
17021000 
17022000 



T 01701000010 

T 017-01000X1.1.0- 

T 01701000010 

T 01701000010 

T 0l7Q.L0i)O0l0 

P 01701000010 



% UPDATE TIMES 

XLUNJ X NUMBER 



REWlNDtDSKDI 

UPOATETlMfStO)! 

T!MiNgS[0»0] Is 
END 
ELSE 
BEGIN 
IF B00LEAN(A[83) ThEN 

XREFlNF0[At8]].FF is 
ELSE 

XREFINFOtA[8]3.CF l« XLUN I* XLUN ♦ 11 
At8],IDN0F Is XLUNi 
WRlTE(DSKi,iO.Ar*3>« 
END» 
ENDI 



FOR IDENTIFIER 
OF IDENTIFIERS 



XLUN im XlUN * 1 



X116- 
SORT, 
SORTED, 

i;ii6- 

XDFB 

XDFB 

X116- 

illfi- 

X116- 

X116- 

»116* 

«DF8 

XOFB 

IDFB 



17022100 
17'022200 
17022300 
17022400 
17023000 
17024000 
17025000 
17025100 
17025200 
17025300 
17025400 
17026000 
17027000 
17028000 



0170 
0170 
0170 
0i70 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 



I0000«l 
lQQ02tl 
1000313 
1000513 
1Q005I3 
1000513 
1000610 
1000611 
1001312 
t00i4l 1 
IX)022I0 
1002410 
(00281 1 
t002fitl 



PRT(ll6i) • COMPSl 



BOOIJPAN STREAM PROCEDURE COMPSl(A.B)» 



BEGIN 
SI l*A) 

DU*BJ 
IF 63 SC < 
TALLY IB 
ELSE 
BEGIN 
SI I* 
DI tm 
IF 63 
TALLY 
ENDI 
COHPSII 
ENDI 



DC 
1 



Then 



AJ 

b; 

SC 



t* 



TALLYI 



DC 
21 



THfN 



XOFB 

«DFB 

XDFB 

XDFB 

X116- 

X116- 

X116- 

J!116- 

X116- 

X116- 

X116- 

X116* 

1116- 

XDFB 

XDFB 



17029000 T 01701002811 



17030000 
17031000 
17032000 
17033000 
17033100 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17034000 
17035000 



0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 



100281 1 
1002912 
1002912 
1002913 
1003010 
1003010 
100301 1 
100301 1 
1003011 
1003112 
I00'31I3 
! 0031 1 3 
I003H3 
1003210 



PRTC1162) « HVSl 



STREAM PROCEDURE HVSKa)! 

begin 

OII»AI 

DSI«8 Lit ''9'»1 

SI1»A1 

DSln 7 wdSI 

os is 8 lit 3*'777777777"t % id. no, and seg.no, fields 
endj 



XDFB 


17036000 


T 


01701003312 


lOFB 
XDFB 
«OFB 
«0FB 

XDFB 
5116- 

10 FB 


17037000 
17038000 
17039000 
17040000 
17041000 
17041100 
17042000 




017010-04-112 
01701003312 
01701003312 
01701003411 
01701003411 
01701003512 
01 70 10046 10 



PRTC11633 » COMPl 



BOOLEAN PROCEDURE COMPl(A»B)l 

ARRAY A*B[0]l 

IF REALCC0MPi1bC0MPSI(A»B)) • 2 THEN % IDS EOUaU 
COMPl tw At8]ilDN0F < Bf8],lDN0F; 



XDFB 

XDFB 
X116- 

«116- 



17042100 T 01701003611 



17042200 
17042300 
17042350 



T 01701003611 
P 01701003611 
C 01 70 10040 10 



PRT(ll64) • HVl 



PROCEDURE HV1(A)> 

ARRAY AtO]> 
HVSICA)! 



XDFB 

XDFB 
«DFB 



17042400 T 0170J00«5I2 

17042500 T 01701004512 
17042600 T 01701004512 



PRT(1165) 
PRT(U66) 

PRT(1167) 

PRT(1170) 

PRT(ll7i) 
PRT<1172) 
PRT(ll73J 



XLUNibOI xopb 

RrWINOfDSKni Xjjpg 

sort{Outputimnputi»o»hvi»compi,io,if totauno < 1000 Then xii6- 
- sort Temporary 

* MERGE 

7000 ELSE lOoOO); XU6- 

« SORT 

» *SEGMENT DESCRIPTOR* 



BEGtN 
ARRAY inTYPE[0l(IDMAX+4)x4-l]> 
• ♦SEGMENT DESCRIPTOR* 



» lOTYPE 
■ SETUPHE 



STREAM PROCEDURE SETUPHEaDi NGC S» D» SEG# SEQNO.FWDTOG t LBUTOG. 
ADINg 

FWDSEQN0,TYPE»0WNT06»PARAMT0 
VALTOG)! 

VALUE SEGtSrQNO,FWDTOG,LBLT0f,»FWDSEQN0,OWNTOG.PARAMT0G» 
VALTOGJ 
BEniN 

SI !■ 5J 

nl J« D> 

63 (IF SC = " " THEN JuMP OUT ELSE OS «s CHR)I 
r)S 2» 6 LIT •• -- ♦•; 
OWNTOG (DS ta 4 LIT «OwN ^)i 

SI »» type; 

32 (IF Sc ■ ",•• then JuMp OUT ELSE DS l» CHR); 

paramtog (DS «■ 6 Lit " -- "; 
DS «» 4 Lit "NaMe"; 

VaLTOG (DI »« DI - 4; OS l» 5 LIT ••VALUE'*)! 
OS «« 10 LIT •♦ PARAMETER")! 

ns «B 26 Lit •• -- dfclaRed in segment ♦♦! 

SI «« LOc SeG! 

S l« Dp 

nS i« 4 DECI DI :« DI - 4! DS I* 3 FiLL) % CONV AND ZERO 

nl «■ DI + 8? X TO FORCE STORE OF LAST WORD 

SI »» S! 

ni I" S! 

4(IF SC # * •• THEN DS?a CHR ELSE Si J* Si ♦ 1)1 
nS tH 4 LIT " AT "; 
SI «>= LOc SEflNO; 
DS U» 8 DEC! 

fwdtog (ns i» 17 Lit " -- forward at ♦♦! 

S! !• LOc FWDSfQnO! 
DS J« 8 DEC)! 

lbltog (DS IB 16 Lit " — occuhs at •*; 



G» 



XDFB 
X117- 



170 IS 



17043000 T 0170J0047»3 
17044000 T OlTOt 004811 
17045000 P 0170I0050M 



17045100 C 01701007312 

17046000 T 01701007512 

82 LONG. NEXT SEG 167 
17047000 T 01671003112 
17047100 C 0167I003H2 



X116- 



START of SCGMCNT ****•««*** 172 
17047200 C 01721000513 



X116- 
X1J6- 
«116- 
X116- 
«116'P 
1116- 
1116- 
)I116- 
XU6- 
1116- 
«U6- 
1116* 
«116- 
1116- 
«116- 
X116- 
X116- 
X116- 
X116* 
SUPPR 
XM6- 
I!116- 
1116- 
XI 16- 

xiia- 

«116- 
Xll6« 
X116- 
X116- 
Xll6-f? 
X116- 



17047300 C 
17047350 C 
17047400 C 
17047450 C 
17047500 C 
17047700 C 
17047800 C 
17047900 C 
170460.00 P 
17048100 C 
17049300 C 
1704940.0. C 
17049410 C 
17049420 C 
17049430 c 
17049440 C 
17049500 C 
170.49600 C 
17049700 C 
17049800 C 
1 7fl4«9X).0. t 
17050000 P 
17050100 C 
I7i)50500 C 
17050300 C 
17050400 C 
1705^0§0^ C 
17050600 C 
17050700 C 
170^0*00 C 
17050900 C 



01721000513 
0l72t0005t3 
0l72iaoOSl3 
01721000513 
01721000513 
017.21 ODJ) 610 
01721000610 
01721000611 
Dl721fiQQ9l2 
Ol72!00l0l0 
01721001210 
01721001215 
0l72»00l5l2 
Ol72lO0l7!2 
04 ZZlQim.l.3- 
01721002010 
01 72! 0022 10 
Oil21fiill5l3 
01721002513 
01721002610 
.fll72ti)Xl2All 
01721002712 
01721002712 
04721^)4X2714- 
01721002912 
0l72!0030!0 

01721003011 
01721003410 
04X21X) 0-3414- 
01721003411 






ENn OF 



Si iM LOC pwdseonoi 
DS 5b B DFC)> 

sftuphfadikg; 



X116- 
1116- 
1116- 



17051000 
17051100 
17051200 



P 01721003810 
C 0172I0038IQ 
C 0l72»0038ll 



PRT(ll7fl) » ADDASEONO 



STREAM PROCEDURE ADDASEONO cSEQNO. N» ST ARS » D) J 

VALUE SEQNO,N»STaRS| 
BErJN 
ni »« D» 
ni «■ 01 + b; 

N (DI «■ DI + 10)» 

STaRS(DI «« DI - 1> DS i« LIT "•"); 

SI tR LOc se«no; 

pS J» 8 OECI 

nS IB uiT " "I 

STARS (Dl l« DI - 1> DS i » LiT '•♦••)| 

ENni 



xin-f 

J!116- 

«116- 
X116- 
XU6- 
X116- 
X116- 
XU6- 
X116-I 
X116- 
1116- 
11116- 



17051300 
1705H00 

17051500 
17051600 
17051700 
17051800 
17051900 
17052000 
17052100 
17052200 
17052300 
17052400 
17052500 



01721003912 
01721003912 



0172* 
01721 
01721 
01721 
01721 
01721 
01721 
01721 
01721 
01721 
01721 



003912 
0039«2 
003912 
003912 
003913 
004112 
004312 
004312 
004313 
004410 
004610 



PRT(ll75) ■ BLANKET 



STREAM PROCEDURE BLANKeT(D)? 

berin 

ni t* Dl 

nS I* 8 LIT •♦ •♦; 

SI J» D> 

nS I*. 16 WDS* 

ENn OF blanket; 



1116- 

X116- 
1116- 
XI 1 6- 
J!116- 

X116- 
X116- 



17052600 C 01721004610 



17052700 
17052800 
17052900 
17053000 
17053100 
17053200 



C 01721004610 

C 01 72 » 0047-12 

C 01721004712 

C 01721004811 

C 01 72 10048 II 

C 01721004912 



PROCEDURE PRINTXRLFSTaTISTiCSJ 
PRT(ll76) » PRINTXREFSTaTISTICS 

BEniN 

SWITCH FORMAT STaTS I« 



PRT(1177) « STATS 



STACKfr+2) « I 
STACKtr^S) « J 
STACK(F + 4) 11 K 



(///$ "CROSS 

("PHASE ONE 
("PHASE TWO 



("PHASf 
fX5.l4.' 



Reference statistics", /, 
"» /)» 

- S0RT",l6," IDENTIFIERS-)* 

- S0RT"#i7." REFERtNCES")* 



THREE - PRINT CROSS REFERENCE (".l7»" LINES)"), 



J", 211 



(X5, I4,"»",2I1, 
(X5, 14," I ••,211, 

INTEGER I.JiKI 



ELAPSfD Time cminisec)'')^ 

PROCESSOR TIME"), 
I/O TiME",/)J 



1116- 

«116- 
»116- 



17053300 C 01721004912 



START 
START 



17053400 

170.53500 

OF SEGMENT 

OF SEGMENT 



1116- 
1116- 
1116- 
XI 16- 
fll6- 
1116- 
X116- 
1116- 

«116- 



C 01721004912 
C 01 721 0049 IZ 



174 IS 



17053600 C 

17053700 C 

17053900 C 

17053900 C 

17054000 C 

17054100 C 

17054200 C 

17054300 C 
87 iONG# 

17054400 C 



01741000010 
01741000010 
O174IO0P9IO 
01741000010 
01741000010 

01741000010 
0l74t0000t0 
01741000010 

NEXI._S£G- 1.73 

01731000010 



PRT(1200) • *LIST» LABEL* 



WRfTFCLlNE*STATS[0])j 
rOR 1 »» STEP 1 UNTIL 2 DO 
BFGIN 

WRlTE{LlNE»STATStI+l]fTlMlNGS(i,0]); 
OR SEGMENT DESCRIPTOR* 
FOR J l« 1 STEP 1 UNTIL 3 DO 
BEGIN 

K tm (TiMINqSC j»Jl + 30) DiV 601 % ROUND 
WRlTECLINEiSTATStJ+33fK DIV 60.(KlsK MOD 
PRT{l20l) » ♦LIST* LABEL* OR SEGMENT DESCRIPTOR* 

K MOD 10)> 

endi 

END? 
ENn PRINTXREFSTATISTICS; 



XU6- 
X116- 
11116^ 
i;il6- 

X116- 

J116- 

TO NEAREST SECON 

60) DIV 10,X116- 



X116- 
X116- 
«116- 



17054500 
17054600 
17054700 
17054800 

17054900 
17055000 
17055010 
17055020 



173 IS 



17055025 C 
17055030 C 
17055100 P 
17055200 P 
47 LONG, 



01731000010 
0173100041 I 
01731000610 
01731000610 

01731 0.017 I 3 
01731001912 
01731001912 
01731002210 

01731003313 
01731001913 
017310041)3 
01731004410 
NEXT SEa 172 



PRT(1202) » FiRSTTiME 

PRT(1203) * PAY 

PRTC1?0«) « LASTADORESS 

PRTC1205) « INPUT? 



DEFINE REFCOUNT • T I M 1 NGSt 1 » J* ; X NUMBER OF REFERENCES SORTED, 
BOOLEAN FiRSTTlMEJ % TRUE ON FIRST CALL OF OUTPUT PROCEDURE, 



PRT(1206) * EOF 



ARRAY PAYtOti7]l 

REAL LaSTADDRESS; 

BOOLEAN PROCEDURE INPUt2(A); 

ARRAY AfO]; 
BFGIN 
LABEL L»EOF> 

DEFINE I B LASTaDDRESS#; 

IF XREFPTI=XREFPT*1«30 THEN 

BEGIN 

REAPCDSK2*30*XREFAY2[*])tE0F]J 



«OFB 
«116- 

XDF8 

XDFB 
ZDFB 
«DFB 

X 1 1 6 • 
«DFB 
«DFB 
XDFB 



START OF 



xrefpti«o< xdfb 

end; xofb 

if ( i ».xrefay2txrffpt]).[2lj273 gtr 99999999 then go to eofj 

AfO] i» I & NEWlDri .REFIDNOF] REFIDNOFJ «116- 

REFCOUnT U REFCOUNT + H %\\6m 

GO TO L* XOFB 

EOF« lNPUT2»sTRUE> «DFB 

BLANKET(PaY)| fOFB 

XREFAYltS] «« XREFPT U LASTADDRESS l« Ol X116- 

FILL IDTYPEI*] with «116- 



"UNKNOWN. 

"STREAM LABEL, 

"STREAM VARIABUe. 

"DEFINE, 

"LIST. 

"FORMAT, 

"SWITCH FORMAT. 

"FILE. 

"SWITCH FILE. 
"SWITCH LABEL. 



% 



"* * 1 



"# % 2 



", I 3 

". X 4 
".15 
", X 6 

". X 7 

", X 6 



XM6- 

X116- 

Xli6- 

X116- 

X116- 

XU6- 

XI 16- 

X116* 

XI 16- 

X116- 



START OF 



7069300 
7069400 



C 01721004912 
C 01721004912 



7069500 T 01721004912 
7<069600 C 01721005312 
7070000 T 01721005312 



7071000 
7072000 
7073000 
SEGMENT 
7073100 
7074000 
7075000 
7076000 

7077000 
7078000 
7079000 
7080000 
7080100 
7081000 
7082000 
7 081^0 
7084000 
7084010 
7084020 
SEGMENT 
7084030 
7.084040 
7084050 
7084060 
7084070 
7084080 
7084090 
70844 00. 
7084110 



T 01721005312 

T 01 721 00 53 J 2 

T 01721005312 

*««*«**«** 175 

P 0175(000010 

T 01751000010 

T 0175I0001I3 

T 01751000210 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



***** 

c 
c 
c 
c 
c 
c 
c 
c 
c 



01 
01 
01 
01 
01 
01 
01 
04 
01 



751000713 
75 1 00 08 JO 
751000810 
75J0010U 
75»X)026i0 
751003210 
751003410 
75«fl0441 1 
751003610 
751003811 

751003913 
***** 176 

751004011 

751Q04Q11 

751004011 
75IOO4OII 
751.0.040*1 
751004011 
7SI0040I1 
i5X.QXt4.au 
751004011 



a 



•'PROCEDURE, 

"INTRINSIC. 

"STRfAM PROCEDUREt 

♦'BOOLEAN STREAM PROCrDURr. 

"REAL STREAM PROCEDUREt 

"ALPHA STREAM PROCfDURE. 

"INTEGER STREAM PROCEDURE, 

"BOOLEAN procedure;; 

"REAL PROCEDURE, 

"ALPHA PROCEDURE. 

"INTEGER PROCEDURE. 

"BOOLEAN. 

-REAL, 

"ALPHA. 

"INTEGER, 

"BOOLEAN ARRAY. 

"REAL ARRAY. 

"ALPHA ARRAY, 

"INTEGER ARRAY, 

"LABEL, 

"FIELD, 

"FAULT. 

"SWITCH LIST, 



LJ 

end; 



" t 


1 


10 






X116- 


" * 


X 


11 






X116- 


H 


» 


12 






X116- 


" t 


X 


13 






X116- 


H 


X 


H 






X116- 


" » 


X 


15 






xn6- 


"f 


X 


16 






X116- 


"» 


X 


17 






XI 16- 


" t 


X 


16 






X116- 


If 


X 


19 






X116- 


"• 


X 


20 






X116- 


"f 


X 


21 






XU6-' 


" , 


X 


22 






X116- 


" t 


X 


23 






Xll6» 


" , 


X 


24 






X116- 


" * 


X 


25 






X116- 


H 


X 


26 






X116- 


" . 


X 


27 






X116" 


» 


X 


28 






X116- 


" , 


X 


29 






X116- 


" » 


X 


30 


(CLASS • 


125) 


X117- 


" . 


X 


32 


(CLASS »= 


126) 


X117- 


"» 


X 


31 


(CLASS B 


127) 


Xll?-? 

xdfb 

XDFB 



176 IS 



175 IS 



17084120 C 0175 

17084130 C 0175 

17084140 C 0175 

17084150 C 0175 

17084160 t 0175 

17064170 C 0175 

17084180 C 0175 

17084182 C 0175 

17084184 C 0175 

17084186 C 0175 

17084166 C 0115 

17084190 C 0175 

17084200 C 0175 

17064210 C Q175 

17084220 C 0175 

17084230 C 0175 

I70ft4a40 C 0175 

17064250 C 0175 

17084260 C 0175 

17084270 C 0175 

17084275 C 0175 

17084280 C 0175 

17064290 C 0175 

132 LONGi NEXT 

17085000 T 0175 

17086000 T 0175 

46 LONG. NEXT 



1004011 
1004011 
1004011 
1004011 
IQQAQII 
1004011 
1004011 
1004011 
IOO4OI 1 
100401 1 

1004011 

1004011 

liiOAiltl 

IOO4OI 1 

1004011 

lQ040tl 

1004011 

(004011 

100401 1 

1004011 

1004011 

1004011 

SEG 175 

1004011 

I0041J2 

SEG 172 



PROCEDURE 0UTPUT2(B»A)1 
PRT(1207) * OUTPUT? 

VALUE Rl 

BOOLEAN b; 

ARRAY ACOll 

BEGIN DEFINE PR I NTER-Ll Ne# J 

Label f0f2, skipj 

OWN BOOLEAN B2, FWDTOG, LBLTOG* WA I T I NGFORFWDREFI 
PRT<1?10) » 82 
PRT(l?ll) * FWDTOG 
PRT(121?) » LBLTOG 
PRT(1213) « WAITINQFORFWDREF 

DEFINE MATCH(A,B) m REAL(BOOLEAN( A ) EOV BOOLEAN(B)) « 

ReAL(NOT FALSE)#1 

REAL 11 



XOFB 



17087000 T 01721005312 



XDFB 17088000 

lOFB 170890QD 

XDFB 17090000 

XDFB 17091000 

START Of SEGMENT 



X116- 
XU6- 



X116- 
Xtl6- 
XI 16- 



STACKrF*2) e I 
PRT(1?14) ■ FWOSEQNO 



DEFINE LINECOUNT * T |M f NGSt 2» J#l X NUMBER OF LINES PRiNTFD, 
OWN REAL FWDSEQNOl Xll6< 



IF FiRSTTiME Then x pRtnt headings and save Timings, 

BEGIN 

FIRSTTiME «* FALSEl 
TlMEl 1» TiME(1)1 

datime; 

UPDATeTIMES(1)1 



Xll6« 
X116" 
Xll6« 
Xl!6' 
X116! 
X116' 



17091100 
17091110 



17091115 
17091116 
l709U2i) 

17091140 
17091150 

17091155 
170 911 6Q 
17091162 
17091165 
1709117.0 
17091175 



T 0172J005312 

T 0172100531-2 

T 01721005312 

T 01721005312 

»♦*♦♦*_♦*#,♦ 1.77 

P 01771000010 

P 01771000010 



C 01771000010 
C 01771000010 
C 017710000-14) 

C 01771000010 
C 01771000010. 

C 01771000010 

C Q-lIIIi)Oi).01-l 

C 0177I000U2 
C 01771000210 

C fl.UIJ.O_QjQlli. 

C 01771000313 



PRT(1215) • E0F2 



SAVETlMES(2)» % SAVE TlMpS FOR START OF XREF PRINT. % 

ENDI % 

IF NOT 82 THEN % 

IF 8 Then % end Of sort - list out rest or seQ, no, % 

IF xrefpt # Then % we got some to list out % 

BEGIN X 

WRlTE(LlNEtDBL3.15»PAY[*])l J! 

LINECOUNT «a LINECOUNT + \l % 

END % 

ELSE % NOTHING TO LIST OUT % 

ELSE % NOT END OF SoRT % 

IF NOT MATCH(LASTADDRESS»AtO]) AND A t 0] ,REF I DNOF # A 

AcOl.REnONOF > XReE AY 1 [8 ] , I DNOF THEN % 

IF AtOJ.TYPERFF « FORWAKDREF THEN % % 

WAITINGFORFWDREF l» TRUE X 

ELSE % 

IF ATOJ.TYPeReF « LBLREF THEN % % 

BEGIN % 

L8LT0G «■ TRUE* X 

FWOSEQNO I« A[0].SEQN0F; X 

END % 

ELSE X 

IF ACOJ.TyPeREF » DECLREF THEN X 

IF waitiNrforfwdref Then % this must be it % 

BEGIN X 

WAITINGFORFWDREF «• FALSEI X 

FWDTOg »« TRUEI X 

FWDSEONO :a A[O].SE«N0fJ X 

END X 

ELSE X ITS A NORMAL DECLARATION • NOT FORwARDX 

BEGIN X 

IF AC03.REFI0NOF > XREFAYl [63 . I DNOF ThEN X 

DO X 

RFAD(DSK1.10»XREFAYH*3) [E0F21 X 



unt 

A 
IF At 

GO 
IF XR 
BEGl 
IF 

W 

ELS 

W 

LiN 

END 
ELSf 

IF 

W 

xrefp 

BLANK 
SETU 

SE 

FWD 
XRE 
CID 



IL 

to J, RE 

03» RE 

TO SKI 

EFPT > 

N 

SINGLT 

RITECL 

t 

RITE(L 

FCOUNT 



NOT SI 
RITECL 
T «B 
ET(PAY 
PHEADI 
6N0F#A 
SEfiNO. 
FAY1[9 
MAX + 



FIDNOF < XREFAYU83,IDNOFI 
FIDNOF < XREFAYlt8],lDN0F THEN 

p; 

THEN X THERE IS STUFF TO PR 

OG Then 

lNE»l5.PAYt*3) 

lNEC0BL3tl5.PAYt*3)> 
«■ LINECOUNT + n 



NGLT06 THEN 

INE)! 

I 

t*3)l 

N6(XREFAYU*J»PAYf*3iXR|;FAYlt8 

t 03. SEQNOF. FWDTOG. LBLTOG* 

lOTYPEtCIF CI «« 

3. CLASS) a FIELDID THEN 

I - FIELDID ♦ 1) ELSE 



6* 


17091180 C 


01771000411 




6- 


17091200 P 


01771000513 




6- 


17091210 P 


01771000513 




6- 


17091300 C 


0177I0006JI 




6"^ 


17091400 C 


01771000712 


— 


6- 


17091500 C 


01771000811 




6- 


17091510 C 


01771000912 




6- 1 


17091520 C 


01 77 100 1 313 




6- 


17091530 C 


Ol77l00i7l3 




6- 


17091600 C 


01771001713 




69 1 


17091700 C 


01771004713 






17091800 C 


0l77»00l8t0 




6- 


17091900 C 


01771002210 




6- ] 


17Q920Q0 P 


01771002411 




6- 


17092100 C 


0177I0026JI 




6- ] 


17092200 C 


01771002713 




6" 


17092300 C 


0177I0028JO 




6* 


17092400 C 


01771003010 




6- 


17092500 C 


01771003011 




6- 


17092600 C 


Q177J003JJ3 




6- ] 


17092700 C 


01771003313 




6- 


L7092800 C 


01771003313 




6- ' 1 


17092900 C 


01771001313 




6- ] 


17093000 P 


01771003513 




6- 1 


17093100 C 


01771003611 




6* 1 


17093200 C 


01771003712 




6- 1 


17093300 C 


01771003810 




6- ] 


17093400 C 


0177»0039I2 




6- 1 


1^093500 C 


0177*0040 11 




6- ] 


[7093600 C 


0177I0040U 




6- J 


17093700 C 


01771004011 




6- 1 


17093B50 C 


01 7710041! 2 




6- ] 


[7093900 C 


01771004313 




6- ] 


[7093950 C 


01771004410 




6- 3 


[7094000 P 


01771004810 




6- J 


17094050 C 


01771004912 




6- j 


17094100 P 


017710052I.Q 




6- 3 


[7094150 C 


01771005410 






[7094200 C 


01771005411 




6- 


[7Q9424Q C 


Ol77lQOS5i3 




6" ] 


[7094250 C 


0l77t005«»0 




6- j 


17094300 C 


0l77l0056»l 




6* , , 3 


[ 7Q943S0 C 


01771006010 




6* 3 


[7094400 C 


01771006113 




6- 1 


17094410 C 


01771006611 




6- 3 


L7094A2Q C 


017710.07011- 


_ 


6- 3 


[7094450 C 


01771007011 




6* 3 


[7094500 C 


0177I0070U 




6- 3 


[7094550 C 


04771-007210 




6- 3 


[7094600 C 


01771007611 




6- 3 


[7094650 C 


01771007713 






[7094700 C 


417X4M7W-2-- 




6- 


[7094800 C 


01771008011 




6- 3 


[7094900 C 


01771008313 




f- i 


[7095000 P 


04771O0AU41 


.. ., .,- 


/• 3 


[7095100 P 


01771008610 





IF I > IDMAX THfN ElSE I) «< 
RfALCI i BOOID AND XREFAY1I9] 
RFALCCI > BOOID OR J » LOCLID 
(XRFFAYlt93,[9tl]))» XREFAYH 
FWOTOg »* LBLTOG J » FAUSE^ 
WRlTE(LINF.15»PAYt*]); 
LlNpCOUNT r« LINECOUNT + II 
BLANKfT(PaY[*J)I 
END 
ELSE % iT MUST BE A NORMAL REFERENC 
IF AtOJ.SEQNOF * LASTADORESS,SEQN 
BEGIN 

AOOASEONOCACOJ.SEQNOFfXREFPT* 

PAYt»3); 
IF (XREFPT »« XREFPT + 1) ■ 1 

bfgin 
write(line.15,payc*3); 

LINECOUNT !■ LINECOUNT + 1 
XREFPT J« 0; 

blanket(PaY[«]); 

END 
END 
ELSE I REFERENCE TO SAME SEQ. NO, 
ELSE % THIS IS A REFERENCE TO THE SAME SEQ. 
ELSE % HIT END OF IDENTIFIER FILE ' JUST SKIP 
E0F2> B2 I* true; % SO SORT CAN GO TO NORMAL 
IF NOT B THEN SKiPi LaSTADDRESS Ib AtOJ; 

fnd of outputs; 



4]* X116- 
.t9l2] « 1), 
) AND ROOLEAN 

9],cioin)i 

«U6- 

i:ii6- 

X116- 
E X116- 

OF then X116* 

X116- 
AtO],C5lll^ 

X116- 
1 THEN IFULL 

1116- 



Xll6«r 

* xn6« 

X116- 
X116- 
1 1 1 d" 
X116- 

SKIP IT X116- 

NO, - SKIP 
VER REFERENCES 

EOJ X116- 
X116- 
1116- 



177 IS 



17095200 P 
17095300 C 
17095310 C 
17095320 C 
17095400 c 
17095500 C 
17095510 C 
17095550 C 
17095600 C 
17095700 C 
17095750 C 
17095800 C 
17095900 C 
17 096 000 C 
17096100 C 
17096200 C 
17096300 C 
17096350 C 
17096400 C 
17096450 C 
17096500 C 
17096550 C 
17096575 C 
17096600 C 
17096700 C 
17096800 C 
17096850 C 
17096900 C 
141 LONG* 



01771008811 
01771009210 
01771009411 
01771009610 
01771009912 
01771010011 
01771010512 
0l77t0ia9l2 
01771011011 
01771011011 
0177101 10 t I 
0177I0U3I3 
01771011410 
01771011611 
0l77?0li7l3 
01771011913 
01 77 1 01 2-0 iO 
01771012411 
01771012811 
01771012912 
0177I0130J1 
01771013011 

01771013011 
01771013011 

01771013112 
01771013113 
0177»0134I0 
01771013610 
NEXT SEG 172 



PRT(1216) * HV2 



PROCEDURE HV2(A); 



XDFB 



ARRAY AtO]; xppg 

At03 U 3''777777777777777^; % BIGGEST FLOATING PT, NO. fll6- 



17112000 T 0172»0053I2 

17113000 T 01721005312 
17114000 P 01721005312 



PRT(1217) M C0MP2 



BOOLEAN PROCEDURE C0MP2(A»fl); XDF8 

ARRAY A»B[OJ> jofg 

C0MP2 |« IF AtOJ.REFIDNOF < BE 03 , REF I DNOF THEN % DIF IDS 

TRUf X116- 

El-SE 1116- 

IF A[03,REFIDN0F » BtO3,REFI0N0r THEN X116- 

IF AC03,[H43 LSS Bt03,tll43 THEN X116- 

TRUE X116- 

ELSe X116"' 

IF At03,tl»4] « Bt03,[ll43 THEN X116- 

IF AtOiiSEONOF < BtOJ.SEQNOF THfN X116- 

TRUE 1116- 

ELSe X116- 

IF AtO],SEQNOF ■ BtOl.SEQNOF THCNX116- 

B00LEAN(A[03,[5I13) X1I6- 



17115000 T 01721005712 



17116000 
17117000 
17117100 
17117200 
17117300 
17U7400 
17117500 
17117600 
17117700 
17117702 
17117704 
17117706 
171 1 7701 
17117710 



01721 
01721 
01721 
01721 
01721 
01721 
01 72 J 
01721 
0l72f 
01721 
01721 
01721 
Q172I 
01721 



005712 
005712 
005912 
006.DI0 
0060U 
006211 
006511 
006610 
006611 
006912 
007113 
007211 
0073.12 
007512 



ELSE 
FALSE 
ELSE 
FALSE 

elsf 
false; 



X116- 
X116-' 
XU6- 
X116- 
X116- 

j;ii6- 



U7712 C 01721007611 

n77ia C 01721007712 

U7720 C 01721007713 

U7730 C 0172I0078JO 

117800 C 01721007810 

117900 C 01721007811 



PRT(1220) 



SAVETiMESf i)» % Save Times for start of references sort fn6* 

FiRSTTiME >w TRUEI I LeT OUTPUT PROCEDURE KNOW ABOUT FTRST CAU 

XREFPTj»29> REWIND(0SK2)» XDFB 

S0RT(0uTPUT2»INPUT2»0»hV2»C0MP2»1.6000)I XI t 6- 

UPDATETlMESt?); I UPDaTf TIMES FOR PRINTING CROSS REFERfNCEII 1 6» 

PRINTXReFSTATiSTICS) X116- 

FNDt XDFB 

♦SEGMENT DESCRIPTOR* 



ENOl 



PRT(122l) m *SE6MENT DESCRIPTOR* 



PRTti22?) ■ *SEGMENT DESCRIPTOR* 

END" 

PRT(7i«) s pXP INTRINSIC. SEGMENT N 
PRT(7i3) 8 LN INTRINSIC, SEGMENT NU 
PRTC445) • OUTPUT(W) INtRiNSK* SEG 
PRT(5) m BLOCK CONTROL INTRINSIC* S 
PRT(463'') w tNPUT(W) INTRINSIC. SEGM 
PRT(l}67) m SORT INTRINSIC. SEGMENT 
PRT{7i5) K X TO THE I INTRINSIC, Se 
PRT(503) « GO TO SOLVER INTRINSIC, 
PRT(14) « AuGOL WRITE INTRINSIC 

PRT(i5) « Algol read intrinsic 

PRT(16) • ALGOL SELECT INTRINSIC 
PRTC1166) ■ MERGE INTRINSIC* SEGMEN 
PRT(526) « DYNAMIC DIALS INTRINSIC 
PRT(2A1) m FILE ATTRBUTS INTRINSIC 



XDFB 



END MAIN bLOCKI 



UDFB 



UMBER a 178. 
MBER « 179. 
MENT NUMBER « 
EGMENT NUMBER 
ENT NUMBER » 

NUMBER « 183. 
GMENT NUMBER » l84, 

SEGMENT NUMBER « l65, 
SEGMENT NUMBER « 
SEGMENT NUMBER • 
SEGMENT NUMBER * 
T NUMBER « 189, 

SEGMENT NUMBER » 

SEGMENT NUMBER » 



180. 
B 181, 
182. 



186, 
187. 
188, 



190, 
191, 



17117910 
17117920 
17U8000 
17119000 
17119100 
17119200 
17120000 



172 IS 116 LONG» 
17121000 T 

167 IS 36 LONG* 
17121500 T 

3 IS 992 LONG. 

17122000 T 

2 IS 59 LONG. 



01721008112 
01 72 1 00834 2 
01721008410 
01721008611 
01721010942 
01721011010 
01721011112 

NEXT SEG 167 
01671003210 

NEXT SEG 3 
0003(098810 

NEXT SEG 2 

000210056(0 
NEXT SEG 1 



NUMBER OF ERRORS DETECTED « 1. COMPILATION TiME * 532 SECONDS, 

PRT StZE » 6591 TOTAL SfGMeNT SfZE « 13?54 WORDS* OiSK SIZE * 720 SEGSI NO, PGM*. SEGS » 192 

ESTIMATED CORE STORAGE REQUIRED « 27332 WORDS^ 

ESTIMATED AUXILIARY MEMORY REQUIRED » WqRdS. 



1 IS 


2 LONG* NEXT SEG 





192 IS 


69 LONG. NEXT SEG 





1831000 







NUMBER oF CARD-IMAGES PROCESSED m i?712p 



BURROUGHS &*5700 ALGOL COMPILER MARK XVI, 0,12? FRIDAY, l0/07/77t 4114 PM. 

ALgOL /NUDISK 

SOURCE FILE: SYMBOL /ALGOL 

A — STREAM VARIABLE -- NAMF PARAMFTER -- DECLARED IN SEGMENT 3 AT 0l5616?0 
01561640 

A — STREAM VARIABLE -- NAMe PARAMETER -- DECLARED IN SEGMENT 3 AT 01733000 
01734000 

A -• STREAM VARIABLE -- NAMp PARAMETER -- DECLARED IN SEGMENT 3 AT 01735000 
01736200 

A •• STREAM VARIABLE -- NAMp PARAMETER — DECLARED IN SEGMENT 3 AT 02062500 

02063500 
A — STREAM VARIABLE — NAME PARAMETER -- DECuARED IN SEGMENT 15 AT 02238130 

02238150 
A — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 15 AT 02238i80 

02238200 
A — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SFGMENT 15 AT 02238212 

02338214 

A — REAL ARRAY -•• DECLARED IN SEGMENT 17 AT 02?64l00 

02265100 0?265i50 02265250 02265300 02265600 02265650 02265700 0?265750 02265850 02265900 02265950 
02266000 £coz>^vsj yjccoj dv 

A •• REAL ARRAY -" DECLARED IN SEGMENT ?9 AT 02927140 

02927680 0292^700 02927710 
A — REAL — VALUE PARAMETER — DECLARED iN SEGMENT 3 AT 03047000 
A — REAL •• VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 03049000 

A -- INTEGER -• VALUE PARAMETER -- DECLaReD IN SEGMENT 3 AT 03050000 

A -• tNTEQER — VALUE PARaMeTER -- DECLaRfD IN SEGMENT 3 AT 04311000 

04311050 04311060 04314000 *043l5000* 
A •• REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04500000 

04529000 04534000 04542000 04546000 04550000 04551000 04556000 

A ••• INTEGER •• VALUE PaRaMeTER "• DECI-aReD IN SEGMeNt 3 AT 04609000 

04614000 04616000 

A •- REAL — DECLARED IN SEGMENT 47 AT 05l30000 

(KOSmOOO* 05132000 
A •• REAL •• OECLARfO IN SEGMENT 62 AT 06282400 

06285800 ♦06286800* 06287200 *06287800* 06288000 
A -• REAL •• VALUE PARAMETER -- DECLARED IN SEGMENT 62 AT 06283000 

06283400 06283600 
A — REAL ARRAY -- NAMF PaRaMETER -" DEcLaRED IN SEGMENT 83 AT 07657000 

076640DO 07666500 07673000 07673500 07675000 07677500 
A — DEFINE — DECUaRFO IN SEGMeNT 89 aT 08015000 

08181000 08188000 
A — REAL •* VALUE PARAMETER •- DECLARED iN SEGMENT 89 AT 06020000 

08021000 O6O211OO O6O212OO 
A — REAL •- Name PaRAMFTER •- DECLARED IN SEGMENT 89 AT 08027000 

*0a03500O**OaO37000t 
A — INTEGER — DECLARED IN SEGMENT IO3 AT 08930000 

♦08955000* 08957000 089/0000 0897/000 08980000 08985000 08993500 
A •• REAL — DECLARED IN SEGMENT 137 AT 13359000 
♦13364000^ 13365000 13366O00 



A 

A •• 

A -• 

A -• 

A -• 

A "• 

f^ «■> 

/^ ••* 
A — 

fl^ Of* 

A *• 

AAW • 
AC - 
ACC ' 
ACCUM 



••• REAL -" or 
♦13908000* 1 

— REAL ARRAY 
17006000 1 

-• REAL ARRAY 

17016000 1 

— STREAM VARIA 
17031000 1 

— STREAM VARIA 
17038000 1 

— REAL ARRAY 
170/12100 1 

•- REAL ARRAY 

17042400 I 

•• REAL ARRAY 

17070000 *l 

— REAL ARRAY 
17087000 1 
17094100 1 

REAL ARRAY 

17112000 ♦I 
REAL ARRAY 
17115000 1 

' REftL -- 
05381000 
STREAM VARI 
00512300 

■ STREAM VAR 
12156000 1 

-• ALPHA AR 

020i3l60 *0 

♦02013390* 



*0 









1 
1 
1 
1 
V 



CLARrO IN SEgMEMT H2 AT 13903100 
3911500 

•• NAME Parameter -" declared in segmtnt i70 at i7007ooo 

7010000 

— NAME PaRaMETfR — DEcLaRED IN SEGMfNT 170 AT 17019000 
7025000 17025100 17025300 ♦17025400* 17026000 

ble -- naMf Parameter -- declared in segment 170 at 17029000 

7033400 

BLE — namf Parameter — declared in segment i7o at i703600o 

7040000 

— NAME PARAMETER "" DECLaRED IN SEGMfNT 170 AT 17042200 
7042300 17042350 

— NAME PARAMETER "- DECLaRED IN SEGMfNT 170 AT 17042500 
7042600 

-- NAMF PaRaMETFR "" DECLaRED IN SEGMfNT 172 AT 17071000 
7080000^ 

— NAME parameter — DECLARED IN SEGMENT 172 AT 17090000 

7091,15 17091800 I709i900 17092000 17092300 17092600 17092900 17093400 17093»50 17094050 

7094800 17095750 17095900 17096850 

— NAME PARAMETER "" DECLARED IN SEGMENT 172 AT 17113000 
7114000* 

— NAME Parameter -- decLaRed in segment i72 at i7ii6000 

7117000 17117300 17117400 l7li7700 17117702 I7ll7708 17117710 

VALUE PARAMETER -" DECLARED IN SEGMENT 3 AT 05380000 

5382000 06061000 

ABLE -- NAME PaRaMeTER -- DECLARED IN SEGMENT 2 AT 00512100 -• OCCURS AT 06067000 



ACCUM 

ACCUM 

ACCUM 

ACCUM 

ACCUM 

ACCUM 1 

ACCUMl 

ACCl 



02251000 
02602600 
02761500 
O2646OOO 
05325460 

084i60t2 
10269000 
13281000 
14259000 
16211300 

— STREAM 
02001833 

— STREAM 
02122500 

•" STREAM 
05028000 

•• STREAM 
10239000 

— STREAM 
I3OO8OOO 
•" DEFINE 
066,9080 
•• REAL • 

♦13088030* 1 
'• STREAM Va 



IABLf ' 

2160000 

RAY -- 

2013,95* 

2013410 

2255000 

2647000* 

2761501 

2865000 

7673500 

8450010 

0274000 

3282000 

4259080 

6213000 

aRiarLf 



NaMe parameter -- DECLARED iN SEGMENT 130 AT 12154000 



declarfp 

*020i3200 
*020l3420 
02259000 
02650000 
02770000 
02873000 
07676000 

086i9080 

*l0573000 

*13307000 

♦14259090 

16384900 

-- NaMf 



IN SEGMENT 

* 02013205 

* 02013425 
*02327000* 

02652000 
02772000 
O2881OO0 
07677000 
08621002 
**j2l6i500* 
♦*13308000* 

* 14260000 
16387000 

Parameter 



3 at 013 
020i32lO 
02126500 
02366100 
02697500 
02774000 

♦02934000 
07677500 
08624002 
12162000 

♦13309000 
14269280 
16392000 
-- DECL 



04000 

*020i 

♦ 0223 

*0237 

0269 

0277 

* O294 
0838 
0862 
1216 

* 1331 
1444 



3290* 

8340* 

1000* 

7600 

6300 

2000 

9000 

9002 
4000 
0000 
0000 



02013295 
02238385 

*02499000* 
02698000 
02776400 

*02948000* 
08390500 
08658010 
13080000 
13310075 
14441000 



*02013330 
*0223e390 
02502000 
*02700000 
02777000 
02952000 
08412010 
06812100 
13088030 
13310080 
14507040 



♦♦020i 
♦♦D223 

0258 
* 0270 

0277 

♦ 0295 
0841 

I0l4 
1308 

♦ 1337 
1450 



3335* 

8420^ 

1000 

3050 

7050 

8500^ 

2020 

1000 

8060 

2000* 

7105 



02013360 
02238440 

*02590000* 
02705000 
02781000 

*05043000* 
08413012 

♦101 67300* 
13091000 
13908000 
14507170 



♦020l3365^ 
*022a85Qfl* 
02592000 
02754000 
02822Q00 
05044000 
08414012 

10264750 

13095000 

♦139ll500^ 

16211100 



ARED IN SEGMENT 3 AT 02001831 



VARIABLE 



Namf paramfter 



DECLARED IN SEGMENT 10 AT 02089500 



ARiARLE -- NAME PARAMETER " DECLARED IN SEGMENT 45 AT 05016000 
ARlApLF -- NAME PaRAMfTER -• DECLARED IN SEGMENT 121 AT 10236000 



VARIABLE 



NAME PARAMETER " DECLARED IN SEGMENT 131 AT ,3005000 



• DECLARED IN SEGMENT 97 AT 0B560000 
8619090 086,9095 08620000 086?l000 O8621O1O 08621020 
• DECLARED IN SEGMENT 131 AT 13039500 

3088035 13088040 13068050 *13068060* 13088070 13088075 13088082 
RIABIE — NAMF PARAMETER -- DECLARED IN SEGMENT 3 AT 02001020 



aclass — 



ACTUAL.P 
AO •- 

ADO •" 

ADD 

addasfQ 

AODC 
AODCON 
ADDER 
ADDITIO 

aodop 

ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
AOPRES 

addres 

ADDRESS 



ADDRESS 
ADDRESS 
ADDRESS 



0200U30 
INTCG 
♦07079000* 
♦07122540* 
♦07324000* 

aRaPaRT - 

07385000 
STRfaM VA 
02013065 

DEFINE 
05226000 

06653210 
RCaU -- 
«1324e000» 
NO •- ST 

17095900 

• DEFINE 
13490000 

" REAL 
♦13490000* 

— STREAM 
02013140 

NAL. " D 
07601000 

•• DEFINE 
16326000 

" ReAU - 

*16072000* 

- Real - 

*16196000* 

• INTEGER 
*16321000* 

- INTEGER 
*16371000* 

• RfAL - 
*16408000* 

" intfg 

*05l40000* 

•- OWN R 

*06055000* 

— DEFI 
O285OOOO 
O6O16OOO 
07319000 
08489550 
08992000 
IO835OOO 
13086000 
14100000 
15097000 
16204000 
16435000 

" INTE 
04018000 

— INTE 
04023000 

-• INTF 



eR •• 

07099000 
*07145000 
*07330000 
•• PROrED 

07410000 
R I ABLE - 

02013100 
•- DErUA 

O6O16OOO 

08953000 

OECLaRE 

13250000 

Rfam PROc 



FCLaRfO IN SEGMENT 70 AT 07050000 

07100000 07105000 #07106000* 07107000 «07l09000**07 1 H 240* 
**07155000**07192000* 07204000 07215000 07216000 07217000 
♦*07343000**07 355000**07377000**07381000* 
URE •• DECLARED IN SEGMENT 3 AT 07045000 

07454000 
VALUE PARAMETER *- DFCLaRED IN SEGMfNT 3 AT 02013060 



07111260 *07111285* 07122500 
07217500 07229000 ♦073l8000* 



RED IN Segment 3 at 01633000 

06062560 06377000 07366000 07625000 08126000 
10961000 13545000 13758000 14565000 15273300 

D IN SEGMfNT 134 aT 13221000 
13252000 *13259000>t< 13261000 

FOURE -- DPCLaRfD in SEGMfNT 172 AT 17051400 



08214000 08415010 08653110 08653140 



-- DECLARED TN SEGMENT 3 AT 13212000 

13530000 13577000 

-• DFCLARED IN SEGMENT 138 AT 13451000 
♦13492000* 13494000 U530000 #1 3577000»*1 3579000* 

PROCEDURE — DECLARED IN SEGMENT 3 AT 02013060 

02013713 02201000 
EFINE -- DECLARED IN SEGMENT 79 AT 07595000 

07603000 07610000 07614000 07622000 07627000 
•- DECLARED IN SEGMENT 157 aT 16005000 



13580000 



• DECLARED 
*16074000* 
- DECLARED 
♦16201000** 

•• DECLA 
♦16344000* 

"• DECLA 
*16376000** 

• DECLARED 
♦16412000** 

ER " DEC 

05143600 

EAL -- DF 
08067000 

NE — DEC 
02923000 
06062155 
07430000 
08692000 
09294000 
IO8680OO 
13110000 
14115000 
15107000 
16212600 



IN SEGMENT 159 AT I6O68OOO 
16077000 

IN SEGMENT 162 AT 
16204000^ 16209000 
RED IN SEGMENT I64 
16352000 

RED IN SEGMENT I65 
16378000* 16379500 

IN SEGMENT 166 AT 
16414000* 16415000 
LaRfD in SEGMENT 4 
05147000 

CLARED IN SEGMfNT 
08068000 08075000 
LAReD in SEGMENT 3 



16195000 
AT 16314000 

AT 16364000 

16383000 16384800 
16405000 

16417000 
8 AT 05138000 



16385000 16389000 



04508000 
06062350 
07463500 
08696520 
09296100 
IOB74OOO 
13205000 
14129000 
15224000 
16286000 



05131000 
06117000 
07521000 
08739000 
09311000 
12015000 
13248000 
14269520 
15267000 
16321000 



89 AT 0801 
08179000 
AT 011520 
05140000 
O612O1OO 
07663500 
08809000 
09313000 
12024000 
13259000 
14269540 
15344000 
16329000 



0000 

08212000 

00 

05175000 
06232000 
07926000 
08910000 
10277000 
I2O36OOO 
13476000 
14349000 
15352000 
16342000 



05187570 
06283600 
08021200 
J08915000 
10309000 
12047000 
13483000 
14399000 
15353000 
16344000 



05217000 
06286200 
08029000 
08917000 
10569000 
I2P6IOOO 
13517000 
14430000 
16072000 
16370000 



geR •- VALUE Parameter 

04019000 
GER — VALUE PARAMETER 
04024000 

GER -• VALUE Parameter 



'- DECLARED IN SEGMENT 3 AT 04017000 
■• DECLARED IN SEGMENT 3 AT 04022000 
■- DECLARED IN SEGMENT 3 AT 04030000 



05233000 
07122510 
080440.00 
08970000 
10598000 
120617.25 
13575000 
14437000 
16121000 
16376000 



05280000 
07122520 
080550.00 
08976000 
10796000 
12Q62600 
1408500O 
14454000 
16124000 
16408000 



05281000 

07306000 

OflAQtOOO 

08969000 

10826000 

12064500- 

14092000 

15094000 

16200000 

16412000 



ADDRESS 
ADDRESS 
ADDRESS 

aoors 

I 

ADDRSf 



04032000 0A033000 

PARAMfTFR "- DrCUAREf) IN SEGMENT 3 AT 05150000 
05153000 05155000 

LUE Parameter -- oeclaRed in segment 3 at 05199000 



040?a000 04029000 

•" REAL -- VALUE 
05148000 05149000 

"- INTEGER •- VA 
05201000 

-• REAL -• DECLARED IN SEGMENT 71 AT 07393000 
"0739/000* 07413000 

— tNTEGER •• DECLARED IN SEGMENT 7? aT 07429000 
»07430000* 07454000 



•w Real 

06404000 

07377000 

hl3345000« 



•- dfclaR 

07217510 
07380000 
13347500 



ED IN SEGMENT 3 AT OI6O4OOO 

07225000 *07255000* 07311000 *073 1 ?000**073l6000* 



AODVALUf 

adfs -• 

ADJUST 

ADOP " 
ADR -' 



•" INTEGER •" 
02193000 02234800 * 

offine -- dfclaR 

IO616OOO 10801000 
PROCEDURE 



04087000 
10800000 
16137000 

• dffinf 

06013000 
13474000 
rfaL •- 
»07646460* 



04144000 

10981000 

16156000 

•- DFCLaR 

06036000 

16326000 

OFCLaRfD 
07646510 



07397000 13054000 13068000 13081500 

13347520 13373000 *l39i3000* 13915000 

ECLaRED in SEGMENT 3 AT O1OOO86O 

02592000**09028920* 

ED fN SEGMENT 3 AT 01299000 

10978500 

ECLARED IN SEGMENT 

04172000 07111315 

10988000 10993000 



13196410 
14212000 



07335000 
13196560 
14313000 



07346000 07348000 07358000 

*! 3205000** 1334)000>^>i> 13344000* 

14320000 ♦14558000* 14601000 



3 AT 04083000 
07459000 07484100 
13605000 136l'l000 



07492100 
13630000 



07597000 
13/52000 



07646705 08190000 10365100 
14563000 14600000 16048000 



ADReS — tNTegeR — DECL 

*052t7000**0 52 19000* 
ADRES -• DEFINE -- nECLA 

079^6000 
AEXP -- PROCEDURE -• DEC 

0600/000 06062155 



ED IN SEGMENT 3 AT 01276000 
06226000 06286200 06286400 

IN SEGMENT 81 aT 0/646390 
0/646545 076465/0 0/646705 

aRed in Segment 5i aT 05215000 

05226000 0522/000 

RED IN SEGMENT 87 AT 0/922000 



0/668500 08029000 08031000 12013000 12022000 12060800 



060/3500 

06509000 

081 31000 

08613300 

10616000 

13148000 
AGAIN — LABEL 

02238360 
AGAIN -- LABEL 

023/7000 

02437500 

02513000 
AQAiN •• LABEL 

07/39000 
AGtN -« STREAM LABEL -- 

02001880 
AJUMP .- BOOLEAN »- DECL 

13603000 *i36i4000* 
AJUMPO •- BOOLEAN -•• DEC 

♦14054000* 14606000 
AKKUM — REAL •- DErLARE 

09361005 09418000 ♦ 
ALFA •- STREAM VARIABLE " 

0901/000 
ALFAARRaYID •• DEFINE -• 
ALFAin •" DEFINE -• DFCL 



060/3830 

07464/50 
08413040 
08621010 
10812000 
1315/010 

"- dfclaR 

02238460 

•• dfclaR 

02390000 
02460000 
02516000 

•• dfCLaR 



laRed in SE 

060(^2165 
06124000 
0/468000 
08414022 
08625000 
10836000 1 
13501000 1 
ED IN SEGME 
02238530 
ED IN SEGME 
02393000 
02470000 
025200OO 
ED iN SFGME 



GMENT 3 

60621/0 

6236000 

/4/0500 

8415010 

862/000 

2046000 

3524000 

NT 15 aT 

2238555 

NT 21 aT 

2395000 

24/2000 

2522000 

NT 85 AT 



AT 06002000 — FORWARD AT O3OO1OOO 
06062185 06062195 060/2040 060/2060 



06288600 
0/646430 
08416022 
O863OOOO 
12051000 
15099000 



06304000 

0/851000 
08418200 

08659000 
12054000 
152//000 



06319000 
0/903000 

08418300 

08918000 
12064400 
1530/000 



06326500 
0/90/000 
08451000 

08985000 
12064800 



02238120 -- OCCURS AT 02238330 

02360000 •- OCCURS AT 023/2000 

0239/000 02404000 02418000 024l9l20 

024/4000 02480000 02493000 02496000 

02564000 0256/000 025/4200 025//000 

07/16000 — OCCURS AT 0/728000 



060/2220 
06332100 
0/93/000 
08493/50 
08993000 
13088090 



02419200 
02501000 
02601000 



060/2240 
06416000 
08101000 
08519000 
08994060 
13088100 



02421000 
02506000 



060/2260 
06422000 
08123000 
08613200 
Q8995Q00 
13111000 



02431000 
02508000 



DECLARED IN SEGMENT 3 AT O2OO186O -- OCCURS AT 02001886 

ARED IN SEGMENT 3 At 01596000 

13626000 ♦13*29000* 14054000 ♦I4055l00^*l4606000* 

LAReD IN SEGMENT l43 AT 14034000 

D IN SEGMENT 3 AT 0i693000 
13644000* 

- naMf Parameter -- declared in segment i04 at 09010000 

DECLARED IN SEGMpNT 3 AT 01204000 

ARED IN Segment 3 at 01200000 



14139000 
ALFAPROcID "• DEFINE -- DFCLARfO IN SEGMENT 3 AT 01196000 
ALFASTRPROClD -- DEFINE -- DECLARED |N SErMeNT 3 AT 0ii92000 
AtFAV •• DEFINE -- DECLARED IN SEGMENT 3 aT 01284000 

130/5000 
ALL — REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 89 AT 08052000 

O8O54OOO 08055000 08056000 08057000 
ALLTHU *• LABEL -• DECLARED IN SEGMENT 39 AT 04168000 -- OCCURS AT 04186000 

04180000 
ALONG -- LABEL — DECLARED IN SEGMENT 22 aT 02325000 -- OCCURS AT 02358000 

02336000 02340000 02354000 
ALPHADEr — LABEL — DECLARED IN SEGMENT l43 AT 14013000 -^ OCCURS AT 14139000 

14018000 

ALPhASIZE — OEElNE -• DECLaRED 1N SEGMENT 3 AT 01707000 

15035000 
ALPhAWORDS — STREAM PROCEDURE •• DECLARED IN SEGMENT 17 AT 02264700 

. 02264900 02265600 02265850 
AMPERSAND — DEFINE -- DECLARED IN SEGMENT 3 AT 01270000 

06034000 O6I285OO 06170000 06267500 15349000 
ANdOP -• OEFINF " DECLARED IN SEGMENT 3 aT 01274000 

02964500 02971000 02983500 06175000 06193000 
ANOTHfR -- LaBfL •• DECLARED IN SEGMENT 69 aT 07007000 -- OCCURS AT 07009000 

07012000 07015000 07024000 
ANOTHER •- LABfL •-- DFCLAREO |N SEGMENT 70 AT 07065000 •- OCCURS AT 07079000 

07237000 
ARC — BOOLEAfel -- DECLARED IN SEGMENT 97 aT 08591600 

♦08597450* O86111OO 08658100 08698000 
ARGH •- LABEL -- DECLARED IN SEGMENT 27 AT 02638000 — OCCURS AT 02649000 

02696000 02718000 02753000 02899000 
ARITHCOMP — PROCEDURE — DECLARED |N SEGMENT 3 AT 06041000 — FORWARD AT 03004000 

O6O36OOO 06052000 06055000 
ARITHSEC — PROCEPURE -- DECLARED IN SEGMpNT 3 AT 06011000 •»- FORWARQ AT 03002000 

06006000 06023000 
ARPROgS — REAL -• nECLARED IN SEGMENT 138 aT 13449000 

*13479000**13509000* 13529000 
ARRae •• PROCEDURE •• DECLARED IN SEGMENT 3 AT 13376000 

14156000 
ARRAYCHECK -- BOOLEAN PROCEDURE — DECLARfO IN SEGMENT 3 AT 05380000 

♦05381000* 05392000 05399000 05405000 05406000 08943000 
ARRAYOEC •- LABEL -- DECLARED IN SEGMENT i43 AT 14015000 •- OCCURS AT 14156000 

14020000 
ARRAYfLaG — BOOLEAN •- DECLARED IN SEGMENT 3 AT O1OOO84O 

DB w«A..°*.*°°*°° O6IO35OO 06106100 06243100 06246i00 06249100 *13l06000**l 3l8l000**l 3452100**! 3588000* I38l94l0 
ARRaYMONFILf •• OEEINf -- DECLARED iN SEGMENT 3 AT 01526000 

15325000 
ARRAYV — define •- DECLARED IN SEGMENT 3 AT 01294000 
ASKiP — STREAM VARiAbLe " VALUE PaRAMeTfR — DECLARED iN SEGMENT 121 AT 10236000 

l0?37000 10239000 
ASSIGNOR — DEFINE -• DECLARED IN SEGMENT 3 AT 01269000 

07401000 07924000 08178000 08229000 08493680 12O28OOO 12O62OOO ijOSiOOO 13196380 13787000 I39ill00 

14219000 15090000 15113000 15300000 15342000 16316000 16367000 l^^lll"" 

ASSIGnREE -- DEFINE -- DECLARED IN SEGMENT 3 AT 01007500 

.07687600 07835500 08178x00 I509n00 I5ll6000 15301100 15342300 163185Q0 
ASSOP — BOOLEAN *• DECLARED IN SEGMENT 95 aT 08493500 

♦08493530^*08493680* 08493850 
ATSIGN •• Label — declared in segment 27 at 02537000 — occurs at 02683000 

02641000 



m 



ATTRIRUTEINOX -- REAL -- DECLARfD IN SCGMfNt 95 AT 06493490 

*OB493530**064936lO* 08493710 08493740 08493790 08493795 08493800 08493805 08493810 08493812 08493820 

08493830 08493840 08493880 
ATYPE •• DEFINE -• DECLARED IN SEGMENT 3 aT 01452000 

06005000 06092015 06143000 06239000 06304000 07111240 07145000 07204000 08493890 
AUXMEMERR — LABEL -- RFCLARED IN SEGMfNT 143 AT 14016000 '- OCCURS AT 14136100 

H0?1000 
AUXMEMRfO -- INTEGER •- DECLARED IN SEGMENT 3 AT OHUOlO 

09419000 *13645000* 
AUXMEMV -- DEFINE — DFCLaReD IN SEGMENT 3 AT 01298500 

13466000 13724000 
AWAY — Label — declared in segment ll at 02l9i000 -- OCCURS at 02196250 

02191250 02194250 02195250 

B — STREAM VARIABLE -- NaMe PARAMETER -• DECLARED IN SEGMENT 3 AT 01561620 

01561640 
B »• REAL -• VALUE PARAMETER -• DECLARED IN SEGMENT 3 AT 0l7l7000 
B — STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 3 AT 01735000 

01736200 
B — STREAM VARIABLE -- NAMf PARAMETER -- DECLARED IN SEGMENT 3 AT 02062500 

02063500 
B •- STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 15 AT 02238130 

02238160 
B — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 15 AT 02238180 

02238200 
B — STREAM VARIABLE -- NaMe PARAMETER -- DECLARED IN SEGMENT 15 AT 0223821? 

02238214 
B — BOOLEAN •- DECLARED IN SEGMENT 22 AT 0?323000 

•02343000* 02352000 0?353000 *02356000* 02357000 
B — BOOLEAN -- NAME PARAMETER -• DECLARED IN SEGMENT 3 AT 02955500 
B — BOOLEAN — DECLARED IN SEGMENT 33^ AT 02970000 

♦02970500* 02971000 02971500 
B — BOOLEAN -- DECLARED IN SEGMENT 34 AT 02973500 
♦02976000**0 2978000**0 29 78500* 02979000 

B "• roolfan — naMf Parameter -- declared in segment 3 at 029boooo 

•02983500* 02984000 02984500 

B — Real -- value parameter -• declared in segment 3 at 03047000 

B •- tNTEGER -- VALUE PARAMETER — DECLaRfD IN SEGMENT 3 AT 03050000 
3 -- REAL " VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04247000 

04248000 
B " TNTEGER -• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04311000 

04311070 04311080 04316000 *O43l7OO0* 
B -• REAL — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04500000 

04526100 04528000 04542000 04544000 04548000 04551000 04556000 
B — BOOLEAN — VALUE PARAMETER — DECLaREO IN SEGMENT 43 AT 04505000 

04503000 04507000 
B -- BOOLEAN -- DECLARED IN SEGMENT 57 AT 06059050 

06062280 *06062290* 06062435 *06062500* 
B •• OWN REAL — OEcLaRED IN SEGMENT 89 AT 08010000 

08044000 08047000 08089000 08112000 O8116OOO *08122000**08l69000* 0fll83000 08199000 *08209000* 08213000 

B '- rOOLfaN -- NaMf Parameter -- declared in segment 89 at 08027Q00 

*080 35000**08037000* 
B — bOOLfaN -- declared in segment 127 AT 12004100 

♦12034100* 12038000 
B "- rOOLfAN — DECLARED IN SEGMENT 128 AT 12060250 

•12062250* 12063300 

B — bOOLfan — Value paRaMfter -• decLaRed in segment i70 at 17018000 

17016000 17017000 17021000 



B — STRFaM variable -- NaMf PaRAMFTFR -' DECLARED IN SEGMENT 170 AT 17029000 

17032000 17033500 
B — REAL ARRAY -• NAMF PaRaMETFR "- DECLARED IN SEGMENT l70 AT 17042200 

17042100 17042300 17042350 
B •- BOOLEAN — VALUE PARAMETER -- DECLaReD IN SEGMENT 172 AT 17069000 

17087000 17088000 17091115 I709i300 17096850 
B — REAL ARRAY -- NAMf PaRaMETER "' DECLARED IN SEGMENT 172 AT 17116000 

I7n5000 17117000 l7ll7300 17117400 l7ij7700 17117702 l7ll7708 
BACK -- INTEGER •• DECLARED IN SEGMENT 75 AT 07491000 
♦07493000* 07495000 

BACK -t* rfal -• Value parameter -- declared in segment 90 at oeo840oo 

08082000 06083p00 08089000 

back — Label — decLaRfd in sfgment 120 at 10259000 -- occurs at 10263300 

10276500 10278000 10279000 
BACKFtX -- INTEGER "- DECLARED iN SEGMENT 9o AT 08091000 

*08097000**08099000**08106000* 08127000 *08i46000**08l47000* 08l57000 08168000 08171000 
BACKUP -- INTEGER -- DECLARED IN SEGMENT 36 AT 04046000 

•04052000**04056000* O4O68OOO 04074000 
BAf •" INTEGER PROCEDURE " DECLARED IN SfGMENT 3 AT 07458000 -• FORWARD AT 03046000 

07129000 07194000 07270000 07304000 •07459000* 10347000 
BANa — PROCEDURE •- OFCLaReD JN SEqMENT 3 AT 06419000 "- FORWARD AT 03048000 

05143000 06173000 05187600 05225000 06399000 06423000 07122500 07519000 08489000 08653110 08653140 

08653210 08693000 
BASeNuM -- INTEGER -• DECLARED iN SeGMeNT 3 AT 01000860 

02192500 *02581000**090?B920* 
BATMAN — REAL -- DfCLARED IN SEGMENT 3 AT OIOO16OO 

*02961500**02966500**02967000* 02968000 02978000 
BBC •- DEFINE — DECLARED IN SEGMENT 3 AT 0i634000 

07487000 06221000 13769000 
BBW •• DEFINE — DEcLaRFD IN SEQMeNT 3 AT 0i635000 

07111320 07495000 07523000 08047000 08078000 O8I66OOO O8168OOO 08923000 10997000 14571000 
BEF — Label -• declared in segment 126 at 10956000 -- occurs at 1097B000 

10964000 

befoRf "- boolean -- value parameter -- declared in Segment 3 at 10954100 

10954000 10954100 10964000 
BEGlNrTR -- INTEGER -" DECLARED IN SEGMENT 3 AT 01499000 

♦07008000**0 7021000* 07023000 ♦07024000** 140 35000** 1451 0000** 14520000* 
BEGlNPRfNT -• PROCEDURE -- DECLARED IN SEoMpNT 3 AT 02196510 

02196610 02910600 
BEGINSTaCK -• REAL ARRAY -- DECLARED IN SfGMENT 3 AT 01007600 

02196560 •02910300* 
BEGINV — DEFINE — DFCLARED IN SEGMENT 3 AT 01234000 

02910200 05108000 07646440 09252000 14393000 14479000 16221000 
BCNO •• DEFINE — OFCLaRED IN SEGMENT 3 AT 01001462 

02910600 
BENOBiT •- DEFINE — DFCLaReD iN SEGMENT 3 AT 0l00ll7l 

02419200 02910600 
BETAl -- LABEL -- DECLARED iN SEGMENT 138 AT 13452000 — OCCURS AT 13472000 

13567000 
8ETA2 -• LABEL -• DECLARED IN SEGMENT 138 AT 13452000 -- OCCURS AT 13566000 

13478000 
BEXP — PROCEDURE -- DECLARED IN SEGMENT 3 AT 06133000 -• FORWARD AT 03006000 

06120000 06305000 064l0000 07467000 07493000 06135000 06142000 08493750 15099000 15307000 
BFC •" DEFINE — DECLARED IN SEGMENT 3 AT 01636000 

06072090 06301000 07496000 07572000 07573000 07575000 07579000 07583000 07586000 08151000 10928000 

10971000 10994000 
BFW •- DEFINE -• DEtLaRED IN SfgMeNT 3 AT 01637000 



06307000 
07529g00 
08148000 
14046000 



07U13?5 
07572000 
06215000 
14558500 

PaRaMetfR 



07138000 
07566000 
08228000 
15037000 
-" DFrl-ARED 



042j8000 

075?9i00 

08146000 

13606000 
BIT -- INtFGFR 

02311000 
BIT •• DFFlNt 

16216000 
BUANKfT — STREAM PROrEDURE — DECIaRED IN 

01737500 02226750 02265100 02265250 

09034500 09300j50 
BLANKpT " STREAM PROrEDURE — DECLARED IN 

17053200 17083000 17094650 17095550 
BL.KAD -• tNTEGFR " DECLARED IN SEGMENT 143 



07201000 
07609700 
08918000 



07272000 
07646460 
08923000 



07311000 
07646730 
10350000 



07312000 
07646800 
10366000 



07509000 
07727080 
10994000 



07524000 
08125000 
13263000 



07526000 
08127000 
13274000 



IN SEGMfNt' 3 AT 02307000 



- decLareo in Segment 157 at 16O15000 



SEGMENT 3 
02265600 



AT 01737350 
02265700 02265850 



02265950 02927680 05264000 05325450 



♦14036000**14044000* 14045000 14555000 
BLOCK — procedure -- DECLARED IN SEGMENT 3 

07734000 07755000 09275000 14462000 
BLOcKcTR •• DEFINE •* DECLARED iN SeGMeNT 3 

08953000 08954000 13756000 13^61000 
BNS — DEFINE — DECLARED IN SEGMeNT 157 aT 
16036000 16122000 16124000 

" DFCLaRED in segment 161 AT 
16141000 

DECLARED IN SEGMENT 84 aT 



segment 172 AT 17052600 
17096450 
AT 14026000 
14575000 
AT 14001000 



14613000 15127000 
AT 01430000 
14542000 14545000 
16011000 



- FORWARD AT 03067000 



15376000 17121500 
14564100 14565000 



bnsfix 

800 • 



BOOcOMP 



BOOlD 



07670500 

DECLARED 
06062390 
07814000 
10805000 

DECLARED 
06193000 

DECLARED IN 



16118000 
07658500 



IN SEGMENT 

06073450 

07834000 

12062500 
IN SEGMENT 

06210000 

Segment i?2 



3 AT 01202000 
O6O9495O 07100000 
07939000 08401000 
12063000 12064200 
3 AT 06181000 -• 



07150000 

08457000 

13330550 

FORWARD AT 



07155000 
08597100 
13346000 
03010000 



AT 10292000 -- OccURS AT 10326000 



-- DECLARED IN SEGMENT 3 AT 01198000 
O29775OO 05398000 06062140 06062370 



08058000 
17095310 



10307000 10574000 10872000 



07111250 
12042000 



07111260 
12062500 



07111285 
12062700 



•• REAL 
*16121000* 

BOOLEAN 

♦07668500* 07669500 

BOOaRRAYID •- DEFINE "- 

05381000 06062140 

07464250 07684500 

10323000 10579000 

•" PROcEDliRE -- 
06175000 06176000 
BOOfiNISH — LABEL 
10323000 

- DEFINE - 
02967000 

O8O57OOO 

17095300 
BOOLCOMp -- PROCEDURE • 

02971000 02963000 
BOOLEaNdEC — LABEL -- 

14018000 
BOOLEXP — BOOLEAN PROCEDURE "- DECLARED IN SEGMENT 3 AT 029690Q0 -• 

02343000 *02971500* 02972000 02976000 
BOOLPRIM — BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 3 AT 02972500 — 

02970500 ♦02979000* 02979500 02982500 
BOOPRfM -- iNTfGeR PROCFDURe -• DECLARfD iN SEGMENT 3 AT 06213000 -- 

06153000 06173000 *06227520**06239000**0624 1000**06253000**06259000* 06271000 
BOOPROCTD •"- DEFINE -- DECLaRED IN SEGMeNj 3 AT 01194000 

05403000 06062370 07463000 0894i000 10654000 12062700 14295000 150i9000 
BOOSEC "- INTEGER PROCEDURE — DECLARED IN SEGMENT 3 AT 06150000 -- FORWARD AT 03 

06145000 *06153000* 06160000 06190000 

DEFINE — DECLARED iN SEGMENT 3 AT 01190000 

07089000 14285000 

" DECLARED IN SEGMENT 3 AT 01282000 



07192000 
08665000 
14095000 



07204000 
08728100 
15307000 



07292000 
10310000 



07146000 
12064200 



07192000 
14140000 



07377000 
15099&Q0 



DECLARED IN SEGMpNT 3 AT 02980000 — FORWARD AT 02955500 
02985000 
DECLARED IN SEGMENT 143 AT 14013000 -- OCCURS AT 14140000 



FORWARD AT 02065600 
02955000 



FORWARD AT 
FORWARD AT 



3011000 
*06274000^ 

15101000 
008000 



06278000 



boostrprocid -- 

07088000 
BOOV — DEFINE - 

06232000 
BRANCH •• INTEGER 

O3O36OOO 
BRANCH — INTEGER 



— VALUE PARAMETER -- DECLARED 
-- VALUE PARAMETER -- DECLARED 



IN SEGMENT 

IN Segment 



3 AT 03037000 
3 AT 04116000 



BRANCH 
BRANCH 
BRET 

bRNch 

BS -- 

BSD - 
BSPOIN 
BSS • 
BSX • 
BSXX 
BT •• 
BTYPE 

BUFFAC 
BUFFSi 

BUG - 

BUfiGER 

BUlLDl 

BgMPL. 

BUP • 

B2 -- 

B2D • 



04t 14000 

Type -• r 

030?3000 

Type -- r 

07535000 

- OWN REA 
♦08017800* 

•• Label 

06148000 

LabfL -- 

07111340 

07352000 

- DFFINE 
16417000 

T "- INTF 
02196580 

- DEFINE 
16415000 

• Label «- 

07377000 

■- Label 

07384000 

boolean 

♦13739000* 

«• DEFINE 
06133000 

07210000 

CUM -- IN 

ZE -- DEF 

01561020 

- FORMAT 
04279200 

-- ALPha 
04284300 

INE ■•• BO 
02236000 
♦09214985* 
— DEFINE 
04216000 
07585000 
03914000 

• iNtfgfR 

*13333000* 
«14364000* 
OWN BOOLE 
17091210 

- ALPHA PR 
04149000 
09301000 

REAL •- 

♦02682000* 

♦02801000* 

06315000 
stRfam VAR 

02238200 

REAL — 
REAL — 



04115000 *04|?0400* O^ippOOO 04123000 

EAL -• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03025000 

03024000 

EAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 07537000 

07536000 07540000 07544000 

L -- DECLARED IN SEGMENT 89 aT 08011000 

08017900 *06033000* 08034000 08035000 08046000 *08094000**08124000**081 80000*»08223000**08232000* 

-- otclaRed in Segment 90 at 08092000 -- occurs at 08152000 



DFCL^RFH in segment 70 at 07066000 -" 
07112000 07122540 07146000 07167000 
07359000 07368000 07369000 07382000 
- DErLARED IN SFGMeNT 157 aT 16021000 



OCCURS AT 07229000 
07174000 07i93000 



07217510 07251000 0726l000 07335000 



GER •- DECLARED IN 
♦029 10 300**029 10700* 

" dftLaRed IN Segment 



SEGMENT 3 AT 01007600 
157 aT 16020000 



- DECLARED IN SEGMENT 70 AT 0/066000 -- OCCURS AT 07382000 
"■• DErLARED IN SfqMeNT 70 AT 07066000 -- OCCURS AT 07381000 



•- DECLA 

13750000 

••" DEC 

06145000 

07211000 

TE6ER — 

INE -- 
01561030 

-- DErLA 
04280000 
PROCEnUR 
04286000 

OLEAN " 
02331050 

♦09252050 

-" DEC 

06297000 

07609500 
08918000 
•• orcL 

14073000 
♦14369000 
AN -• D 
♦17096800 

OCEDURe 
♦04248000 

10074000 
DECLARED 
*02688000 
♦02803000 

063215P0 
IABLe "- 



RED IN 
1375 

lARED 
0615 
0849 
DECL 

DECLAR 
0156 

RED IN 
0428 

E — 

♦ 0460 

DECL 

*0233 

**093l 

lared 

0630 
0764 
0892 

aRed I 

♦ 1407 

♦ 1450 

eclaRe 

* 

-'■ DE 

* 0427 



segm 

3000 

IN SE 

7000 

3890 

ARED 

ED IN 

1040 

SEGM 
4200 

DECL 
3000^ 

aRed 

1060^ 

4100* 

IN SE 

0000 

6780 

3000 

N SE6 

9000^ 

7010 

D IN 



ENT 140 AT 13736000 



GMENT 3 AT 
06173000 



01452000 
06190000 



06241000 06265000 06271000 06274000 07145000 072040Q0 



IN SEGMENT 3 AT 01583000 
SEGMENT 3 AT 01336000 



ENT 4 AT 
04285000 

aReo in s 

♦04605000 

IN SegMEN 

02525000 

♦09315100 

GMENT 3 A 

07111320 

07727070 

108P2000 

MeNT 3 AT 

♦14063000 

♦14507180 

SEGMENT 1 



01802000 

EgMeNT 3 AT 

* 04606000 
T 2 AT 0050 

♦02525008^ 

* 09399100 
T 01477000 

07459000 

08047000 

10971000 

01695000 ' 

* 14084000 
♦ 

77 AT 17091 



04600000 

4700 

♦02525013 
13653000 

07487000 
08078000 
10978000 



FORWARD AT 03100000 



**076466 35^^07646685^*0769 4500^^07699000^*09028100^ 
♦13777700^*13818600* 



07493000 07495000 07522000 
08106000 08146000 08168000 
10997000 1362800Q 13766000 



07540000 07577000 
08190000 08221000 
145700.00 150330DO 



♦14088000* 1409900O 141O4OOO 14109000 14116000 *l4ll8000^ 
110 



GLARED IN SEGMENT 3 AT 0424700O - 
9200 04280000 04281000 04284200 



- FORWARD AT 01717000 

04264400 04265000 04287000 



05264500 05376100 



IN SEGMENT 3 aT 01562000 

♦♦02701000^ 02705000 ♦02758000* 02761000 02767000 02771000 02776100 

♦♦02811000* 02827000 *02842000*^02845000^ 0^849000 02850000 ^02923000 

06330600 0^84000 ♦07670500* 07675000 08Q17800 06035000 . 0899404.0 

VALUE Parameter -- declared in segment i5 at 02238180 



*02777000**02789000^ 
* 06113000 06287800 
16384.900 



VALUE PARAMETER - 
VALUE PARAMETER - 



- DECLARED 

- DECLARED 



IN SEGMENT 3 AT O3O47OOO 
IN SEGMENT 3 AT 04203000 



04205000 0a?09000 04J?11000 *04216000* 04216000 
C -- BOOLEAN -- Value parameter -- declared in segment 62 AT 06283000 

06283400 
C -- REAL -- DECLARED IN SEGMENT 80 AT 07609200 

*0r609500# 07609700 
C -• REAL — DECLARED IN SEGMENT 82 AT 076'»6760 

•07646760* 07646800 
C — REAL " DECLARrD IN SEgMeNT 86 AT 07802000 

*07820000**07821200**07823000**07825000* 079ii000 
C — BOOLEAN -«- VALUE PaRaMfTeR -- DFCLaRfO IN SeGMeNT 89 AT 08020000 
O6O21OOO 

C — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 130 AT 12154000 

12157000 
CALL — PROCEDURE -• DECLARED IN SEGMENT fl9 AT 08072000 

08079000 06098000 08J08000 08130000 08217000 
CALLPRINTI — LABEL -- DECLARED IN SEGMENT l25 AT 10785000 -- OCCURS AT 10888000 

IO834OOO 10869000 10874000 

callstatement -- Label -- declared im segment 143 at i4oi70oo -- occurs at 14505000 

H132000 
CALLSNITCH -- PROCEDURE -- DECLARED IN SErMeNT 3 AT 05315000 

05316000 07526000 13263000 
CALLS •- DEFINE -" DECLARED IN SEGMENT I3l aT 13039400 

13153000 131570^0 13159000 
CARD. — FILE — DECLARED iN SEGMENT 3 aT 01557000 

02213750 02215500 022l6250 02220750 09407200 
CARD — STREAM VARIABLE -- VALUE PARAMETER •" DECLARED IN SEGMENT 3 AT 02188000 

02188500 
CARDCaLL — BOOLEAN .- DECLARED IN SEGMENT 3 AT 01561206 

02013536 *0 2229000**022 30750**02908000* 
CARDCOUNT — INTEGER -- DECLARED IN SEGMENT 2 AT 00504150 
♦02234500* 09419000 

CARDLaST •- LABEL •• DECLARfD fN SEGMENT i3 AT 02210000 -• OCCURS AT 02216000 

02210750 
CARONUMBER -- INTEGER -- DECLARED IN SEGMENT 2 AT 00504100 

*0221«260**02234POO* 0?236750 O28822OO 029i0300 07422100 075l6l00 076l9i00 10891100 13310580 14049300 

14576100 15011000 15085100 I527i000 15327000 15359000 15374000 
CAROOnLY — LABEL -- DECLARED IN SEGMENT l3 AT 02210000 -• OCCURS AT 02215250 

02210750 
CARDOPTION — LABEL •- DECLARED IN SEGMENT 21 AT 02363000 -- OCCURS AT 02429000 

02436000 
CASESTMT -- PROCEDURE — DECLARED IN SegMfNT 3 AT 07646100 -- FORWARD AT 03083000 

07646640 07825500 
CASTA -' FILE — OEtLaRED IN SEGMENT 3 AT 01561020 

01561050 
CASTS •* FILE — 'DECLARED IN SEGMENT 3 AT 0i56l030 

01561050 
CASTC -• FILE '•■' DErLARED IN SEGMENT 3 AT 0i56l040 

01561050 
CBUFF — REAL aRRAY — DECLaRED IN SEGMENT 3 AT 01561056 

020i36l7 02013621 02?l3750 02214000 02215500 02215750 02216250 O22165OO 02220750 02221000 07025010 

07029000 
CDC — DEFINE — DEtLaRED IN SeqMeNT 3 aT 01638000 

05186000 07116000 07249000 0896i000 IO854OOO 15227000 15356000 
CELL -- ST«EAM variable "- VALUE PARAMfTER "- DECLARED IN SEGMENT 54 AT 05325040 

05325050 05325130 05325150 05325180 *05325220* 05325330 05325350 05325360 05325380 05325390 05325400 

05325410 05325420 
CERR "- Label "- declared in segment 70 at 07067000 -- occurs at 07218000 

07118000 07127000 07165000 07175000 07226000 07233000 



11 



CHAR — 
CHAR 



CHARl 
CHrCK 



CHECK -' 



CF — DEFINE - 
17004710 

CHANGfSfQ -• ST 
02193250 
DFFINE 
H387000 

' rfau - 

10242000 

CHARCOUNT — OW 

10242000 

•- DEFINE 

07421000 

— boolfa 

*05294000* 
08475000 
06660000 
06842000 
10797000 
LABEL 
07667500 
ChECKBIT — DEF 
02225750 

CHtCKBOUNDLVL -- 
06100100 

checkdisjoint -- 

04617000 
CHECKER — PROG 
05120000 
07468250 
15085000 

CHFCKPRrSENcE '- 
05187000 

CHFCKtOr -- DEF 
02225750 

CHKACTIONLABELS 
08495000 

CHKCOMMa — LAB 
10577009 

CHKRTPAREN — L 
08613700 

CHKSEcOND — LA 
O661OOOO 
• «• PROCE 
14289000 

DEFINE 

060?i000 

13499000 

'• DEFINE 

01556200 

CIV — DEFINE 

CLASS •• DEFINE 
02702000 
02924000 
08057000 
13816000 
15102000 

CLCR — INTEGER 



- DECLARFD IN SEGMENT 167 AT 17002007 

17025100 17025300 17060000 
REAM PROCFDURF — DECLARED IN SEGMENT 3 AT 017412 

-• DECLARED IN SEGMENT 3 AT 01299000 



00 



- NaMf P 
10252000 

N INTEGER 

10250000 

-- DEC 

07515000 

N PROCFDU 
07082000 
08489580 
08673000 
08653000 
IO8280OO 
-" OfCL 



arameter 

10255000 
-- DECL 
10251000 
LARED IN S 
07618000 

RE — DF 

07064000 
08493650 
08683000 
08905000 
10855000 

aRed in sf 



DECLARED IN SEGMENT 120 AT 10234000 



ARED IN Segment 120 a 

*10256000**10261000* 

E6MENT 3 aT 01578000 

10690000 15010000 

CLaRED in SEGMENT 3 A 

08277000 08395000 

08503000 08516000 

08696550 08696500 

06924000 08966000 

10876000 10902000 

GHENT 84 AT 07659000 



T 10230000 
10285000 

15324000 

T 05287000 
08417010 
08520000 
08722000 
10570000 
10908000 
*- OCCURS 



Q8418700 
08593000 
08733000 
10600000 
10923000 



AT 07680000 



08427000 
08613600 
08749000 
10630000 
10935000 



06465000 
08614000 
08785000 
10666000 



06452000 08465000 

08633000 08639000 

08796000 08818000 

10674000 10792000 



INE -^ DECLARED iN SEGMENT 3 AT 01000920 
02496000 094t600l 

PROCEDURE — DECLARED IN SEGMENT 3 AT I38l9l00 
06103J00 06106100 06243100 06246100 06249100 

PROCEDURE -• DECLARED IN SEGMENT 3 AT 04609000 
13054000 13110000 13196410 13347520 
EDURE -- DECLARED IN SEGMENT 3 AT 05113000 
05139000 05168000 05187560 05216000 06062150 
07923000 08021100 08054000 09484500 08688500 

PROcirDURE -- DECLARED iN SeGMeNT 3 AT 05184000 

07115000 07469000 
INE -• DECLARED iN SEGMENT 3 AT Ol0012lO 

09416001 
-- LABEL -- DECLARED IN SEGMENT 92 AT 08380000 

06449000 08469000 08483000 
EL -- DECLARED IN SEGMENT i24 AT 10560000 -- OC 

10589000 10640000 10652000 10662000 
ABEL -- DECLARED IN SEGMENT 97 AT 08591100 »•- 



-- FORWARD AT 01000630 



06263600 06395000 07099500 
10308100 10568000 10795000 



07215500 
12044000 



07398000 
1206440Q 



-■^ OCCURS AT 08491000 
CURS AT 10666000 



CCURS AT 08637000 
BEL -- DECLARED iN SEGMENT 97 AT 08573000 — OCCURS AT 06643000 



chksob 
chs •• 

CHUNK 



DURE 
14296000 

— DECLA 

06283R00 

13767300 

-" DEC 

02927390 

"• DEcLA 
-• DEC 
02705i00 
02966500 
08732100 
14062000 
15307000 
•• DEC 



- DECLARED IN SEGMENT 3 AT 13209000 



RED IN Segment 

063?9600 06 
14569200 15 

LARED IN SEGME 
02927400 09 

RED IN SEGMENT 

LARED IN SEGME 
02761500 02 
02968000 04 
08795100 08 
14091000 14 
15316000 15 

LARED IN SEGME 



3 AT Oi 639000 
508000 06512100 07366000 
273300 

NT 3 aT 01556100 
418000 09419000 

3 AT 01236000 
NT 3 aT 01148000 
776200 02776600 02850000 
^09000 05381000 05390000 
860600 06660650 06860700 
094000 14116300 14259090 
333000 16211100 16212200 
NT 3 aT 01330000 



08189000 08219000 084i5020 08421000 i0359000 



02851000 
05396000 
08941000 
14425000 
17Q95Q00 



O2886OOO 02910200 02910400 02920000 

0539 800 0540 3000 07067000 0. J2920D0 

12125000 13201000 13226000 I33l0075 

14519000 15019000 15086000 15099000 



# 
m 



02218250 ♦02221000* 02220500 02224750 
■ OEClAREn IN SEGMENT 13 AT 02202750 



3 AT 12060000 -- FORWARD 



♦022l6500**02?l7750* 022l8000 

clcR "• RfaU -- NaMf Parameter 

02202500 02203500 02209000 
CUOSESTMT — PROcEDURr -- DECLARED IN SEGMENT 3 AT 08756000 

077A3000 08624000 
C1.0SEV — DEFINE "■• DECI.ARED IN SEGMENT 3 AT 01219000 
CLSMPmN — PROCEDURE -- DECLARED iN SEr.MENT 3 AT iSOOlOOO 

150^3000 15101000 
CLSS — INTEGER •- VALUE PARAMETER -- DECLARED IN SEGMENT 89 AT 08017500 

080i7600 
CMPD — REAL STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 01561620 

♦01561700* 01561710 022240fl0 02238690 
CMPLXSTmT -- PROCEDURE -- DECLARED IN SEGMENT 

07810100 12065^00 
CNT -• STREAM VARIABLE 

0200184a 
CNT •- STREAM VARIABLf -- VaLUE PARAMETER 

02001866 02001870 02001892 
COc — DEFINE -- OErLARFD IN SfqMeNT 3 AT 0i640000 

07634000 10650000 15095000 15306000 15344000 
CODE — FILE -- DECLARED iN SEGMENT 3 AT 01556200 

0l82850e 0?927530 02927540 02927570 

CODE "•■ STREAM VARIABLE -- VALUE PARAMETER 

04134000 
CODE -«■ REAL -- VALUE PaRaMeTER 

10086000 10087000 10097000 
CODE — INTEGER -*• DECLARED IN SEGMENT U9 AT 10106000 

♦ I0l?7200**l 0129000** Id 3 1000**101 37000* lOmOOO * 1 01 45000**1 Ol 50000 



FORWARD AT 03064000 



— VALUE PARAMETER -• DECLARED IN SEGMENT 3 AT 



DECLARED IN SEGMENT 3 AT 



AT 07777777 
02001838 

02001858 



15355000 

02927610 02927620 02927700 
-- DECLARED IN SEGMENT 3 AT 

DECLARED IN SEGMENT 119 AT 10088000 



02927740 07147000 
04130000 



09407100 



IN Segment 

09407020 



10154000 *10155C00**10155500* 
*10167000* 10167100 *10167200* 
COdEFiLf — DEFINE •• DECLARED IN 

02927420 02927640 09407020 
COdeFtLfBIT " DEFINE -• DECLARED 

02574200 02927420 02927640 

COL -• INTEGER -- DECLARED IN SEGMENT 55 AT 

♦05 35 3000**0 5 354000**05 359000**05 365000* 

COLON •- DEFINE -" DFCLARED IN SEGMENT 3 AT 

05276000 06315500 06320000 06322000 

13480000 13503000 14269480 

-• DfCLaRED in SEGMENT 27 aT 



10156000 *10157000* IOI6IOOO 
10168000 *10169000* 10171000 

Segment 3 at oiooi463 



* 10l50i00 10150225 
10163000 *10164000* 10165500 



10151000 *10153000* 
♦10165505* 10166000 



3 AT 01001172 



COLON 
COM »•- 



13088090 

■• LABEL 

02641000 

DEFINE 
06072260 
07806000 



05344000 
05367000 
01260000 
06329100 

16160000 
02637000 



07597000 08243000 08244000 08698200 08698300 10923000 
•• OCCURS AT 02663000 



- detLaRed in Segment 3 at oi64iooo 

06073000 06073350 06073600 06073700 
078i7000 O784OOOO 07856000 079iiO00 
COMCOUNT — STREAM VARIABLE — VALUE PARAMETER — 
02090500 02111500 O2I18OOO 

— DECLARED IN SEGMENT 3 aT 
06062135 06062165 06062i90 



O6O7363O 
09307000 
DECLARED IN 



07463500 07465500 07466750 0769i500 07693000 
14488500 14551000 
SEGMENT 10 aT 02069500 



COMMA 



•- DEFINE 
05385000 

07111255 07186000 07205000 

08150000 08153000 08412040 

08606000 O86133OO 08620010 

089)9000 08994000 08995000 

10666000 10674000 IO855OOO 

12033000 12052000 12O56OOO 

13162000 13168000 13196590 

14259110 14266000 14269840 
COMMAcHrCK •"• BOOLEAN PROCEDURE •' 

*05385000* 05387000 089i2000 



01261000 

06062210 06072050 06072220 

07237000 07468500 07470000 07680500 

06413130 08416000 08416200 08427000 

08622010 08628000 08639000 08660000 

10263700 10282000 10297000 10304000 

10863000 10892000 10926520 10931000 

I2O606OO 12062400 12064800 12065000 

13351000 13513000 13547000 13564000 

14269920 14356000 14404000 15254500 

DECLARED IN SEGMENT 3 AT Q5384000 

08915000 08917000 08972000 08983000 



06072240 
07833000 
06442000 
08683.000 
10319000 
10970000 
12125000 
13569000 
15287000 



06073810 
07905000 
08452000 
06733000 
IO356OOO 
10993000 
13071000 
13916000 
15293000 



06510Q0Q 
07938000 
08475000 
08796.000 
10592000 
I2O1OOOO 
1314500.0 
14182000 
15369400 



07095Qii0 
08145000 
06516000 
Q6a606J)Q 
10628000 
12020000 
l3.lJ9J)i)0 
14197000 



08987000 08990000 08993000 



COMMaNTS -- STR 
02097500 

COMMENTS •- STR 
02107500 

COMMENTV •- DEF 

02886000 
COMMON — LABEL 

07t?2000 
COMPAR — LABEL 

02216750 
COMPARE — REAL 
*02190000* 
COMPARECOOE — 

16209000 

complfTf — Lab 

02658000 

02877020 
COMPOST — LaBF 

02880000 
COMPOuNnTATL "• 

07033000 
COMPSl •- BOOLE 
*l7034000io 

coMPi •- poolea 

•170^2300* 
C0MP2 -" rOOLea 

*17117000* 
CONSTaNa -- BOO 
06285800 

constaNa -- Own 

08074000 

constaNb -- Own 

080/13000 

cOnstaNc -- Own 

08185000 

constaNtclean " 

04217000 
08^70000 

CONv — Rfal st 
02001833 

02592000 

CONVERT ••• Real 

*02260000* 

COP •- Real arr 

*025«>0000* 
COPYEOF — LABF 

02224030 
COPYLrB — Uabe 

02211000 
CORESZ •• REAL 

♦06994030* 
CORNER *- STRfA 

020 J 2000 

COUNT •• tNTeGE 

♦02013195* 

♦02238385* 

♦02499000* 



eam Label 



DECLARED IN SrGMENT 10 AT 02092000 '■- OCCURS AT 02105000 
OECLARED in SpRMENT 10 AT 02092000 -- OCCURS AT 02106500 



EAM LABEL - 

02108000 
INE •» DECLARED iN SEGMENT 3 AT 01253000 

02920000 08017900 O8O34OOO 
-- OECLAREO IN SEGMENT 70 AT 07066000 — OCCURS AT 07234000 

07221000 
"• DFCLARED IN SEGMENT 13 AT 02210500 -- OCCURS AT 02224250 

022l8«500 0?2l9500 02220500 02222750 02223500 02224010 

STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 02188000 

02190250 02203500 02226000 02232000 
DEFINE -- DECLARED IN SEGMfNt 162 AT 16192000 

16214000 
EL -- DECLARED IN SEGMENT 27 AT 02637000 -- OCCURS AT 02909000 

02667000 02680000 02705200 02715000 02757000 02777100 02782000 02852000 02870000 02877000 

02893000 02894000 
L — DECLARED IN SEGMENT 27 aT 02639000 -- OCCURS AT 02882000 

PROCEnURE -• ' DECLARED IN SEfiMENT 3 AT 07006000 

07756000 14412000 14512000 14524000 16489000 
AN STRfAM PROCEDURE "" DECLARED IN SEGMENT 170 AT 17029000 

17042300 
N PROCFDURE -- DECLARED IN SEGMENT 1^0 AT 17042100 
#17042350* 17045000 
N PROCEDURE •- DECLARED IN SfGMENT 172 AT 17115000 

17119000 
IEAN -- DECLARED IN SEGMENT 62 AT 06282600 
♦0^286$00* 06287200 06267800 06288000 

BOOLEAN -'• DECLARED IN SErMfNT 89 AT 08013000 

08099000 06181000 06188000 ♦062U000*^08224000+*O82270O0* 

BOOLEAN — DECLARED IN SEqMeNT 89 AT 08013000 

08112000 O8I16OOO *0ei2l000* 08183000 08194000 #08205000* 08213000 

BOOLEAN -- DFCLaBED IN SErMeNT 89 aT 08013000 

08195p00 *08204000* 08218000 
PROCFDURE "- DECLARED iN SEGMENT 3 AT 04163000 " FORWARD AT 03034000 

07111315 07138000 07312000 07459000 07496000 07510000 07585000 07609600 

08190000 10329000 10363000 10986000 13749000 13770000 14047000 14276500 
RFAH PROCEDURE •" DECLARED IN SEGMeNT 3 AT 02001831 

02001834 020i3360 O2O1341O 02214260 02234900 02251000 02255000 02259000 



07646790 
14559000 



07727075 
14572000 



0250?000 02581000 



PROCEDURE •* DECLARED IN SEGMENT 3 AT 02248000 

02758000 02796000 O28O3OOO 02823000 02944000 
AY -- OECLaRfD in SEGMENT 3 AT 013710QO 

04279200 04280000 
L •- DECLARED IN SEGMENT 13 aT 02210600 -• OCCURS AT 02224070 

022240'»0 
L. •- DECLARED IN SEGMENT 13 aT 02210600 -- OCCURS AT 02224020 

02224120 

■- DECLARED IN SEGMENT 3 AT 01597100 

08994040 *08994500* 09361182 
M VARIABLE -- VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 02011000 

R "- DECLARED IN SEGMENT 3 AT 01313000 

*020l3?00**020i3290#*020l3330**020l3335**020l3365**020l3390»*020l3420* 02128500 02129000 *02238340* 
*02238390#*02238420#*02239440**02238500* 02251000 02252000 ♦02327000*_ Q23662Q0 ♦02.3T1000* 02173000 
♦02590000**02602700**02647000**02691000* 02695000 02697500 ♦02698000**02699000* 02703000 02705000 



02705200 *02764000* 02767000 *02770000* 02772000 0277«000 ♦02776100* 02777050 02790000 02796000 02798000 

02803000 02810000 028l7000 02873000 02680000 OgSeiOOO ♦02889000**02934000* 02943000 *02948000**02958500* 

07672000 07673500 07676000 07677000 07677500 «10ia0000*«l0l67300»*l?l 65000* 13302000 13306000 ♦13911500* 

14259010 1/1507050 ♦14507100* 1450710$ ♦H5071 60*^16384800^ 16384900 16392000 
COUNT -• STRfAM VaRjArLf — VALUE PaRaMfTfR -- DECLaRfO T^ SeQMeNT 3 AT 0?06?500 

02064000 
COUNT -- STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 0?090000 

02!?1500 
COUNT -• STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 45 AT 05016000 

05017000 O5O28OOO 
COUNT -- STREAM VARIABLE -- DECLARED IN SEGMENT 3 AT 05238000 

*05240000* 
COUNT -• STREAM VARIABLE -- DECLARED IN SEGMENT 54 AT 05325070 

•05325150* 05325160 *053252l0* 05325320 053?5330 
COUNT — STREAM VARIArLE "• DECLARED IN SEGMENT 104 AT 09012000 

•09016000* 09018000 09019000 
COUNT — STREAM VARIArLf -- VALUE PaRAMeTfR -- DECLARED iN SEGMENT 121 AT 10236000 

10237000 10240000 
COUNT «.- tNTegeR •- DECLARED IN SEGMENT 121 AT i024l000 

*1024?000* 10245000 *l0247000* 10249000 10252000 10255000 10256000 
COUNTV " STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT 02089500 

02090500 02121000 02123500 
CPLUSl — DEFINE — DECLARED IN SEGMENT 3 AT 01713000 

15033000 
CPLUS2 — DEFINE '— DECLARED IN SEGMENT 3 AT 01714000 

15032000 
CReL — BOOLEAN -" DECLARED IN SEGMENT 39 AT 04167000 

♦04173000**04183000* 04187000 
CRr — DEFINE -- DECLARED IN SeGMeNT 157 aT 16O1OOOO 

16121000 16200000 16212600 16370000 16408000 
CROSSHATCH -- DEFINE — DECLARED IN SEGMENT 3 AT 01262000 

10279000 
CROSSHATCH -- LABEL -- DECLARED IN SEGMENT 27 AT 02640000 -- OCCURS AT 02714000 

02642000 
CROSSREFDUMP •- PROCEDURE -- DECLARED IN SEGMENT 3 AT 02001740 

02001830 13283500 14445100 
CROSSREFIT -- PROCEDURE -- DECLARED IN SEgMeNT 3 AT 02001640 

02001730 02682200 13310580 14469100 l5ll6000 15301100 15342300 

csz •• Label -• declared in segment ne at 13452000 -- occurs at 13527000 

13518000 

CT -• STRfaM variable -- VALUE PARAMETER •- DECLARED iN SEGMENT 2 AT 00512100 

00512300 
CTR •- INTEGER -•■ DECLARED IN SEGMENT 36 aT 04046000 

*04059000**04063000**0406 7000* 
CTR — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 119 AT 10100000 

lOlOlOOO 10103000 
CURRENT «•- INTEGER -- DECLARED iN SeGMeNT 131 AT 13039550 

*13U3000**13114000* 13184000 
D •• tNTFRER — VALUE PARAMfTER -- OECLaReD IN SEGMENT 3 AT 01717950 
D •• STREAM VARIABLE — NaMe PARAMETER -- DECLARED iN SEGMENT 7 AT 02001760 

02001775 02001780 
D — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT O2OO1838 

O2OO1842 
— STREAM VARIABLE -- NAME PARAMETER -* DECLARED IN SEGMENT 3 AT 02001858 

02001890 
D •• STREAM VARIABLE — NAME PARAMETER -- DECLARED IN SEGMENT 15 AT 02?38i80 

02238200 
D •• STREAM VARIABLE -- NAMp PARAMETER — DECLARED IN SEGMENT 17 AT 02264400 



i 

02?6'!t500 M 

— STREAM VARIABLE — NaMf PARAMETER — DECLARED IN SEGMENT 17 AT 02264700 
0226't800 

•- STREAM VARIABLE — NaMe PARAMETER -* DE<:LARED IN SEGMENT 29 AT 02927240 i 

02927260 02927290 
D — tNTegER -- DECLARED IN SEGMENT 39 AT 0/|i66000 

♦04175000# 04184000 H 

•• LABEL — DECLARED IN SEGMENT 61 AT 062?4000 — OCCURS AT 06239000 
06?77000 
D " REAL " DECLARED IN SEGMENT 158 AT I6O3IOOO 

♦16034000**16038000* I6O4OOOO 
" REAL " DECLARED fN SEGMENT 1J>9 AT 16067000 
♦16070000* 16079000 

— STREAM VARIABLE •- NAMr PARAMETER •- DECLARED iN SEGMENT 17? AT 17047200 

17047800 
D 









-- STREAM VARIABLE -- NAME PARAMETER -- DECLARED iN SEGMENT 172 AT l705i400 
1^051700 
STREAM VARIABLE — NAME PARAMETER — DECLARED IN SEGMENT 172 AT 1705?600 
17052800 17053000 



DA •• INTEGER "• DECLARED IN SEGMENT 3 AT 0i559020 

029?7390 *0?927ft00* 029274l0 0?927440 029?7460 *0?927740**0903l000**09407000**094070l0* 09418000 

DATE — STREAM VARIABLF " VALUE PARAMETER -- DECLARED IN SEGMENT 5 AT 01823000 

01825000 

DATER -- ALPHA STREAM PROCEDURE — DECLARED IN SEGMENT 5 AT 01823000 

01825000 01827000 01833000 
OATIMf -- PROCEDURE -- DECLARED IN SEGMENT 3 AT 01820000 

2i?^IS2!! ^Jl.'^l^^^ ?!i"^^° 02196590 02214200 02227250 02227500 0???8750 02264950 05039600 05265000 
053?5490 07025020 09302000 13633000 13648000 17091170 ^ ^u 3 jyo w u^^osuyw 

obudOlLaR ■»- Label -- declared in segment 27 at 02640ooo -- occurs at 02907000 

02642000 02730000 
DBLSTMT — procedure *- declared IN SEGMENT 3 AT 12002000 " FORWARD AT O3O6OOOO 

07746000 12059000 
DBV — DEFINE -- DEcLaRED IN SEGMENT 3 AT 01243000 

16417000 

DCR — Label -- declared in segment 73 at 07461750 -- occurs at 07466250 

07468000 
DCV — DEFINE -- OErLftRED IN SfgMfNT 3 AT 0i248000 

16209000 16338000 
DEBLANK — STREAM LABfL -- DECLARED IN SEfiMpNT 10 AT 02091500 -' OCCURS AT 02100000 

02094500 

DEBLANK — LABEL " DECLARED IN SEGMENT 3l AT 02933000 — OCCURS AT 02935000 
02948000 

DEBUG -• PROCEDURE -- DECLARED IN SEGMENT 3 AT 04?77000 

04297000 
DEBUGBIT -^ DEFINE -- DECLARED IN SEGMENT 3 AT 01000930 

02531000 02533000 02602500 04148000 04297000 05263000 10072000 
OEBUGDESC — STREAM PROCEDURE — DECl-AREP IN SEGMENT 3 AT 05237000 

05243500 05264500 
DEBUGTOfi -- DEFINE •- DECLARED IN SEGMENT 3 AT 01001220 

02533000 02602500 04148000 04297000 05263000 10072000 
OCBUGWORD — STREAM PROCEDURE — DECLARED IN SEGMENT 3 AT 04130000 

04149000 10074000 
DECKBtT — DEFINE •• DECLARED IN SEGMENT 3 AT Qt000940 

02474000 
DECKTOG — DEFINE — DECLARED IN SEGMENT 3 AT 0l00i230 
DECLARATORS *- DEFINE -- DECLARED IN SEGMfNT 3 AT 01214000 

07754000 08738000 08809000 10277000 14126000 14370000 14396000 1*480000 145i6000 16434000 



™ declRff -- orriNE: — nrrLARpD in segment 3 at 01007490 

IP 13310525 13310580 I43i0500 17092900 

^ DECUSW — SWITCH UABEL -- DECLARED iN SEGMENT 1/43 AT 14018000 

14134000 

DEFINfARRAY -- ALPHA ARRAY -• DECLARED IN SrQMENT 3 AT 0l49l000 

♦0220?030»*0??02040* 0?20?050 O22O2O6O 02212500 •022l7250**022l7500* 0?2l7750 022l8000 0?366l00 02602600 

02719000 02721000 *02900000**02902000* 02903000 
DEFlNpCTR — INTEGER -- DECLARED IN SEGMENT 3 AT 01481000 

02715000 02760000 *10262000** 10278000* 10280000 *10283000**10284000* 

oefinfdec — Label — declared in segment 143 at 14017000 -- occurs at 14254000 

140?1000 
DEFINeDID — DEFINE -- DECLARED IN SEGMENT 3 AT 01180000 

02894000 13310075 13339000 14259010 14259090 
DEFINeGfN — PROcEDURf " DECLARED IN SEGMENT 3 AT 10228000 

10286000 12124000 14266000 
DEFINfINDEX — INTEGER -" DECLARED IN SEGMENT 3 AT 01481000 

02212500 02718000 027i9000 *0272l000* 02898000 02900000 02902000 02903000 ♦02905000* 
OEFINfPaRaM -- PROCEDURE "- DECLARED IN SfGMENT 3 AT 12150000 — FORWARD AT 01717950 

10264810 12166000 14259085 
DCFINeV •■- DEFINE — DECLARED IN SEGMENT 3 aT 01298000 

10278000 
OEFINfO — ALPHA ARRAY -" DECLARED IN SEGMENT 3 AT 01481100 

10264760 14259080 
DEFINING — BOOLEAN -- DECLARED IN SEGMENT 3 AT 01007650 

*024l9ll0* 02910100 13283500 13310900 *l4255500**14268500* 14445100 17001000 
DEFSTaCKHEAD '- INTEGER -- DECLARED IN SEGMENT 3 AT 01481300 

02723500 02724000 ♦02726000* 02873000 12122000 ♦12123000* 
DEL -- DEFINE -- DECLARED IN SEGMENT 3 AT 01642000 

04066000 04079000 05186000 06072090 06072280 06073750 06073800 06073850 06335500 07463750 07465500 

07466750 07467000 07471250 O7641OOO 07691500 07693000 07807000 078t7000 O784OOOO O7856OQO 07857000 

07912000 07951000 12041140 12061800 

DEi-AY -- Label •- dfclaRed in segment 57 at 06O6O100 — occurs at 06072200 

06061100 
OESC -'• DEFINE -- DfCLaRED IN SEGMENT 89 aT O8O16OOO 

08098000 08108000 
DESCRP " STREAM VARIABLE " VALUE PARAMETER "•- DECLARED IN SEGMENT 3 AT 02013060 

02013065 02013078 
DEST *- STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 2 AT 00515000 

00519000 
DEST — STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 3 AT 01737000 

0i737l00 
DEST -- STREAM VARIABLE -- DECLARED IN SEGMENT 1O4 AT 09012000 

•090i7000^ 09019000 
DEXP — PROCEDURE — DECLARED IN SEGMENT 3 AT 06388000 — FORWARD AT O3O17OOO 

06253000 06305000 06408000 07374000 07528000 07925100 08243000 08245000 08493650 08698200 08698400 
10992000 
DIA — DEFINE -- DECLARED IN SegMeNT 3 AT O168OOOO 

04315000 04550000 

DIALA •• tNTEGFR *• DECLARED IN SEGMENT 3 AT 01502000 

»04085000^*04123000+^04 169000* 04 314000 ♦043l5000^^043l9000^^07484000++07492000*+07579000**08l00000^^08l0l000* 
♦ 08 152000**10293000*^ 1 036*000* 
DIALB -- INTEGER -• DECLARED IN SEGMENT 3 AT 01502000 

♦04085000^^04123000^+04 169000+ 04 316000 +04 31 7000++04 3l9000++07484000++07492000+^07579000**08 lOOOOO+^OBlO 1000+ 

_ ♦08l52000++l0293000t+10364000* 

DIALER •• DEFINE — DECLARED IN SEGMENT 3 AT 01579200 
06334500 06335200 

DIB — DEFINE — DEcLaRED IN SEGMeNT 3 AT O168IOOO 
04317000 



OlMcTR — DEFINE — DFCtAREO iN SEOMENJ 125 AT 10731000 

10808000 10623000 IO848OOO 
DINFO -• RiTAL -- OErLARFD IN SFGMeNT 120 AT 10259200 

*102'59600» 10264810 
DINFO •- tNTFGER — VALUE PARAMETER -- DEcUAReD IN SEGMENT 3 AT 12151000 

121'50000 12151000 12162000 12163000 
DINFO -" REAL -- DECLARED IN SEGMENT U7 aT 1*254100 

♦14259017* 14259085 14259150 14265930 14265950 14266000 
Die — DEFINE — DErLARED IN SEGMENT 3 AT 0j23/000 
OIR -• STREAM VARIABLE -" NaME PARAMETER -- DfCLARED IN SEGMENT 3 AT 02001020 

02001090 
DIRECTORY " REAL ARRaY -- DECLARED IN SEfiMpNT 3 AT 01561240 

02013235 02013250 *020i3255* 02013275 02013295 *020l 3505**020l356a**020l3570* 
DIVIDE '"• INTEGER PROCEDURE -- DECLARED IN SEGMENT 3 AT 10184000 -- FORWARD AT 0303 

10153000 10160000 10161500 10167900 *10192000* 
DK -• DEFINE -- DECLARED IN SEGMENT 2 aT 005H500 

00519000 0059inon 



2013665 
2000 



OU519000 00521000 
OMUP — PROCEDURE " DECLARED IN SEGMENT 3 aT IO68IOOO 

10919000 14155000 
DOITANYWAY -- LABEL -- DECLARED IN SEGMENT 149 aT 14273000 -'- OCCURS AT 14318000 

14308000 
DOLLAR •• BOOLEAN -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02013165 

02013185 
DOLLAR — LABEL -- nECLARED IN SEGMENT 27 AT 02639000 -' OCCURS AT 02729000 

02641000 
OOLLARCaRD -• PROCEDURE "" DECLARED IN SERMpNT 3 AT 023190C0 '- FORWARD AT 02065500 

02229000 02231000 02604000 0?730000 
D0LLART06 — BOOLFAN -- DECLARED IN SEGMENT 3 AT 01001540 

*02 366000**0 260 3000* 
D0LLAR2T06 — BOOLEAN -- DECLARED IN SEGMfNt 13 AT 022U250 
♦02230100* 02234600 *02234650* 

donemorf — Label -• declared in segment 95 at 08493510 -- occurs at 08493710 

08493550 
OONeSOMf --. Label -- DFCLaReD TN segment 95 at 064935l0 — occurs at 08493600 
084^3520 

dontscan — Label -- dfclaRfo in segment i5 at 02238120 — occurs at 02233342 

02238450 
DOSTMT — PROCEDURE — DECLARED iN SEGMENT 3 AT O7482OO0 

07488000 07749000 
DOT — DEFINE -- DECLARED IN SEGMENT 3 AT 0i84l000 

06l?7000 06266000 06277000 
DOT — LABEL -- DECLARED IN SEGMENT 27 AT ©2637000 -- OCCURS AT 

02641000 



07494000 06159000 08166000 
DPPOS — STREAM VARIABLE -- DECLARED IN SfGMENT 3 AT 0200l070 

*0200i090* 0200i?70 *0200l290**0?00i 490* 
DPTOG -- BOOLEAN — DECLARED IN SEGMENT 3 AT 01690000 

02253000 02784000 02^94000 02829000 »l20i2000**l 2016000* 
DSK •• STREAM VARIABLE — VALUE PARAMETER •• DECLARED IN SEGMENT 2 AT 00515000 

00516000 00519000 00521000 
DSKl -- FILE -- DECLARED iN SEGMENT 3 aT 01561085 



Bii 



DSK2 - 

DSS •• 

DSV -• 
DTYPE 

DUMMY 
DUMMY 

dumpdfc 

oumpe 

dumpep 

DUMPETE 

dumpinf 

DUMPUOC 

DUMPOR 

OUMPR 

DUMPV 

DWA — 

DYNaM 
01 — 

01 "• 

02 •- 
OZ -- 
E •• 
E -• 
E •• 
E •• 
E ""* 

E„ ,"" 
r •• 

EDITLtN 



02001821 1 

• FILE 
02001680 1 

PROCEDURE 
16398000 1 
DEFINE -- 
-■ DEFINE 

06253000 
-- DEFINE 

•- tNTfgeR 
•- labfl 

14019000 
•• DEFINE 

10883000 1 

•• DEFINE 

07622000 1 
MP -- DEFI 

10881000 1 
•- PROCE 

02266100 
— DEFINE 

10800000 1 

— DEFINE 

07627000 
— DEFINE 

IO93OOOO 

-• DEFINE 
14130000 
08728500 

INTEGER - 
•02265500* 

•"• DEFINE 

02723500 

REAL -- V 

10086000 1 

INTfGFR '" 
♦10)57000* 1 



7010000 

DECLARE 
7004000 

-• DEC 
6491000 

DEcl'AR 

-- DECL 

6263000 

-- DECL 

-• DEC 

•- DEC 



17013000 17 
D IN SEGMENT 

17076000 17 
LARED IN 5EGM 

ED IN SEGMENT 
ARED IN SEGME 
06305000 06 
ARED IN SEGME 
LARED IN SEGM 
LARED IN SECiM 



022100 170;?6000 17044000 17093950 

3 AT 01561087 

116000 

ENT 157 AT 16362000 



3 AT 01240000 
NT 3 AT 01452000 
407000 10327000 
NT 3 AT 01001470 
ENT 139 AT 13637100 
ENT 143 AT l40l4000 



— OCCURS AT 14149000 



-- DECLARED IN SEGME 
0916000 

-- DECLARED IN SEGM 
O881OOO i09i/j000 
NE — DECLARED IN S 
0883000 I09i4000 lO 
DURE •- DECLARED IN 
2468000 

-- DECLARED IN SEG 
0929000 

••• DFCLARED IN SEGM 



NT 125 AT 10750000 
ENT 3 AT 01547000 

EGmENT 125 AT 10727000 
9150O0 10916000 10927000 
SEGMENT 3 AT 02264000 



MENT 125 AT 10777000 
ENT 3 AT 01552000 
- DECLARED IN SEGMENT 125 AT 10771000 



Real *•- 

10086000 

INTfGER 

10160000 

PRQCEDMRE 
10576000 

LABEL "" 
04048000 

LABEL •• 
04100000 

REAL "" 
04526200 

REAL -• 

04503000 
LABEL -- 

07814500 
REAL •- 

16070000 
REAL — 

16069000 



V 
1 

J 

1 
D 





VA 


VA 

D 


VA 
1 

VA 
1 



-'■ DECLARED IN SEGME 
4O62OOO O4O63OOO 05 
8977000 IO812OOO 10 

- DFCLARED IN SEGMEN 
2265600 02265700 

" DECLARED IN SEGME 
2901000 

aLue Parameter — o 

0087000 10095000 

DErl-ARFO IN SEGMENT 
0160000 10167900 10 

aLue Parameter -• d 

0087000 10096000 

DECLARED IN SEGMENT 
0167900 10171000 

- DECLARED IN SEGMEN 
0582000 10656000 13 

eclaped in Segment 36 

4057000 

eclared 

4102000 

LUE PARAMETER — 
4530000 04536000 

LUE PARAMETER — 
4506000 04508000 

ECLARED IN Segment 



NT 3 AT 01287000 

186000 06069000 06072060 06329500 07468500 07469750 07470500 07859060 

961000 13509000 15095000 15306000 

T 17 AT 02264100 

NT 3 AT 01154100 

ECLARfD in segment 119 AT 10088000 



119 aT 10106000 
171000 
ECLARfD in segment 119 AT 10088000 

119 AT 10106000 

T 3 AT 13293000 -- FORWARD AT .03054000 
349000 13917000 14259096 14507140 
AT 04047000 -• OcCURS AT 04074000 

IN Segment 37 at 04O99000 -• Occurs at 04112000 



7816000 07832000 
LUE PARAMETER -- 
6072000 16074000 
LUE PARAMETER — 
6093000 
STREAM PROCEDURE -• 



claRed in Segment 3 at 04500000 

543000 04549000 04555000 

clahed in Segment 43 at 04504000 

509000* 04522000 

AT O78OIOOO »- occurs at 07906000 

07833000 07835000 07837000 07847000 

DECLARED IN SEfiMENT 157 AT 16065000 



DE 
04 

DE 

*04 

86 



DECLARED IN SEGMENT 157 AT 16085000 
DECLARED tN SEGMENT 3 AT 02183500 



EDOC 



CDOc 



02187000 0?l95000 021957S0 022U&00 02227500 02228750 
• RfaL array -- nECLAREO iN SEGMENT 3 AT 01371000 



05038000 07025020 



Oftu7000 

09395000 

• STREAM 

01686030 



04J296000 
09396000 

VARIABLE 
01688050 



05312000 07646630 
10071000 10127100 

'- naMf Parameter 



07646690 0769^000 07697000 07698500 
13640000 13777600 138l8500 14049000 
•- declared in segment 3 AT 01688010 



EDOCINDrX 
EEXIT •• 



EU •■ 
EL -' 
ELBAT 



•• DEFINE 
•• LABEL " 
02238280 
LABrL • 
10124100 

Real -- 

*121t2000* 



-- DECLARED IN SEGMENT 3 AT 01710000 
" DfCLaRED iN segment 15 AT 02238120 -- OCCURS AT 02238770 
02238430 02238520 02238522 02238552 0?238602 02238652 02238680 
DECLARED IN SEGMpNT 119 aT 10085000 -- OCCURS AT 10U9000 



DECLARED 
12114000 



REAL ARRAY 



02265100 
05187560 
05280000 
06184000 
06395000 
07554000 
41OBO34OOO* 
♦08795100* 
08969000 
10568000 
10804000 
12061000 
13372000 
14269448 
16121000 
16212700 
16408000 
ELBATtIaSS — 



02265250 
05187570 
0528ln00 
06232000 
*07031000* 
07566000 
O8O370OO 
08809000 
08970000 
10569000 
10911000 
12061725 
13476000 
14269520 
16124000 
16214000 
16412000 
REAL 



3 AT 01319000 
02920000 02923000 



IN SfgMeNT 129 AT l2l02000 
*12125000* 12126000 
DECLARED IN SEGMENT 
*029i0000* 02916000 

05189000 05216000 

O6O16OOO 06044000 

06256000 06264400 

07079000 07396000 

07572000 07583000 

08176000 08484500 
+08860600**08860650**0 8860700* 

08975000 08976000 08988000 

10573000 10585000 

10929000 10930000 

12062600 12062800 

13483000 13517000 

14269540 14314000 

16159000 16200000 

16254000 16283000 

16435000 *16449000* 



05217000 
06062000 
06286200 
O743OOOO 
07599000 
08488000 



10598000 
10965000 
12064400 
13575000 
14349000 
16204000 
16321000 



05218000 
06062150 
06287000 
07442000 

♦07646515* 
08489550 
08909000 
08989000 
10644000 
10967000 
12125000 

♦I3816OOO* 
14352000 
16209000 
16329000 



♦02924000* 
05222000 
06062350 
06287600 
07463500 
07663500 
08688500 
08910000 
08991000 
10649000 
12015000 
13086000 
13819400 
14353000 
16211100 
16342000 



05139000 
05273300 
06062380 
06313650 
07468250 
07670500 
06692000 
08914000 
06992000 
10656010 
12024000 
13200000 
13911400 
14399000 
16211300 
16344000 



— VALUE Parameter 



DECLARED IN SEGMENT 3 AT 05289000 



05287000 05288000 05294000 
ELBATwORD -- REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT O3O16OOO 
ELBATWORD — REAL — VALUE PARAMETLR -- DECLARED IN SEGMENT 3 AT 05113000 

05116000 05118000 
ELBATWORD «.- DEFINE -- DECLARED IN SEGMENT 49 AT 05160000 

05168000 05170000 05175000 
ELBATWORD -" REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05207000 

05206000 05207000 05206000 05209000 
ELBATWORD — REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 06356000 

06359000 

-• DECLARED IN SEGMENT 79 AT 07595000 



ELBATWORD — DEFINE -• 
07599000 07601000 

ELBATWORD — DEFINE -- 
10585000 10644000 

EI.BATW0R0 — DEFINE -- 
IO8O3OOO 10814000 

10889000 10911000 



07611000 07617000 
DECLARED IN SEGMENT 

10651000 10652000 
DECLARED IN SEGMENT 

IO826OOO IO835OOO 

10912000 10912100 



124 AT 10519000 
10658000 10659000 

125 AT 10761000 
10668000 



IO83900O 
10916000 
ELBATWORD — REAL -" VALUE PARAMETER -- DECLARED IN 

15001000 15002000 15008000 15009000 I50l00l0 
ELBATWORD — RFAL — VALUE PARAMETER -- DECLARED IN 

15014000 15015000 15019000 
EUBATwOro — RfaL -• VftLUF PARaMeTER — DECLARED IN SEGMENT 3 AT 15022000 

15020000 15021000 15034000 
ELBW — RpAL -- VALUE PARAMETER •- DeCLaReD IN SEGMENT 

05390000 O539O1OO 05391000 



SEGMENT 3 
15010020 

Segment 3 



10874000 10883000 
AT 15003000 
AT 15016000 



08860150 
14595000 



08660450 09314000 



05140000 
05273400 
06110000 
06313700 
07508000 
07923000 
08696520 
08915000 
10277000 
IO658OOO 
12036000 
13310350 
*14062000* 
♦14507090* 
16212200 
16370000 



05145000 
05274100 
06117000 
06314150 
07509000 
♦08017900* 
♦08732100* 
08916000 
10306100 
10795000 
12036200 
13348200 
14129000 
*145l9000* 
16212500 
16376000 



05168000 
05274200 
06120100 
06314200 
07511000 
06029000 
06739000 
08917000 
10309000 
10796000 
12044000 
13361000 
14269446 
15077000 
162126Q0 
16379500 



10885000 10886000 1O668OOO 



3 AT 05389000 



m 



CLBW -- RfAL - 
05396000 

El,BW •- rf:al - 
05403000 

ELBW — Real - 

*063O5000* 

EUBW "- Real - 

♦07511000* 

EUBW — Real - 

*079?3000* 

eLbw ••- RfaL - 

08941000 
El.CL.ASS "•- . iNTf 
02934000 
05304000 
06062190 
06072220 
06094950 
06193000 
06286400 
06329400 
07021000 

♦07260000* 
07471750 
07646538 
07688000 
07833000 
07939000 
08145000 
08418100 
08613300 
08698000 
08860600 
08996000 
i0l32000 
10146000 

♦i0l59l00^ 
10297000 
10368000 
12034110 
1206200D 
12065000 
13149000 

♦I35il000^ 
14174000 
14269680 

♦14516000+ 
16119000 
16225000 
I6338OOO 
16417000 

EUCUASS "- RFaL 
♦10263400^ 

ElCUASS — OtTI 
13226000 

eusebranch -- I 

♦06300000* 
EUSeV -»• HEFlNF 



VALUE 
05396i00 

VALUE 
O54O31OO 

declar 

06400000 
DECLAR 

07512000 
DECLAR 

07926000 

" vaLuf 

06941100 
geR •• 

♦02944000 
06004000 
06062210 
06072240 
06125000 
06209000 
06286600 
06332300 
07026000 

♦07374000 
07485000 
07646555 
07728000 
07834000 
07943000 
08150000 
08418200 
08622000 
08698300 
08860650 
IOI120OO 
10133000 
10150000 
10160000 
10298000 
10565000 
12035000 
12062250 
13051000 
13162000 

♦13572000 
H162000 
14269840 
I46OI1OO 
16131000 
16228500 
16339000 
16437000 

-• nEC 

10263700 

N£ *" D 

13246000 

ntfqeR - 

06307000 

-- nrr 



parameter 

05397000 
PARAMETER 

05404000 
FD IN SegME 

06405000 
FD IN SE6ME 

07514000 
ED IN SEGME 

07926100 

Parameter 

08942000 
DECLARED iN 
♦*02952000^ 
,06013000 
06062220 
06072260 
06127000 
06225000 
06286800 
06393000 
♦07032000* 

♦ 07399000 
07494000 
07646595 
07728500 
O7838OOO 
08017700 
08153000 
08422000 
08628000 
08729000 
08908000 
10112100 
101 34000 
10150130 
10161500 
10307000 
10628000 
I2O361OO 
12062255 
13071000 
13182000 

♦ 13582000 
14197000 
14269920 
15078000 
16132000 
16230000 
16341000 
16477000 

LAREO IN SE 
10264100 

fclaRed in 

13253000 

- declarfd 



-- decla 

-- DECLA 

NT 67 AT 

06406000 
NT 76 AT 

07515000 
NT 87 AT 



Red in segment 3 at 05395000 

Red in SEGMENT 3 AT 05402000 
06392000 



07503000 

07520000 
07922000 



07521000 07526000 



oecLaRfd in Segment io3 at 08940ooo 



SEGMENT 
♦05002000 
06019000 
06062290 
06073250 
06128500 
06226000 
06288800 
06411000 
07111200 
07404000 
07506000 
07662000 
07729100 
07846000 
08031000 
08159000 
08435000 
08653100 
09732100 
08919000 
10113000 
10134500 
10150140 
10162000 
10310000 
10642000 
12036400 
12062400 
13083000 
13196380 
13787000 
14219000 
14325000 
15083000 
16198000 
16315000 
16374000 
16478000 
GMeNT 120 
10264300 
SEGMENT 1 
13278000 
IN SfGMf 



3 AT 0132800 
♦♦05003000^ 
06034000 
06062295 
06073450 
06141000 
0622^000 
06290000 
06416000 
07111255 
07409000 
07507000 
07668500 
07729190 ♦ 
07849000 
08032000 
08229000 
08479000 
08653120 
08738000 
08967000 
I0ll3i00 
10134530 
10150145 
10167900 ♦ 
10311000 
10863000 
12039000 
12062500 
13088010 
13196520 
♦I379i050+ 
14238000 
14326000 
15089010 
16204000 
16319000 
16379000 
16479000 

AT 10258100 
10264410 

34 AT 132200 



05109000 
06036000 
06062340 
06073650 
06144000 
06227500 
06302000 
06422000 
07111275 
07441000 
07550000 
07669000 
07733000 
07852000 
08038000 
08244000 
06485000 
08653130 
08739000 
08973000 
10114000 
10134540 

10150155 
10167910 
10317000 
10931000 
12041100 
12062700 
13068085 
13196590 
13794000 
14259020 
14336000 
15111000 
16210000 
16320000 
16381000 
16481000 

10277000 
00 



05141000 

06048000 

06062370 

06073810 

06152000 

06239000 

06313550 

06504000 

07112000 

07452000 

07553000 * 

07669500 

♦♦07735000^ 
07859080 
08103000 
08390000 
08493580 
08653180 
08742000 
08994000 
10120000 
10134545 
10150170 

♦*10178000^ 
10319000 
10993000 
12042000 
12063000 
13088090 
13331000 
♦13806000* 
1425?120 
14357000 
15287000 
16212000 
16326100 
16384000 
16482000 



05169000 

06052000 

06062390 

06073860 

06170000 

06261000 

06314000 

06510000 

07205000 

07463000 

07556000* 

07671000 

07814000 

07905000 

08113000 

08401000 

08493680 

08653200 

08795100 

0e9?4040 

10121000 

10134550 

10150185 

10178100 

10320000 

12022000 

12052000 

12063600 

13098105 

13337000 

1381OOOO 

14260000 

14370000 

15294000 

16221000 

16330000 

16384100 



05187580 
06055000 
06062430 
06091000 
06175000 
06266000 
06314650 
07012000 
07211000 
07467750 
07578000 
07683500 
07814200 
07909000 
O8128OOO 
08409000 
08597100 
08654000 
08805000 
08994080 
10124000 
10134580 
10150190 
♦10179000* 
10321000 
12028000 
I2O56OOO 
12063800 
13089000 
13339000 
13815000 
14269280 
14396000 
15339000 
16222000 
16335000 
16384700 



05273800 
06062140 
06072050 
06092000 
O6I88OOO 
06267500 
06320000 
07013000 
07237000 
07468500 

♦076465 15* 
07684500 
07814300 
07925100 
08133000 
08413120 
08606000 
08687000 
08809000 
09995000 
10128000 
10135000 

♦10150290* 
10294000 
10325000 
12033000 
12060800 
12064200 
13104000 
13473000 
I3816OOO 
14269442 
14404000 
15349000 
16Z2300D 
16336000 
16410000 



05275000 
06062165 
06072110 
06092005 
06192000 
06277000 
06329100 
07018000 
07238000 
07470000 
07646525 
07685500 
07831000 
079380.00 
08139000 
08416000 
08613100 
08689000 

♦08860350* 
0899550.0 
10130000 

*10141000* 
10159000 
10295000 
10358000 
12034100 
12061500 
12064800 
13-145000 
13503000 
I39i8000 
l426?4iQ 

14479000 
15369400 

16224000 
16337000 
16415000 



10279000 *10282000* 



NT 63 AT 06295000 
LARED in SEGMENT 3 aT 01227000 



0630;?0OO 07567000 07576000 
EMIT -- PROCr.DURE -- OrCLARED IN 

04004000 Oa0070O0 04014000 

04531000 04535000 04550000 

06154000 06206000 06208000 

07365000 07441000 07449000 

08050000 08122000 08148000 

06698200 08698300 08698800 

08954000 08957000 08958000 

06995500 10819000 10821000 

14459000 15273200 15283000 

16266000 16287000 16387000 

eMitb •• PROcrnuRE •- declared in 

04125000 04218000 06301000 

07495000 07496000 07523000 

07727080 08047000 08078000 

10366000 10928000 10994000 
EMiTC •• PROcfoURE •• DECLARED iN 

04014000 14451400 14454000 

16121000 16124000 16200000 

16342000 16352000 16370000 

eMitcaLl -- Label — declared in 

08612000 08650000 08678000 
EMITD -- PROCEDURE — DECLARED IN 

04322000 04556000 05203000 

08416016 08418500 084i8650 
EMiTEORMaT -- PROCEDURE "" DECLaR 

10099000 10117000 10122000 

EMiTI •• PROCEDURE -- DECLARED I^ 
06343000 15124000 15369000 

EMiTJUMP — PROCEDURE -- DECLARED 
16093000 16255000 

EMlTL •• PROCEDURE -• DECLARED IN 



16228500 
SEGMENT 3 
O4O19OOO 
04551000 
06256000 
07544000 
08151000 
08698850 
00964000 
10844000 
15285000 
16394000 
SEGMENT 3 
06307000 
07524000 
0a086000 
10997000 

Segment 3 

14455000 
16209000 
16379500 
segment 97 
08668000 

Segment 3 

06062195 

08613500 

ED IN SEfiM 

10126000 

Segment 3 



1623 

AT 04 

040? 

0455 
0628 
0764 
0822 
0690 
0896 
1084 
1603 
1645 
AT 
0711 

0754 
0812 
1360 
AT 
1445 
1621 
1638 
AT 



0000 

291000 

4000 

4000 

9200 

6533 

7000 

6000 

5000 

6000 

8000 

3000 

4114000 

1320 

0000 

7000 

6000 I 

4010000 

6000 1 

1300 1 

3000 1 

8539000 



-- FOR 
4086000 
4613000 
6289600 
7646543 
6243000 

8907000 
8968000 
0959000 
6080000 



WARD AT 
04221000 
06054000 
06308000 
07804000 
08244000 
08906000 
08979000 
10974000 
1612200Q 



3028000 
04302000 
06073300 
06334600 
07805000 
08287000 
06911000 
06981000 
10975000 
16133000 



-• FORWARD AT 03036000 
nil325 07138000 07201000 
7579000 07566000 07606000 
8146000 08166000 06215000 
3769000 14571000 15037000 

6040000 16044000 16045000 
6212500 16212600 16212700 
6408000 16415000 16417000 

-- Occurs at 0869600o 



AT 04311000 



06062560 06070000 
08621004 06624004 
FNT 119 AT 10086000 
10134590 10150225 
AT 04500000 



FORWARD AT 03050000 



06336300 
06629004 

10171000 



07470750 
08728600 



IN SegMfNT 157 AT 16065000 



eMttlng 

EMiTN 



04032000 04066000 O4O7OOOO 

05187620 05222000 06062185 

06334200 06335100 06369000 

07466500 07466750 07529100 

08401070 08412080 064i30l6 

08414030 08415010 08416016 

08437050 08437075 08449000 

08608000 08611000 06612000 

06629004 06631000 08650000 

08803000 08807000 O881IOOO 

06958000 06959000 08965000 

10827000 10837000 10868000 

12061725 12062900 12064000 

13111000 13152000 13153000 

13264000 13267000 13347500 

13757000 13763000 13766000 

15248000 15321000 

-- PROCEDURE -- DECLARED 

04112000 06154000 06203000 

— PROCEDURE — DECLARED IN 

040j»4000 04212000 04524000 

O6371OOO 07111310 07134000 

08625000 08630000 089iii00 

10835000 12036000 12062600 



SEGMENT 3 

O42O5OOO 

O6O62385 

06376000 

07625000 

06413030 

0R416030 

08451000 

08621000 

06653150 

08812200 

06970000 

10887000 

13056000 

13157040 

13486000 

13914000 

iN Segment 
07573000 

SEGMENT, 3 

O4616OO0 

07346000 

06955000 

13068000 



AT 04003 
04544000 
06069000 
06405000 
07648000 
08413060 
08418350 
06493540 
08621004 
08653190 
08858000 
08977000 
10686000 
13057000 
13159000 
13508000 
13919000 



000 

05145000 

O6O73OOO 

06512200 

07659060 

08413060- 

06418650 

08493670 

0662 IQ 10 

06653220 

08860750 

06979000 

10906000 

13056000 

13166000 

13517000 

14466500 



05154000 
P6328OOO 
07256000 
07911000 
08413100 
08418800 
06493675 
08621020 
08656000 
08906000 
089S5OD0 
10917000 
13067000 
13196430 
13525000 
1454 3000 



3 AT 04098000 

07575000 08150000 06220000 

AT Q.4022O00 

05143000 05147000 05155000 

08075000 08179000 08212000 

06957000 06970000 06976000 

13160000 13166000 13196560 



05167000 
06 329550 
07377000 
06046000 
08413110 
08419000 
08493780 
08624000 
08659000 
08913000 
8966000 
10962000 
13072000 
13196440 
13531100 
14550000 



05175000 
08413040 

08980000 
13347500 



04315000 
06073400 
06368000 
07617000 
06401050 
06913000 
08964000 
10995000 
16219000 



07272000 
07609700 
08221000 



16046000 
16214000 



04317000 
06073700 
06S08Q00 
07925000 
06597500 
08921000 
08993500 
13767500 
1 6 22 700 



07312000 
07646730 
08918000 



16077000 
16216000 



04318000 
O6IIOOOO 
06512100 
O8O49OOO 
08613500 
08925000 
06994510 
13916000 
16232000 



07487P00 
07646800 
06923000 



16079000 
16286000 



07659070 08413016 084l40l6 
15100000 15308000 



05166000 
06331700 
07360000 
06067000 
06414010 
08424000 
06493840 
06624004 
06696600 
08923000 
09272000 
11001000 
13062500 
13196450 
13545000 
14564100 



05l|7600 
08414022 
06965000 
13915000 



05160000 
06331600 
07418000 
08077000 
06414016 
08433000 
08515100 

oa^asooo 

06728500 
08956000 
09307000 
12036300 
13106000 
1 34 96550 
13552000 
14567000 



05202000 
08416022 
10 309000 
15094000 



05186000 
06333500 
07419000 
08265000 
06414022 
06437000 
06524000 
08626i)00 
08740000 
08957000 
103S9QQ0 

12041130 
13109000 
13196600 
13553000 
15008000 



06062350 
06621010 
10329000 
15224000 



m 



eMitno 
emttnum 



emitpair 



emitRfst 
emttstor 

EMlTTlMfT 
CMITUP 

eMitv 



15271100 
•- nEFiN 
08412070 

-- PROr 
04121000 
08089000 
15374000 

- pROcrn 

040i8000 
04075000 
05167000 
06062435 
06073750 
06329600 
07111315 
07418000 
07471250 
07691500 
07911000 
08079000 
08401050 
08489520 
06653110 
08924000 
10329000 
10891000 
10994000 
12063300 
13264000 
13758000 
15007000 
15315000 

• « PKO 
04034000 
06072280 
07225000 
0/618000 
08413040 
086i340o 
08915000 
08993500 
13230000 
15008000 

••• Lar 
08803000 
E -" OF 
13230000 

-- DEF 
08413040 
•- PROcE 
04079000 

- PROCFD 

040l9000 

06062540 

06404000 

07423000 

08044000 

08698900 



15353000 15362000 16261000 
E " DFrlARFD IN SEGMENT 3 
08413100 06414010 084^030 

EOURE -- DECLANFD in SEfiMEN 
04225000 06071000 06U3000 
08493790 10330000 1089ll00 



AT 08289010 

08621000 08621020 

T 3 AT 04203000 -- 
06283400 07384000 
12014000 12015000 



uRf — hfcUaRed in 

04023000 04033000 



04079000 
05171000 
06062560 
06073800 
06331700 
07111320 
07441000 
07514000 
07693000 
07912000 
08094000 
08401070 
08493570 
08653125 
06953000 
10350000- 
10854000 
10995000 
12064000 
13268000 
13767300 
15095000 
15333000 

cedure -- 

04076000 
06073350 
07306000 
07626000 
06414022 
08621010 
08917000 
IO3O2OOO 
13501000 
15010000 



04109000 
05177000 
06064000 
06073850 
06335500 
07116000 
07463750 
07525000 
07806000 
07944000 
08123000 
08413040 
08513000 
08653140 
08956000 
10359000 
10906000 
12024000 
12064800 
13470000 
13904000 
15106000 
15344000 

DECI-ARED 
04077000 
06073600 
07311000 
07691500 
08415030 
08625000 
08953000 
10328000 
13761000 
15107000 



el -• ofcLaRfd in 

08807000 08811000 
FINE •• DECUaRED ! 

13501000 13761000 
INE •- OECi-AREO IN 

08414022 08416022 
DURE "' DFCI-aRED I 

06020000 O6O5OOOO 
URE — DECLARED IN 



SeRMeNT 

04034000 

04J 12000 

05179000 

06067000 

06204000 

06358000 

07122520 

07465500 

07526000 

07807000 

07946000 

08125000 

08413060 

08597000 

06653195 

08957000 

10361000 

10922000 

12038000 

13053000 

13489000 

14046000 

15222000 

15354000 

IN SEGMr 

04523000 

06073700 

07358000 

07693000 

08416022 

08627000 

08954000 

10360000 

13767300 

15267000 

SEGMENT 9 
08812200 

N SEGMENT 
14181000 
SEGMENT 
08621010 

N SEGMENT 



3 AT 04006 
04062000 
04122000 
05186000 
06069000 
06205000 
06377000 
07122530 
07466500 
07529100 
07817000 
07951000 
08126000 
08414022 
O85975OO 
08653210 

08976000 
IO616OOO 
IO928OOO 
12041130 
13069000 
135O90OO 
14488500 
15227000 

NT 3 AT 04 
04614000 
06073830 
07420000 
07640000 
06418300 
08630000 
08955000 
IO621OOO 
13915000 
15279000 

9 AT 08780 



000 

04063000 
04311090 
05187600 
06071000 
06283800 
06503000 

07138000 
07466750 
07529200 

07840000 
08044000 
08166000 
08415010 
08597700 
08694500 
08977000 
10802000 
10959000 
12041140 
13082500 
13526000 
14544000 
15230000 



02800 
052 
061 
074 
078 
084 
086 
089 
108 
HI 
153 

000 



08624000 08626000 

FORWARD AT 03049000 

07422100 07516100 

13229000 15011000 




OlOOO 

20200 
21000 
56000 
18400 
53110 
70000 
68000 
81OOO 
20000 
-- Oc 



04064000 
04507000 
05226000 
06072060 
06289400 
06508000 
07249000 
07467000 
07617000 
07851000 
08049000 
08189000 
06415020 
08613200 
08695000 
08980000 
10803000 
10960000 
12054000 
13159000 
13544000 
14551000 
15241000 



O4O66OOO 
04531000 
05316000 
06072080 
06318500 
06512100 
07272000 
O74685OO 
07625000 
0,7856000 
08050000 
08214000 
08416022 
08621010 
08698100 
08985000 
10812000 
10961000 
12061100 
13166000 
13545000 
14557500 
15273300 



05227000 
06288800 
07463500 
07926000 
08489550 
08653140 
08974000 
10888000 
1423300O 
15322000 
CURS AT 



06062190 
06399000 
07465500 
07946000 
08493860 
08653210 
06976000 
10890000 
14545000 
15323000 
8816000 



3 AT 13214000 
14233000 14545000 
3 AT 08289020 

08625000 08630000 
3 AT 04045000 



14565000 



04078000 
06062560 
06513000 
07445000 
06075000 
08926000 



04184000 
06066000 
07122510 
07464000 
08166000 
08953000 



SEGMENT 3 AT 04017000 

04521000 05180000 05219000 

06072090 06283600 06285800 

07255000 07270000 07306000 

07516200 07529100 07620000 

08212000 08287100 08267200 

08959000 08986000 08997000 



05226000 
063345QQ 
07335000 
07625000 
08439500 
10350000 



05316000 
06335200 
07346000 
07646450 
08493660 
10820000 



07619100 
15271000 



04067000 
04537000 
06021000 
06072090 
06328000 
07108500 
07311000 
07469750 
07634000 
07857000 
08065000 
08219000 
08418600 
08625000 
08728500 
08993000 
IO836OOO 
10971000 
12061200 
13196400 
13565000 
14558500 
15291000 



06072000 
07111310 
07466750 
08090000 
08514000 
08696520 
08981000 
I09i9000 
14565000 



06062155 
06372000 
07365000 
07946000 
08694000 
IO826OOO 



07693000 
15326000 



04071000 
04545000 
06062110 
06072280 
06329500 
07108505 
07366000 
07470500 
07641000 
07859060 
08068000 
08228000 
08421000 
08627000 
08728600 
09272000 
10837000 
10985000 
12061700 
13196570 
13744000 
14565000 
15306000 



06072070 
07134000 
07514000 
08401060 
08597600 
08860750 
08989000 
I2O611OO 
14569200 



O6O62285 
06380000 
07413000 
07953000 
08658600 
10845000 



08021000 
15359000 



04072000 
05143000 
06062170 
06073000 
06329550 
07U1230 
07408000 
07470750 
07646460 
07859070 
O8O7OOOO 
06400000 
08469510 
08630000 
08906000 
09307000 
10650000 
10992000 
12061800 
13263000 
13747000 
14569200 
15309000 



06072090 
07217510 
07519000 
08402000 
08604000 
O89iOP0O 
08992000 
12061200 
15007000 



06062435 
06400000 
07419000 
08021200 
OAASfiaso 
10850000 



a 



EMfTWORn 

EMTT21 

ENDOFiTa 

enoreadt 
endtog 

I* 
ENnV "- 

ENIU — 

ENiUPtR 

ENlUSPOT 

ENTER " 

enteRtd 

ENTRY • 

EOr •'• 

EOF •• 
EOF «- 

EOF -* 

EOFT -- 

E0f2 — 

£PaRT - 

EQL "" 

eqleschf 

* 
E8UAL - 

EQUAtV 
EOVOP • 

ERR w" 



10854000 1 
120«l750 1 
13756000 1 
15230000 1 

-- PROCE 
04152006 
" PROCEDU 
04526200 
LL -- LAB 
05107100 
APF •• LA 
02202010 
-• BOOLFAN 
02&53000* 

DFFINe - 
029i0400 

RfaL aRRa 

02236750**0 

•" iNtfge 

02236750 *0 

— defin 

02236750 t 

- procedur 

13081000 1 

•• strfam 

13102000 

* PROCFDUR 
13049000 t 
14217000 1 

Label -- 

02216250 
LABEL ^- 
LABEL — 

17010000 

Label -- 

17076000 1 

Label -- 

02201750 

Label -- 

17093950 

• label • 

02666000 

DEFINF •- 
10926000 
CK ••- BOO 

05403100**0 

• BOOLEAN 
02064000* 

" DEFINE 
16214000 
- OFFfNF 
02965500 

PROCEDURE 
02211500 
05396000 
06072110 
06121000 



0874000 10884000 

2064000 12064500 

3919000 14045000 

5249000 15273200 

DURe -- DECLARED 

4187000 15033000 

RE — DECLARED IN SEGMENT 

4530000 04536000 04543000 

EL -- DECLARED IN SEGMENT 

5107?00 13312500 

BEL -* DECLARED IN SEGMENT 



10891200 10927000 10959000 10960000 12041130 

13059000 13153000 13157040 13159000 13196460 

14542000 14558000 14564100 15007000 15012000 

15264000 15328000 15330000 15344000 15352000 
IN SfGMp-NT 3 AT 04142000 



12047000 
13236000 
15031000 
15361000 



12061100 
13554000 
15097000 
15374100 



12061200 
13743000 
15222000 



43 AT 04503000 

04549000 04555000 
3 AT 05101100 -- 

14 AT 02198760 ^- 



OCCURS AT 17000100 
OCCURS AT 02202O80 



-- DFC 
2680000 

- DFCLaR 
5109000 

Y -- OF 
9307100* 
R •- DE 
2237000** 

r -- DF 

4049300 
E -- DF 
3471000 

PROrEDUR 
6061000 
F -- DE 
3193000 
4259010 

DECLARED 
2220750 

DECLARED 

DECLARED 



LARED in SEGMENT 3 AT 01415000 

02864000 *0602l000*»06022000**070l6000* 07019000 ♦07020000* 

FD IN SEGMENT 3 AT 01228000 

07013000 07018000 07646538 07646555 07646595 07732000 

GLARED IN SfGMeNT 2 AT 00504300 

13654000 14049000 *1 4049300**1 4576100* 14594000 

GLARED IN SEGMENT 2 AT 00504400 



*076465a5t> 07646600 «076466l0* 
07733000 16477000 



02237250**09307l00* 
GLARED IN SEGMENT 2 
14576100 16133000 
GLARED IN SEGMENT 3 
13727000 14138000 
F -- DECLARED IN 



13654000 *14049200**14049300* 
AT 00504500 



14576100 *14593000« 



AT 13714000 -- FORWARD AT 03069000 
14139000 14140000 14141000 
SEGMENT 131 aT 13020000 



GLARED iN SEGMENT 3 AT 13314000 -- FORWARD AT 03055000 ' 
13196360 13567000 13726000 13787000 13606000 14161000 
14269240 14301000 l43l9000 14333000 14403000 14409000 
IN SEGMENT 13 AT 02210250 — OCCURS AT 02217000 



Occurs at 03055000 

14170000 14174000 14194000 



IN SEGMENT 15 AT 02238120 
IN SEGMENT 17l AT 17009000 



OCCURS AT 17012000 



DECLARED IN SEGMENT 175 AT 17073000 
7079000 

DECLARED IN SfgMeNT 14 AT 02198760 



•- OCCURS AT 17082000 
•- OCCURS AT 02202020 
DEgLaRED in SEGMENT 177 AT 17091100 — OCCURS AT 17096600 



■ DfCLaRED IN SEGMENT 27 AT 02639000 
DECLARED IN SegMeNT 3 AT 0i644000 



OCCURS AT 02810000 



LEAN PROCEDURE — DECLARED IN SEGMENT 3 AT 05402000 
5407000* 06916000 0899i000 

STREAM PROCEDURE " DECLARED IN SEGMENT 3 AT 02062500 
2064500 02881000 10264750 
— DECLARED IN SEGMENT 162 AT I6l92000 



-• DECLARED IN SEGMENT 3 aT 01271000 
2971000 06175000 

•■- DECLARED IN SEGMENT 3 AT 05lQ5000 
2768000 04145000 O43OOOOO 05i09000 
5397000 05398000 05399000 05403000 
6072210 06072230 06072250 06072270 
6125000 06133000 06144000 06157000 



— FORWARD AT 01718000 
05285000 05295000 O5365OOO 
05404000 05405000 O54O6OOO 
06073200 06073820 06073860 
06173000 06191000 06194000 



05390000 
06005000 
06092000 
06227000 



O5391OOO 
06062565 
.0609501)0 
06231000 



05392000 
06072030 
a64lSi>X)0 
06234000 



» 



eR«max 

errnum 
errnum 
errnum 

ERRNUm 
ERRNUM 
ERROR ' 
ERROR . 
ERROR . 



06261000 06272000 06302000 O63HO00 

06417000 06421000 06423000 06505000 

07452000 07462250 07462750 0/47i750 

07672500 07679000 07681500 07686000 

.07853000 07855000 O7859O3O 0/859080 

07942000 07943000 08059000 0H134000 

08472000 O849358O 08493610 08493770 

08729000 08745000 08793000 O8813OOO 

08995500 08996000 10134550 10173000 

10664000 10666000 IO898OOO 10969000 

13164000 13196530 13911000 l.l9ii30o 

15233000 15254800 15256000 15261000 

16125000 16132000 16160000 16205000 

16284000 16316000 16326000 16327000 

DEFINE " DEcUaRFD IN SFRMeNT 15 AT 

02238280 02238430 02238520 02238522 



06314350 
07015000 
074B5000 
07688500 
07900000 
O816OOOO 
08511000 
O885OOOO 
10298000 
10991000 
13912000 
15263100 
16206000 
16347000 

02238270 
02238552 

AT 0i00l550 



-" intfoeR -- dfclaRed in segment 

02211500 *02502000**090289i0* 

— INTEGER •- VALUE PARAMETER — OeCUARED 

— INTEGER — VALUE PARAMETER -- DECLARED 
" INTEGER " VALUE PARAMETER -- DECLARED 
05044000 

— STREAM VARIABLE -- VALUE PARAMETER •- 
05017000 05026000 

•" INTEGER — VALUE PARAMETER -• DECLARED 
05106000 05l07iOO 05107200 
STREAM LABEU — DECLARED 



06320000 
07118000 
07494000 
07695500 
O79O2OOO 
06178000 
08597400 
08660500 
10318000 
12007000 
14259040 
15291200 
16208000 
16367000 

02238602 



06329900 
07158000 
07598000 
07730000 
07906000 
08229000 
O86OIO60 
08922000 
10327000 
12033000 
14259075 
15294000 
16211200 
16384500 



06332300 
07239000 
07646440 
07830000 
07910000 
08392000 
08653120 
08941000 
10368000 
12036500 
14259120 
15297000 
16212300 
16397000 



06407000 
07243000 
07646555 
07839000 
07924000 
06401040 
08671000 
08942000 
10565300 
12052000 
15081000 
15343000 
16213100 
16418000 



IN 
IN 
IN 



SEGMENT 

Segment 

SEGMENT 



02119000 

• DEFINE 

02959000 

- DEFINE 

07239000 

08472000 

10664000 

ERROR •- LABEL 
06062120 

ERROR *' LABEU 
12060500 

ERRORcOuNT - 



DECLARED IN 

IN Segment 

IN SegMfNT 10 AT 02091500 < 
DECLARED IN SEGMENT 32 AT 02958000 



I AT 01716000 
\ AT 01716000 
i AT 05012000 

iEGMENT 45 AT 050l600( 

I AT 05105000 

• OCCURS AT 02114000 



-• DECLARED IN SEGMENT 3 aT OSliOOOO 

07666000 07670000 07672500 07679000 0768l500 

08511000 06671000 O8681OOO 08745000 08793000 
13767400 

-- DECLARED IN SEGMENT 57 aT 06060110 -- OCCUR 

06062165 06062190 06062210 06062220 06062420 
•- DfCLaRED IN SEGMENT 128 AT 12060300 -- OCCU 
12062400 12063200 12064800 
INTEGER — DECLARED IN SEGMfNt 2 aT 00501000 



07686000 
08813000 



07688500 
08850000 



07695500 
10567000 



02211500 *05035000* 09028000 09026150 ♦09028900* 09407050 

eRRORnumbeR -- Real -• value parameter -- declared in segment 

05287000 05288QOO 05295000 
ERRORtOc, -- BOOLEAN -- DECLARED IN SEGMENT 3 AT 01412000 

050 32000 oO 5047000**05 ll9000**0 7 009000**0 7 22 1000#*0 7645000* 
♦13330650**14130000**14443000» l*5ll000 fUlSOOOO* 
06062420 06062430 

-" DfCLaReD in segment 128 AT 12060400 
I2O624OO 12063200 12064600 
DECLaRfO in SEGMfNT 119 AT 10085000 — OCCURS 



errx 



13330600 

06062220 

•• DEFINE 

12060500 

EX — UaBfL - 
10112100 

EXAMIN " REAL 

00512000 

02229000 

02745000 

^ 02940000 

exaMinelast -- 

00512400 
EXIT -• STREAM 



10119000 10124200 
STREAM PROCED^JRE " 
00529000 00531000 
02230000 02230100 
02750000 02753000 
02946000 10167400 

reaU stReam procedure 

00512600 02873000 
LABEL -• DECLARED IN 



10134100 

DECLARED 
00533000 
02230750 
02761000 
10167600 

"• DrCLARED 



10150205 10159000 
IN segment 2 AT 005 
00536000 00539000 
02238512 02238572 
02769000 02786000 



S AT 06062565 

06062430 
RS AT 12065100 



09417000 

3 AT 05289000 



♦07646475**07734000* 
*16214100'C 06062120 



AT 10173000 
IO16OOOO 10162000 



06411000 
07405000 
07666000 
07845000 
07938000 
08406000 
08681000 
08943000 
10638QO0 
12056000 
15115100 
15364000 
16217000 
16483000 



07900000 
10638000 



06415000 
07412000 
07670000 
07850000 
O794OOOO 
064630DO 
08726200 
06994530 
10647000 
12065200 

15119000 
15367000 
16253000 



06463000 
10647000 



11000 
02013317 
02665000 
02791000 



02013516 
O268OOOO 
02907000 



*09275000* 
06062165 



10170000 

02214200 
02696000 
0281 3000 



4<10187000**13282000* 
06062190 06l062210 



02225750 02228250 
02697000 02730000 
O2688OQO Q293&0.0a 



IN SEGMENT 2 A 
SEGMENT 3 AT 02001080 -- 



T 00512100 

Occurs at 02001590 



EXTT 

EXIT 

EXIT 

-EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT - 

EXIT - 
EXIT - 

EXIT • 



EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 



02001360 

•«• Label 

020l3??2 
-- STREAM 

02104500 
— LABEL 

02215500 

•• Label 

02236760 

"- Label 

02375000 

"- Label 

02959000 

•• Label 

04311100 

-- Label 

04526200 

"- Label 

05273500 

•* Label 
-* Label 

05372000 

Label 

06062435 
06072250 

— Label 

06095000 

•- Label 

06191000 

•• Label 

06231000 

— Label 

06314000 

— Label 

06341009 

— Label 

06401000 

-* Label 

06505000 

•- Label 

07158000 

•- label 

07402000 

••• Label 

07462259 

-• Label 

07510000 

"• Label 

07555000 

•• Label 

07573000 

— label 

07598000 
•• LABEL 

07686500 
-- LABEL 

076fl0500 



02001550 
•- DEfLAREO IN SFGMfNT 8 AT 02013175 •- OCCURS AT 02013720 

0?0i3305 O2O1335O O?0i3380 020i3405 020i3435 020l3702 
LABEL •- DECLARrO IN SeqMenT lO aT 02091500 -- OCCURS AT 02119500 

02112000 02114500 02U5500 02118500 
— ' DECLARED IN SEGMENT 13 AT 02210000 •• OCCURS AT 02225000 

02215750 02216250 02224060 
•- DECLARED IN SEGMENT 15 AT 02238120 — 



•■- DECLARED IN SEGMENT 21 AT 02360000 
02413000 02488000 02571000 

— oecI-aRed in Segment 32 at 02957000 

02962500 
— DEtLaRED in segment 42 AT 04311010 



— DECLARED IN SegMeNT 43 AT 0450i000 -• 

04532000 04538000 04546000 04552000 
-- DECLARED IN SEGMENT 52 AT 05273000 -- 

05274400 05284000 
•- DECLARED IN SEGMENT 54 AT 05325030 
-- DECLARED IN SEGMENT 55 AT 05334000 •• OCCURS AT 05375000 



OCCURS AT 02238830 
OCCURS AT 02602000 
OCCURS AT 02967500 
OCCURS AT 04322100 
OCCURS AT 04558000 
OCCURS AT 05286000 



-- DECLARED IN Segment 57 at 06O60100 -- occurs at 06074000 

06062540 06062560 06062565 06066000 06067000 06070000 06072000 06072130 06072210 06072230 
06072270 06072290 06073100 06073200 06073820 06073870 

•- decLaRed in Segment 58 at 06090000 -- occurs at 06131000 

06119000 06121000 06125000 
-- DECLARED IN SEGMENT 60 AT 06182000 -- OCCURS AT 06210000 

06194000 
-- DECLARED IN SEGMENT 6l AT 06224000 — OCCURS AT 06278000 

06234000 06239000 06241000 06253000 06261000 06263000 06272000 06274000 
-- DECLARED IN SEGMENT 64 AT 06313500 -• OCCURS AT 06336600 

06314400 06320000 06329900 06332300 
-" DEpLaRED IN SEGMENT 65 AT 06339000 -- OCCURS AT 0634*000 

— DECLARED IN SEGMENT 67 AT 06390000 -- OCCURS AT 06408000 
06404000 

•- DECLARED IN Segment 68 at 0650l000 -- occurs at 06512000 

06510000 
-- DECLARED IN Segment 70 at 07066000 -- OCCURS AT 07385000 

07239000 07243000 07244000 

— DECLARED IN SEGMENT 7i AT 07394000 -- OCCURS AT 07*25000 
07405000 

'•- DECLARED IN SEGMENT 73 AT 07461750 -«■ OCCURS AT 07472000 

07462750 
•"• DECLARED IN SEGMENT 76 AT 07504000 -- OCCURS AT 07530000 

07527000 

— DECLARED IN SEQMeNT 77 AT 07549000 -- OCCURS AT 07557000 

" DECLARED IN SEGMENT 78 AT 07562000 -- OCCURS AT 07567000 
07574000 07576000 07579000 07584000 

— DECLARED IN SEGMENT 79 AT 0759^000 — OCCURS AT 07646000 

— DECLARED IN SEGMENT 83 AT 07654500 — OCCURS AT 07699500 
O76885OO 07692000 

•- DECLARED IN SEGMENT 84 AT 07659000 -- OCCURS AT 07683000 



3^ EXIT — LaBFL -- DErLARFD IN SEGMENT 85 AT 07718000 -- OCCURS AT 07757000 

m 077?6000 07729000 07729i00 07729200 07730000 07733000 07735000 07736000 07737000 07738000 07740000 

077/HOOO 07742000 07743000 07744000 07745000 07746000 07747000 07748000 07749000 07750000 07751000 

07752000 07753000 

EXIT •• Label -- detLaRed in sfcMfnt 88 at 07935000 -- occurs at 07954000 

07938000 07940000 07942000 07943000 

exit ••• Label -- OErLARro in segment 69 at 08017000 — occurs at 08232000 

08178000 08222000 06229000 

exit •« Label -- declared in segment 9o at 08092000 -- occurs at 08172000 

08134000 OB160000 

exit — Label — detLaRfd in segMfnt 9i at 08233000 -• occurs at 08288000 

08?78000 
EXIT — Label •- DFcLaRFD in segment 92 at 08378000 -• occurs at 08492000 

08393000 08396000 06401040 06406000 084i70i0 08418700 08428000 08446000 O845O3O0 08453000 08463000 
08466000 06472000 08476000 08489580 

EXIT — • Label -- declared in sfgment 93 at 08493040 -- occurs at 08493180 

08493170 

EXIT — LABEL •- DECLARED IN SEGMENT 95 AT 08493510 -- OCCURS AT 08493920 

08493658 08493770 

EXIT -• LABEL -- DECLARED IN SEGMENT 96 AT 08500000 — OCCURS AT 08526000 

0850400O 08511000 085i7000 08521000 

EXIT •»• Label -- DEtLaRED in SfgMeNT 97 at 0857i000 -•- occurs AT 08699000 

08594000 08597zi00 O86O1060 O66136OO 086i5000 08634000 08640000 08658300 O866IOOO 08671000 08674000 

08681000 08684p00 08696550 08698500 

EXIT -• Label -- detLaRfd in sfgMent 9e at o87i30oo -• Occurs at 08754000 

067?3000 08728^00 08730000 08734000 08745000 08750000 

EXIT — Label >— dfcLaRfd in sfgMfnt 99 at 08772000 -- occurs at 08823000 

08786000 08793000 08797000 O8B13OOO 088i9000 

EXIT -- Label -- dfcLaRfd in segment loo at 08833000 -- occurs at O8659000 

O8843OOO 08850000 08854000 

exit — Label -- declared in sfgment 119 at ioo85ooo •- occurs at 10174000 

10133000 I0l34i00 10134560 10150260 lOi72000 

EXIT -• Label -- declared in segment 120 at 10259000 -- occurs at 10234000 

10263900 10275000 
EXIT -- Label -- OFtLaRFD in segment 124 aT 10564000 -- occurs at 10679000 

10565300 10571000 10601000 10631000 10636000 10647000 10664000 10669000 10673000 10675000 

EXIT — Label -- dfcLaped in sfgment 125 at 10709000 •• occurs at 10938000 

10793000 10798000 10829000 10856000 1O866OOO 10877000 10898000 10903000 10909000 10924000 10926550 

EXIT — Label -- declared in sfgme'^t 126 at 10956000 -- occurs at 12001000 

10969000 10991000 

EXIT — Label -' decLaRfd in segment 127 at 12005000 -- occurs at 12058000 

12033000 12040000 12052000 12056000 

EXIT — Label ••- detLared in segment 128 at i2060300 •- occurs at 12065300 

12063610 

exit •• stream Label — declared in seg^^ent i3i at 13007000 — occurs at isoieooo 

13015000 
EXIT — Label -' DFtLaRFD in SEGMfMT UB aT 14269100 — occurs at 14269860 
14269710 14269760 

EXIT •- Label -- decLaReo in sfgmeNt 154 at 15076000 •- occurs at 15377000 

15081000 

exit — Label '- declared in Segment 155 at 15088000 -- occurs at-i51270oo 

15112000 15115?00 15119000 

EXIT — LABEL — DECLARED IN SEGMENT 156 aT 15184000 -- OCCURS AT 15376000 

15233000 15254600 15256000 i526i000 l5263l00 15275000 15291200 J5294000 15297000 15305000 15331000 

15337000 15341000 15343000 15365000 15367000 

EXIT — Label -- declared in segment Ul aT 16117000 -- occurs at 16144000 

16125000 16132000 

EXIT — Label — DEtLaRED in segment 162 aT I6I93OOO -- occurs AT'16239000 



16?05000 1 

EXIT — Label — 

16?53000 

EXIT -- Label -- 

16316000 1 

EXIT — Label — 

16367000 1 

EXIT -" LABEL •- 

164«4000 1 

EXiTouT -- Label 

02013317 
EXPI -• ncFINE 

04077000 
EXPLlclTFORMAT -• 

084^0020 
EXPRSS — INTFGEK 

06133000 *0 

r •"• iNtfgeR "" 

*08860250* 

13795000 1 

♦14177000* 1 

F — STRFaM VARIA 
02?63000 

F -• STRfaM VARIA 
0?443000 

F -- STREAM VARIA 
02448000 

F -• BOOLEAN -- 
♦06397000* 

F — REAL — DE 
♦16033000* I 

FA •• DEFINE -• 
07111240 

FACTOR *- DEFINE 
06019000 
07941000 
08622000 
12063800 1 

FAH •" LapfL •" 
06227530 

FAULTDEC -- PROCE 
13920000 1 

FAULTiD — DEFINf 
07729100 

FAULTLEVEL -- iNT 
*06397200**0 

FAULTOG •- BOOLEA 
06397100 
14561000 1 

FAULTOGO ••' BOOLE 
♦14058100* 1 

FAULTSTmT -- PROc 



FBIT 
FCR 



07729100 

• BOOLEAN 
07045000 
INTEGER 
02194000 



6206000 16208000 16211200 I62i2300 16213100 16217000 
DErLARED IN SEGMENT 163 AT 16251000 -- OCCURS AT 16270000 

DErLAPED IN SEGMENT 164 aT 16313000 -- OCCURS AT 16355000 

6326000 16327000 16342000 16347000 

DECLARED IN SEGMENT 165 aT 16365000 -- OCCURS AT 16398000 
6384500 

DECLARED IN SEGMENT 157 aT 16475000 •- OCCURS AT 16494000 

6487000 16488000 16490000 16491000 1649?000 16493000 

— DFCLARFD IN SEGMENT 8 AT 02013175 »• OCCURS AT 02013325 

-- DECLARED IN SEGMENT 3 AT 01570000 

PROrEDURE •'- DECLARED IN SEGMENT 3 AT 08860050 •• FORWARD AT 03056100 
8658020 08860800 

PROCEDURE -- DECLARED IN SEGMENT 3 AT 06139000 -- FORWARD AT 03007000 
6143000**06145000* 06146000 06259000 06299000 06407000 07125000 07133000 10327000 

DECLARED iN SEGMENT 3 aT 01688000 
8860400 10071000 10074000 »10076000» 10U6000 *10l27000* 10127100 *10 127200*+1 3783000* 13791000 
3798000 13807000 138lO00O I38l400,0 ♦14077000**l4078000**l«092000+« 14 lOOOOO^ 14108000 •14115000* 
4178000 *14179000* 14181000 
pLr •- VALuE PaRaMfTER -- declared in segment 3 AT 02262000 

8LE -- name: PARAMETER — DECLARED IN SEGMENT 23 AT 02441000 

BLE -- NAME PARAMETER -- DECLARED IN SEGMENT 23 AT 02446000 

DECLARED IN SEGMENT 67 AT 06391000 
6397?00 06401000 06.40fl000 
CLARfD in SEGMENT 158 AT I6O3IOOO 
6036000 16040000 I6O43OOO 16044000 

DECLARED IN SEGMENT 3 AT 01420000 
7157000 07197000 C8493520 08493840 15262500 15272900 

-- DECLARED IN SEGMENT 3 AT 01278000 
6036000 06050000 06507000 07157000 07198000 07465000 07687500 07816000 07837000 07859050 
8401030 08412050 08413120 08414000 08416010 08418250 08431000 08460000 08597300 08620020 
6623000 08629000 08654000 08668000 08728400 08739000 08742000 08805000 10318000 1204UOO 
3337000 13562000 14601100 15253000 15254^00 

DECLARED IN SEGMENT 61 aT 06224500 — OCCURS AT 06262500 

DURE -^ DECLARED IN SeGMfNT 3 AT 13900000 -- FORWARD AT 03080000 
4148000 

-- DECLARED IN SEGMENT 3 aT 01278100 
7925100 13911300 13913000 

FGER -- DECLARED IN SegMfNt 3 AT 01750000 

6397300**09038000* 13767100 * 1 3767200**! 3905000**1 3906000* I4569i00 14611000 
N •- DECLARED iN SEGMENT 3 AT 01753000 

7923000 ♦07923l00**07926l0o^ 13750000 13753000 13759000 ♦14O581OO* 14488500 14537000 14539000 
4564000 *14611000* 

AN — DECLARED IN SEGMENT H3 AT 14034000 
4611000 

EDURr -- DECLARED IN SEGMENT 3 AT 07920000 -- FORWARD AT 03079000 
7925100 07927000 

— VALUE Parameter — dfclaRed in segment 3 at 07047000 

7046000 07081000 07240000 07254000 07281900 07368000 

- DECLARED IN SEGMENT 3 AT 0133QO00 

2195000 02195750 *02214000* 02214200 *02225250* 02225750 02227500 02228250 02228750 02230000 







H 02?30100 0223857'? 02236580 02731000 05036000 05057000 *07025010* 07025020 ♦07025030* 

FCR — STRrAM VARlABLr -" VaLUF PaKaMeTER -- OFCLaReD IN SEGMENT 3 AT 01742200 

01/42700 
FCR -- STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT O2O16OOO 

OgOj/OOO 
FEIL — STREAM VARIABLE -• NAME PARAMETER -- DECLARED IN SEGMENT 3 AT O^ijOOOO 

04132000 
FEJ — INTEGER STREAM PROCEDURE ••- DECLARED IN SEGMENT ?3 AT 0?44l000 

021/»4000 0?445000 02452000 
FETCH — REAL STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 02262000 

02263000 
FF -• DEFtNE -- DECLARED IN SEGMENT 167 AT 17002008 

17025100 17080000 
FGEN — LABEL -- DECLARED IN SEGMENT 70 AT 07067000 <•- OCCURS AT 07248000 

07106000 
FI — DEFfME -- DECLARED IN SEGMENT 3 AT 01420300 

06073500 06073550 15263000 15364500 l5369l00 1536O300 15369600 
FIEUDOEC — LABEL -- DECLARED IN SEGMENT 143 AT 14016000 '-- OCCURS AT 14269020 

14091000 
FIELOID -- DEFINE -- DECLARED IN SEGMENT 3 AT 01278090 

05973100 05273900 06313550 O6314050 14269240 14269442 17095000 17095l00 
FIELDV "• DEFINE " DECLARED IN SEGMENT 3 AT 01298600 
FIL -• STREAM VARIABLE -- NaME PARAMETER -- DECLARED IN SEGMENT 104 AT 09010000 

09013000 
FILATTINT — DEFfNE — DECLaRED IN SEGMENT 3 AT 01579300 

08493860 
FILEATTRIBUTEHANDLER -- INTEGER PROCmURE -- DECLARED IN SEGMENT 3 AT 08493470 -- FORWARD AT 03061010 

06092015 06227520 07lU240 07729200 *08493870* 08493930 13160000 13167000 
FILEATTRIBUTEINOX -- REAL PROCEDURE -- DECLaREH IN SEGMENT 3 AT 08493010 

♦08493170* 08493190 064936l0 13157000 13163000 
FILEATTRIBUTES -• REAL ARRAY — DECLARED tN SEGMENT 3 AT 01303500 

08493070 *08493090* 08493140 08493160 08493710 08493740 08493820 08493830 08493890 
FILFDFC -" UaBFL — DECLARED IN SEGMENT 143 AT 14015000 -- OCCURS AT 14157000 

14020000 
FILEID " DEFINE -' DECLARED IN SEGMENT 3 AT 0n84000 

02761500 06073250 06092005 06227500 07i07000 07109000 07ll7000 07260000 07467750 07685500 07729190 

07814200 07831000 07846000 08403000 08508000 08598000 08727000 0B790000 08847000 08908000 08967000 

08973000 10565000 10792000 13064000 13081000 14430000 
FILeIDENT — DEFINE -- DECLaRED IN SEGMENT 124 aT 10505000 

10569000 10576000 10583000 10649000 10657000 
FILEIDENT '- DEFINE -- DECLARED IN SEGMENT 125 aT 10712000 

10796000 10891000 
FILEINDFX •»- DEFINE •- DECLARED !N SEGMENT 3 AT 01561090 

02013490 02013505 02013580 
FILeINX -- INTEGER -- DECLARED IN SEGMENT 3 AT 01561120 

*020l32lO**020l3230* 02013235 02013245 02013250 02013255 02013270 0?0l3275 02013295 02013490 02013528 

02013568 02013570 *020i3580* 0?0l3665 02013680 02013685 02013697 02013705 020l37lO 020l37l5 02200250 

02200500 02204250 
FlLpNo — INTEGER "- DFCLaRED IN SEGMENT l02 AT 08902000 

♦08918000* 08923000 
FILENO — INTEGER "- DECLARED IN SEGMENT 3 aT 01584000 

08946000 08949000 ♦08951000**09031000* 09361140 09405200 13102000 ♦13109000* 
FIUeNO — STREAM VARURLf "' VaLUe PARAMETER — DECLARED IN SEGMENT J31 AT 13020000 

13021000 13024000 
FILER "" TNTEGFR "• DECLARED IN SEGMENT l02 AT 08902000 
♦08914000* 08918000 08923000 

fiUeThing -^ Real -- dfcLaRed in segment 3 at 01625100 

/ 



♦ 09011100* \tiU5l]00 *H451300* 1445l500 *1 4451 700**l 6287000* 
FILCV -- DEFINE -- OECLAKED JN SEGHeNT 3 aT 01?96000 
13042000 

FILID •• STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 131 AT 1 30?0000 

13021000 13029000 
FILID •»- REAL •- DECLARED IN SEGMENT 131 aT 13039000 

13080000 13095000 *13100000* 13102000 
FILIDI — STREAM VARIABLE — NAME PaRAMETfR — DECLARED IN SEGMENT 131 AT 13020000 

13033000 

FILLIT " STRpAM PROcmiiRF -- DECLARED IN SpGMfNT 54 AT 05325040 

05323440 05325^60 05325470 05325480 
FILLIT — BOOLEAN PROrEDllRE -- OECI-AREO IN SEGHpNT 83 AT 07657000 

07664000 ♦07682500* 07684000 07695000 
FILLSTMT — PROCEDURE -- DEcUARED IN SeGMfNT 3 AT 07653500 

07700000 07750000 
FILLTfMP -- RpAL ARRAY — OpCLARED iN SEGMENT 63 AT 07656500 

07695000 07697000 
FILLV *- DEFINE -- DECLARED IN SEGMENT 3 aT 01229000 

16379000 
FINAL <•- LABEL -7 DECLARED IN SEGMENT 120 AT 10258300 mm OCCURS AT 10263900 

10264400 10264420 
FlNALL — DEFINE — DECLARED IN SfOMENT 125 AT 10762000 

10926000 10929000 
FINDOPTtON — BOOLEAN PROCEDURE — OECLARpD IN SEGMENT 3 AT 02307000 

♦02317000* 02318000 0232^000 0?967000 
FINI •• LABEL -- DECLARED IN SEGMENT 157 aT 16475000 •- OCCURS AT 16495000 

164/6000 16478000 16483000 16486000 16489000 
FINIS <-• STREAM LABEL — DECLARED IN SeGMfNT 10 AT 0209i500 -- OCCURS AT 02125500 

02095500 02096500 02099500 02110000 
FINiShBOO — LABEL •* DECLARED IN SEGMENT 70 AT 07065000 •• OCCURS AT 07212000 

07210000 

FINISHED -" Label — declared in segment 40 at 04204000 " OCCURS AT 04225000 
04220000 

FINiShNuMBFR — LABEL — DECLARED IN SeGMfNt 27 AT 02638000 — OCCURS AT 02847000 

finiShPt — " Real -- declared in segment 3 at 01561200 

02013495 ♦020l3500**020i3600^ 02132000 02207750 02224000 02733000 
FlO mm OFFjNF. •- DECLARED IN SFCMfNT 3 AT 0i420500 

08493520 13160000 13167000 
FIRST .- TNTtOER — NAME PARAMfTER "- DECLARED IN SEGMENT 3 AT 05271000 

05270000 ♦05273300*#05274100+^052eo000* 052B2000 
FIRST -- iNTesfR — DECLARED IN SEGMENT 64 AT 06312500 

*063i3650*^063l4i50**063l5000* 06317000 06328000 06331700 06336200 06336300 
FIRST •"• INTEGER -" DECLARED IN SEGMENT 65 AT C6339000 

06341000 06343000 

fiRsttMfx -- bo,olfan «-- declaRfd in Segment 3 at 01561202 

♦020t3540^^020l354l**020i362e^ 02220250 *02220500^ 02223250 ^02223500^ 
FIRSTTIME — Label — declared in segment 13 at 02210000 -- occurs at 02213500 

FIRSTTIME -- BOOLEAN — DECLARpD IN SEGMENT l72 AT 17069400 

17091155 •I709ii62**l7ll7920^ 
FIRSTX -^ REAL "- DECLARED IN SEGMENT 3 AT 01621000 

13608000 ♦13612000* 13623000 1405i000 *14052000^ 14534000 14555000 I457i000 *14608000' 
FIRSTXO — .INTEGER *- DECLARED IN SEGMENT 143 AT 14033000 

♦14051000* 14606000 
FIX — STREAM PROCEDURE •• DECLARED IN SEGMENT 23 AT 02446000 

02451000 02454000 
FIX •» PROCEDURE *• DECLARED IN SEGMENT 9o AT 08082000 



Fixe - 
riXOEFl 
FIXI - 
FIX2 • 

fu •• 

FU •• 
FlA6 • 



08090000 

PROCFDURF 

16057009 1 

NFINpO •- 

02897000 ♦! 

- rfal -• 

*16?i800»« 1 

• RpAl- -• 
*162320004> 1 

DEFINE -• 
06062400 
0866^000 
STREAM VARI 
05053000 

• PROCEDURE 



fLasit 

FMT •• 
FN — 
FOOT • 
FORCLAS 
FORUIST 
FORMAL 

FORMaLF 

formaln 
formaln 

FORMALV 
FORMATS 

formatd 



02013180 

02501000 

028^8000 

05119000 

07025000 

07600000 

10076000 1 

12030000 1 

13068085 1 

133l?500 I 

13531000 1 

14066000 1 

14211000 1 

14333200 I 

15262600 1 

•• PROcrDU 
02013183 
SWITCH FOR 
029?7440 
STREAM VARt 
08933000 

• INTEGER 

*08l62000* 

S — BOOLE 

•080i7600* 

•• PROCED 

08156000 

•• DEFINE 

05145000 

08941100 I 

•• boolea 

06397000 

13372000 ♦! 
aME — OEF 

06287000 
aMe -• DEF 

15092020 1 
— DFFINE 

08056000 
TT — DFFI 

02567000 1 

FC — labe 

140?0000 



8157000 

•- DE 
6141000 

REAL PRO 
2108000* 

DECLARE 
6233000 

OECLARF 
6236000 

DECLARE 
7173000 
8728300 
ABLE -• 

-- OF 

2013702 

2593000 

2899000 

3347000 

7127000 

7604000 

0090000 

2036?0O 

3O881OO 

3330600 

3549000 

4116400 

4238000 

4337000 

0163000 

RE *•" 

20l3?2? 

MAT •• 

2927460 

ABLE •- 

6935000 

•• DECL 
8166000 
AN PrOCE 
8017950 
URE •* 
8172000 

'" DEC 

5170000 
3202000 

M •« n 

7264000 

39l3i00* 

iNe — 

INe "• 
5105000 

— DF 
5065000 
NE »•" 
4461500 
L -- D 



08171000 

claRed in 

16233000 

CEDURE -• 



SEGMENT l5 
16236000 
DECLARED 



IN SEGMENT 162 AT 

16238000 
D IN SEGMENT 162 AT 

D IN SEGMENT 3 aT 01 
07191000 07687500 
10317000 12037000 
NAME PARAMETER •• 



7 AT 16029000 
16238000 
IN SEGMENT 3 

16195000 

16195000 



AT 12101000 



FORWARD AT 01717900 



claRed in 

02226250 
02599000 
029^3000 
05361000 
07165000 
07678000 
10136500 
12039100 
13088105 
13332000 
13562500 
14116500 
14263000 
14339000 
16171000 
DECLARED I 
02013305 
DECLARED 



SEGMENT 3 
02237250 
02650000 
02944000 
05370000 
07175000 
07687500 
10165500 
12061300 
13101200 
13338000 
13587000 
14135000 
H269820 
14346000 
16214100 

N SEGMENT 
02013350 

IN SEGMENT 



420000 
07815000 
12063100 
DECLARED 

AT 05012000 
02238280 
02697600 
029&9000 
06062380 
07217000 
07729500 
1017900U 
12062200 
13105000 
13339200 
13726000 
14136000 
14286000 
14351000 
16265000 

8 AT 020131 
02013380 
30 AT 0292 



07836000 07859040 07941000 08401020 08459000 08597200 

15263000 

IN SEGMENT 46 AT 05050000 



— FORW 
02238430 
02773000 
02962000 
06092015 
07217520 
07731000 
10187000 
12062800 
13145000 
13340000 
13787000 
14136100 
14295000 
14358000 
16434000 
76 

02013405 
7i50 



ARD AT 
02238520 
02775000 
02976500 
06317000 
07221000 
07859050 
10243000 
12063610 
13182000 
13457000 
13791000 
14137000 
14308000 
14371000 



1716000 
02238522 
02776800 
02977500 
06323500 
07226000 
08493705 
10264420 
12115000 
13192000 
13462000 
13798000 
14146000 
14310000 
14442000 



02238552 

02819000 
Q4D13000 
0633U00 
07233000 
08493720 
10912100 
12126100 
13196384) 
13467000 
13806000 
14153000 
14311100 
14487010 



02238602 
02821000 
05101000 
06336200 
07369000 
08728400 
10926550 
13052000 

i32i.oaxio 

13473000 
13819410 
14174000 
14323100 
14507180 



02316000 
02824000 
05106000 
07024000 
07382000 
089.48000 
12025000 
13065000 
13282000 
13504000 
14053100 
14187000 
14326000 
14508000 



02013435 



VALUE PARAMETER - 
ARED IN SEGMENT 90 A 



- DECLARED IN SEGMENT l03 AT 08932000 
T 08091000 



DURE 
0818 
DECL 
0823 

LARFD 
0520 
1324 

ecLar 

0727 

*1422 

DECL 



•• D 
2000 
ARED I 
1000 

IN SE 
9000 
4000 
ED IN 
5000 
3000*>t> 
ARFD I 



ECLARED I 
09184000 
N SEGMENT 

GMENT 3 A 

05218000 

13310080 

SEGMENT 3 

07327000 

14243000* 

N SEGMENT 



N SEGMENT 89 AT 08017 
08186000 
89 AT 08080000 

T 01149000 
05236000 05390100 
1425.9090 14427000 
AT 01591000 

07347000 07400000 
14245000 *14507120* 
62 AT 06282800 



500 



05396100 
16283000 



05403100 07082000 07083000 07166000 



07410000 07411000 ♦13202000**1 3328000**13342000* 



DECLARED IN SeqMenT 155 AT 15089000 



08212000 08217000 08227000 



CLaRfD in SEGMENT 89 

06098000 06108000 
DECI-ARED in SEGMENT 

1 4493500 

ECLARED IN Segment i43 at 14015000 — occurs at i4i6iooo 



AT 08014000 
06130000 08179000 
3 AT 01000950 



« 



» 



i 



rORMATGrN^^--^^PROCEOURr^^-^^D|aARE:D IN SEGMENT 3 AT 1377«000 - FORWARD AT 03056000 

FORMATOr -•' PEFINE -w DECLARED IN SEGMENT 3 AT OlOOl?40 

14461500 14493500 m 

FORMATPMRASr: — BOOLEAN PROCEDURE -- DECLaRfD IN SEGMENT 3 AT 10083000 -- FORWARD AT 03056200 

08860350 10119000 *10173000* 10174000 13792000 13808000 
FORMATTyPE — DEFINE — DECLARED IN SEGMENT 125 AT 10758000 1 

10813000 10869000 10871000 I089ll00 
FORMatV — DEFINE — DFCLaRfD IN SEGMENT 3 AT 01295000 

13192000 14158000 14159000 M 

FORSTMT — PROCEDURE -- DECLARED iN SEGMENT 3 AT 08008000 — FORWARD AT 03052000 

07747000 08232000 10294000 
FORV •- hfFINe -' DECLARED iN SEGMENT 3 AT 01223000 M 

10294000 ^ 

FORWARObRANcH " INTEGER -- DECLARED IN SpGMENT 90 AT 08091000 

*08l5200«* 08157000 08169000 08171000 M 

FORWARDREF •• DEFINE — DECLARED IN SeQMFNT 3 AT 01007485 

14469100 17092000 
FORWARDV — DEFINE — DECLARED IN SEGMENT 3 AT 01254000 

14238000 14467000 
FORWART -- Real -- value PARAMfTeR -- OfCLAReo in SfGMENT 90 at 08084000 

08082000 08083000 08086000 
FOUND — LABEL -- DECLARED iN SEGMENT 20 AT 02309000 -- OCCURS AT 02315000 

0231 3000 
FOUND -- LABEL -- DECLARED IN SEGMENT 4O AT 04204000 -. OCCURS AT 042?l000 

04209000 
FOUNDLB — BOOLEAN -. DECLARED IN SEGMENT I48 AT 14269080 

*14269360**14269440* 14269660 
FP -• DEFINE — DECLARED IN SEGMENT 3 AT 01420000 

06092015 06107000 06227520 06250000 08493840 15119000 15236000 15263050 15349000 
FPaRT -- LABEL -- DfCLaRED IN SEGMENT 27 aT 02639000 -- OCCURS AT 02790000 

02682000 
FR — DEFINE -• DECLARFD iN SEGMENT 3 AT 01420000 

08228000 15305000 
FRMTin •• DEFINE '— DECLARED IN SEGMENT 3 AT OII82OOO 




FROM — RrAL — NaMf PARAMETER — DEClARED IN SEGMENT 3 AT 03038000 

FROM "m INTEGER — VALUE PARAMfTFR — DfCLAREO 1N SEGMENT 3 AT 0411 

04114000 04115000 04120000 O4I2O1O0 0412050P 

FROM "■ BOOLfAN -• UALIir PARAMrtrR •« Orn ARrn iU 'S.cr.urur t at nr-iO 



6000 



-■ij---v "-Fii^ww "-"icww >"t*6Wlvu W"»ai£W3VV 

- BOOLEAN — VALUE PARAMfTER — DfCLARED IN SEGMENT 3 AT 07391000 
07402000 07404000 07411100 



FRONT -• INTEGER -- DECLARED IN SEGMENT 75 AT 07491000 

♦07493000* 07496000 
FRSTLfVfL — INTEGER -• DECLARED IN SEGMENT 3 AT 01402000 

05116000 06365000 *14478030* 
FS — DEFINE -- DECLARED IN SEGMENT 3 AT 01420000 

lllllTol Vbllllll llllVoll ^^'^'^^^^ 15102000 15104000 I5ll4000 I53l9000 15329000 ,5334000 15335000 
FSAVE •• REAL — OEfLARED IN SFGMeNt 3 AT 01340500 



*02682000*«.02688000**02758000**02803000* 02826000 02845000 
FUNcMONfILf •- DEFINE -- DEcLaRfO IN SfgMfNt 3 aT 01543000 
07422000 



FUNcTOG •- BOOLEAN -- PFCUAREO iN SfGMeNT 3 AT 01566000 

I37fl0000 i405/»000 14187000 ♦H275000**H288000**i 4296000* 14389000 

• H605000* 
rUNcTOGO "- POOLKAN -- DFCLaREP in segment 143 AT H034000 

♦14054000* 14553000 14605000 
FWDSEQNO — STREAM VARIAPUE — VALUE PARAMETER "• DECLARED IN SEGMENT 172 AT 17047300 

17047400 17050700 17051000 
FWDSEQNO — Own Real *•- declared in segment 17/ at 17091150 

♦l70O26O0**l7093400* 17094900 
FWDTOg — BOOLEAN -- DFCLaReO IN SEGMENT 1*3 AT 14025l00 

14116100 *14276000**14312000* 14333100 14373000 
FWdTOg " STREAM VARIABLE — VaLUE PARAMETER -- DECLARED IN SEGMENT 172 AT 17047200 

17047400 17050600 
FWDTOg — OWN BOOLEAN -- DECLARED IN SEGMpNT 177 AT 17091110 

♦17003300* 17094800 ♦17095400* 
FZERO «•- nEFlNE -- nFClARED IN SEGMENT 3 AT 01692000 

14078000 
6 -• REAL -" DECLARED JN SEGMENT 3 AT OI61O0OO 

*13042000**13045000**13055000* 13072000 13075000 13091000 13097000 I31OOOOO 

♦ 13231000* 13236000 * 1 37 16OOO** 13720000** 1 3722000** 13724000* 13726000 *14084000 
14094000 14098000 * 14100000**141 15000**l4l 16000* 14116300 14116500 14117000 

*142?2000**14278000**14?81000* 14284000 14292000 14294000 *14310000* 14311100 

* 14 387000** 14446000* 144 4 9000 * 1 4470000**1 4567000**1 4575000** 14601000* 

geneRaTf -•• Label -- declaRfd tn segment 164 at i63i3ooo -- occurs at 16345000 

161?2000 

genqo •• procedure — declared in Segment 3 at 03016000 

GENGO -• PROCEDURE -- DECLARED IN SEGMENT 3 AT 06356000 



14450000 14452000 14478040 *14553000« 



13192000 
♦ 14085000 
14158000 
*14349000* 



*13196420* 13196600 
14091000 *14092000* 
14159000 4^14167000* 

*14352000* 14353000 



GEO 
GET 



06381000 

DEFINE 
08050000 
INTEGER 
04050000 
06086000 
16092000 



06406000 07271000 10963000 

- DECLARED IN SEGMENT 3 AT 0i647000 

10959000 

-• DECLARFD IN SfGMENT 3 AT 



PROCEDURE 
O4O530OO 
13113000 



04057000 
13148200 



04l0?000 
13157020 



04105000 
13235000 



05307000 
04182000 
13258000 



-- FORWARD AT 0301 

♦05312000* 07607000 

13267000 13273000 



9000 

07608000 
14451300 



07646720 
16033000 



07727060 
16Q36000 



DECLARED IN SEGMENT 3 AT 05317000 
15 aT 02238120 -- OCCURS AT 02236560 

in segment 2 at 00523000 

at 10j77000 -- forward at 03031000 
— Occurs at i4084ooo 



qetalpha ^- Real stream procedure -- 

05323000 05325000 15033000 
GETeM — LABEL -- DECLARED iN SEGMENT 

02238350 
6CTF — INTEGER STREAM PROCEDURE — DECLARED 

00524000 *00526000* 00527000 00529000 
GCTINT -" BOOLEAN PROpEDURE -- DECLARED IN SEGMENT 3 

10150280 I0l59i00 10167800 *10l78lOO* 10180000 
6ETLP — LABEL -- DfCLaRED IN SEGMENT 144 AT 14076000 

14089000 

GETSPaCf '- INTEGER PROCEDURE — DECLARED IN SEGMENT 3 AT 05331000 -* FORWARD AT 
05132000 05260000 +05375000* 05378000 07646450 08l6?000 08860250 09274000 
13500000 13783000 13913000 14044000 14179000 14232000 14240000 
— INTEGER STRfAM PROCEDURE -- DECLARED IN SEGMENT 53 AT 05309000 
05310000 05312000 
•- STREAM PROrEDUf'E -- DECLARED IN SEGMENT 3 AT 01756000 



GETSYL 
GETVOtD 
GET7 -. 
GIT •• 



14241000 



03051 000 
IO682OOO 
14556000 



10915000 13345000 



01784000 

' STREAM 

13080000 

INTEGER 
02897000 
07515000 
10930000 
15273100 



02410000 

PROCEDURE 
13091000 

PROCEDURE 

*05124000* 

07520000 

12108000 

15281000 



02485000 

-- DECLARED IN SEGMENT 131 AT 13005000 

13095000 

•- DECLARED IN SfGMeNT 3 ftT 05123000 

05391000 05397000 05404000 07276000 

07539000 07601000 08942000 10649000 

12123500 13249000 13257000 1443»000 

15324000 16070000 16089000 16138000 



-- FORWARD AT 0171 
07361000 07410000 
10614000 10839000 
15010010 15010020 
16163000 16254000 



07412000 
10883000 
15233100 
16257000 



07422000 
10916000 
15242000 



07442000 
10929000 
15244000 



GIObaLNtNfOO "- 
13339100 

GNAT •• TNTEfiFR 
04076000 
06335200 
07«l8000 
06906000 
12061750 
15362000 

strfam 



(^FAL "- 
14055?50 
PROcFnDRF 
04077000 
06380000 
07620000 
08911100 
12064000 
15374100 
LARFl- -- 



DECLARfD P'I SEG^TNT 3 AT 01620100 
*14055300**14606100* 

-" DFCLaHCD in segment 3 AT 
04078000 *O513l000**05l32000* 



06400000 
07953000 
06926000 
13267000 



06405000 
08287200 
0B955000 
15006000 



7 270000 
08401060 
08965000 
15010000 



0512B000 
05133000 
07316000 
08402000 
08997000 
15012000 



••• FORWARD AT 030 
05316000 06062285 
07420000 07421000 
08493860 08514000 



10888000 
15271100 



10890000 
15322000 



20000 

06062540 
07423000 
08597600 
10891200 
15323000 



-- OECIARED IN SEGMENT 70 AT 07066000 -- OCCU 



GNc •- STRfaM LARfI- -- DECL-aRED in segment lO AT 02091500 -- 

02097000 
GOBBLf — LABEL 

07319000 
GOGEN •- PROCEDURE -- DECLARED IN SEGMENT 3 AT 07535000 -* FO 

07509000 07545000 07572000 07573000 07575000 0/583000 
GOgOGO -- BOOLEAN -- DECLaRfD fN SEGMENT 3 aT O1OOO8IO 

♦07948000* 08267000 *062B7300*#08424 l00**06466 l00*»0a6l 1 lOO* 
GOMcP — LABEL — DfCLaRFD iN SFGMeNT 76 aT 07504000 -- OCCUR 

07507000 07508000 
QOOfUP — LABEL -- nEClAREO IN SERMeNT 84 AT 07659000 mw OCCU 

07664000 07666000 07670000 07672500 07679000 
GOSTMT — PROCEDURE -- DECLARED IN SEGMENT 3 AT 07501000 

O753OOOO 07752000 
GOTOG -- BOOLEAN — DECLAfiED IN SEGMENT 3 AT 0i467000 

*06397000*"i'07528000* 07529000 *10963000* 
GOTOG — BOOLEAN " DECLARED IN SEGMENT 81 aT 07646395 

♦07646515* 07646530 07646540 
GOTOS — PROCEDURE — DECLARED JN SEGMENT 157 AT 16249000 

16270000 16454000 16487000 
GOTOSOLveR -• DEFINE ^- DECLARED iN SEGMENT 3 AT 01572000 

06380000 
GOTSChK -- LABEL ••• DECLARED IN SEGMENj 143 AT 14016000 



Occurs at 02104000 
RS at 07303000 

RWARD at 03023000 
13274000 

♦08677100* 08698750 
S AT 07528000 

RS AT 07682000 



14148000 14156000 
QOTSTORaGE -- BOOLEAN -- 

13731000 13732000 
GOTSTORaGE -- BOOLEAN -- 
*14099000**14160000* 
GOV •• DEFINE 

07550000 
GRABTOG •• boolean -- DECLARED IN 

*0fi4i6350* 08416600 
GS •• INTEGER •- VALUE PARAMETfR 
05325460 053254^0 05325480 



14157000 14158000 14168000 

VALUE PARAMETER -- DECLARED 
13^50000 13753000 13759000 

DECLARED IN SeGMfNT 143 AT 14025000 
14537000 14539000 *14546000* 14555000 
- DECLARED IN SEGMeNT 3 AT 01232000 
07556000 07646515 

SEGMENT 92 AT 08385600 



0C( 



CURS AT 14160000 
IN SEGMENT 3 AT 13733000 



14560000 14564000 



'- DECLARED IN SEGMENT 3 AT 05325010 



GS -w INTEGER -' DECLARED IN SegMeNT 55 AT 05344000 

♦05348000* 05349000 *05350000**05357000^*0536 1000**05367000* 

GTAi -•" Real array -• declared in segment 3 at 01697000 



06066000 
07514000 
08604000 
10962000 
1532BOD0 



06334500 
075l«00 
06696900 
1204U30 
15361000 



i 

i 
i 



♦08698950* 



gtix 

GTIl 



GTR *• 

GTR . 



13042000 

13722000 

♦14259015^ 

"• INTEGER 

INTEGER 



13045000 ♦13080000* 13193000 I32l0000 ♦13351000* 
13724000 13778000 ♦I4069000^^l4l29000^ 14130000 
14276000 14281000 14295100 
-• DECLARED IN SEGMENT 3 aT 01339050 
- - -" DECLARED IN SEGMENT 3 aT 01384500 
♦020i352*^^020l3528* 020i3530 02013535 *020i3567* 02013568 
*02192500«*02193000^ 02193250 *06O73845*^06Q7385O**0936lP20* 
*09361180**09361i82**09361200* 09405200 09419000 
' OEFfNE ••- DECLARED IN SfgMeNT 3 AT 0i650000 

06072060 10960000 
• OEFfNE -- DECLARED IN SEGMENT 167 AT 17002000 



*0537l000**O53730OO* 05375000 *05376000* 05376100 

13454000 1355150Q 13552000 13716000 13720000 
14134000 14161000 14167000 14259000 I42590l0 



♦02013665**02013670 
• 09361040**09361.060 



♦ 02013697 
jfe*.0936U20** 



02013699 *020i3705* 
09 36 1 1 40 «*D 9.3-61160.* 



'• 



GTl 



GTl 
GT2 



\7(i79000 
' REAL -- DECLARFD 
♦0?0i3235* 02013?50 
*02?03500* 02205000 *02452000* 02456000 ♦02652000* 

02720000 »02723500* 02726000 *0273000o**02B23000* 
*02867000# 02869000 ♦02875000* 02876000 02877010 

02894000 *02697000* 02900000 *04l05000* 04T07000 



♦04508000* 04521000 
«05397000^ 05398000 

07087000 «07089oOO^ 

07323000 *07539oOO^ 

08060000 08493530 
♦09 305000**0931 lbo0**09349000* 09 350000 



09396000 

10306000 
*13167000**13226000* 

13274000 ♦13280000* 
•14333100**14425000* 

15107000 •15281000* 
♦16?54000^ 16255000 



IN SEGMENT 3 AT 0t384000 

02013255 *02013275* 020132^5 ♦O2O1336O* 02013410 02013515 *020i3665^ 

02653000 02655000 ♦02658000^ 02659000 
02830000 
02878000 
04109000 
04524000 *05ll6000^ 05117000 
♦05404000* 05405000 O54O6OOO 

*O7186000**07442000* 07443000 *07444000* 07445000 ♦07449000^^07520000^ 07522000 
O75440P0 07645000 ♦07727060* 07727065 ♦077270.70* 07727080 •0772.9ZOO**0eD5B00O* 
♦08860200**08942000* 08943000 *09273000**09274000**0929l000**09292000* 09296000 09298000 

09352000 09354000 09357000 09359000 09360000 ♦09394000* 09395000 



04523000 
05399000 
07090000 
07540000 



♦02832000* 02833000 02834000 
02879000 02881000 02882000 
04110000 ♦04120100»*04120500* 

♦05231000* 05233000 

♦06232000* 06234000 



02013675 

02716000 

02838000 

02882100 

04121000 
*05235000**0539l000* 05392XX0-0 
*06322000^ 06325000 ♦07086000^ 



02013716 
♦02719000^ 

02839000 
♦02886000* 

04122000 



09397000 ♦09407000^ 09407010 09415000 09417000 ♦lOl 67900**10250000* 10251000 ♦103040Q0* 1Q3Q5000 
*10926500**10926510* 10926520 ♦10974000* 10975000 ♦10982000^ 10983000 ♦ 13157000**1 3160000**l3i63000* 



13232000 
13282000 
14427000 
15283000 
16257000 



13240000 
♦13371000* 
14429000 
15284000 
16258000 



13248000 *13251000**13252000**13256000* 13259000 ♦13273000* 



* 13780000**1 39 11300^*14099OQ0* 
14437000 14447000 *1445U00* 

*16159000* 16163000 16164000 
16265000 *16283000* 16286000 



14116000 
14451700 
16166000 
16288000 



13244000 
13373000 
14430000 
15285000 
16?60000 
INTEGER -- DTCLaRED I^ SEGMf:NT 146 AT 14203000 
♦14206000**14213000* 14223000 14228000 *l423 1000**14232000* 14233000 *14240000**14241000* 

R^aL — DECLARED IN SEGMENT 3 AT 0l364000 
*020l3255**02013?60* 02013295 *020l34lo* 02013500 *020l3670* 02013675 
*02834000**02839000^^02867000^ 02869000 ♦02e76000^ 02877010 02878000 
05234000 - - 



♦14 11630 a* 
♦15102000* 

16171000 
♦16452000* 

14245000 



1411.6500 
15106000 
16173000 



GT2 •- 
GT3 — 

GT4 •• 

GT4 •- 

GT5 •■ 
GT5 •- 
H •• 
HANDLES 

hanolft 

HEXIZF 
HF — 

HOLD - 
HOLD - 



IMTEGER 
•142i2000^ 

Real 



07522000 
09214530 
0941/000 
16167000 



♦07442000^ 07443000 07448000 *07520000^ 
07408000 ♦07609o00*^07727055^*07 727060^^092i4520^ 
09301000 09311000 ^093 i 3000**09407010* 09416000 
♦14430000* 14431000 ♦14446000^ 14*48000 ♦l6i63000* 
" OfCLaRED IN SEGMENT 146 AT 14203000 
14231000 
DECLARED IN SEGMENT 3 AT Oi3fl40O0 

♦ 020i3245*^020i3675* O2O1368O *f)282600o^ 02827000 O2842OOO 
*09300100* 09300?00 *09305000** 1 3285000* 13267000 *1443e000* 

REAL. -- DECLARED IN SEGMfNT 3 AT 01384000 
02904000 *04053000**04059000* O4O6OOOO 04063000 *04065000* 
♦07448000^ 07449000 ♦07523O0O^ 07524000 ♦07601000^ 07603000 
13238000 

INTEGER 
*14213000* 

Real -- 
♦07038000* 

INTEGER 
♦I42t4000+ 
REAL -- 

05316000 
WLIST — PROCEDURE 

13196610 14168000 

metatLeNdofareadorspacestatfmfnt 

07949000 08491000 06525000 

— BOOLEAN STRfAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 
♦0200i896^ 0200ifl96 02774000 
LABEL -- DECLARED IN SEGMENT l43 AT 14017000 — OCCURS 
14133000 14508000 

• STREAM VARIABLE — DECLARED IN SEGMENT 3 AT 020i3073 
O2O13O8O 02013085 ♦020i3095^ 02013135 

" INTEGER -»• DECLARED IN SEGMENT 92 AT 08385800 



02013699 

02879000 
♦07539000* 07545000 
♦09292000^ 09293000 

*13072000*^13196600^^13284000^ 
16172000 ♦16254000* 16255000 



♦02721500**02722500* 02726000 
02881000 02882000 *05233000* 

*07601000* 07605000 07607000 
09294000 *09296000* 09296100 



13285000 
16266000 



13286000 



♦07442000* 07454000 *0760l000* 07610000 *0929l000* 



04066000 
07610000 



*06153000* 
07614000 



06157000 ^07443000* 07444000 
07622000 07627000 *13235000^ 



-- DfCLaRED iN SEGMENT 146 AT 14203000 
14249000 

DECLARED IN SEGMENT 3 AT 0i384000 
07029000 *07607000* 07609000 *06660200* 
— DECLARED IN SEGMENT i46 AT 14203000 
14248000 ♦0i828000^ 01833000 01035000 
VALUE PARAMETER -- DECLARED IN SEGMENT 



08860400 08860450 *1 3261 000**13779000* 13814000 13818000 



— DECLARED IN SEGMENT 3 AT 



3 AT 05315000 
13196300 



PROCEDURE 



-• DECLARED IN SEGMENT 3 AT 06233000 
02001856 
AT 143820.00 



" FORWARD AT 03064000 



n 



♦06401043 

HOLD — tnterf: 

*085974b0 
HOLE •- RrAL 

*07196000 

htteOaP ••• PRO 

13773000 

HVCHECK -" 800 

♦05390100 

HVSl — STREAM 

17042600 
HVl — PROCEDU 

17045000 
HV2 — PROCEDU 

17U9000 

I -• tNTegeR 

♦029i7000 
05?l6000 
05?«0000 
06H7000 
06313700 

♦07113000 
07396000 

♦075S6000 

♦07691000 
07941000 

♦08223000 
06<)97300 
08739000 
08916000 
08991000 
10573000 
10796000 
12015000 
1206A400 
13460000 
13572000 
14129000 
14314000 
14507060 
16124OP0 
16214000 
16379500 

•• tNtereR 

•• tNtfgeR 

♦04239000 
•- REAL. -- 

♦06506000 
•" REAL "" 

♦06493070 
-• nEFlNE 

10277000 
•- INTEGER 

17002015 
•• tNTEfiER 

17002050 

— tNTegeR 



♦ 08450?00 

R -- nrc 

♦ 0865fl?00 
-- DECLAR 

♦ 07398000 

ceoiiRe "- 

14489000 

LEAN PROCE 

♦♦05393000 

PROCEDURE 



I.ARED IN SEGMENT 97 AT 08591700 

Fl") IN SEGMENT 71 AT 07393000 

07410000 07412000 07*15000 07419000 07420000 07422000 

DECLARED IN SEgMFNT 3 AT 13731000 

14555000 
DURE " DECLARED jN SEGMENT 3 AT 05389000 
* 08914000 ('6988000 

-- DECLARED IN SEGMENT 170 AT 17036000 



RE — DECLARED IN SEGMENT 170 AT 17042400 



RE 



DECLARED IN SEGMENT 172 AT 17112000 



DECLAR 
♦♦05002000 

05217000 

05281000 

, 06120100 

' 06314150 

♦ 07157000 
07401000 

♦ 07566000 

♦ 07732000 
07947000 

♦ 08401030 
♦08653110 
•08795100 

08917000 
08992000 
10565000 
10804000 
1 2020000 
♦13074000 

13483000 
13575000 
*t4l7l0OO 
♦14332000 
14507090 
16159000 
16225000 
16408000 

-- DECLAR 
-- DECLAR 

♦ 04241000 

oecuaRfp 

♦♦06512000 

DECLARED 
♦♦08493140 

- DECLaRe 
10282000 

VALUE 
1 7002020 

VALUE 
17002055 

DECLAR 



FD IN SEGMENT 

♦♦05003000^*05 

05218000 05 

05294000 06 

06184000 06 

06314200 06 

07185000 07 

07430000 07 

07572000 07 

♦07733000^*07 

08017900 08 

♦08437050^ Ofl 

♦♦08653140*^08 

♦ 08809000 08 
♦0B968000^ 08 
♦09348000^ 09 

10568000 10 

♦10869000^ 10 

12024000 52 

♦ 13086000 ♦IS 
♦13499000^*13 
*13802000^^13 

♦♦14173000^^14 

♦ 14349000 14 
14507100 14 
16200000 16 

♦16252000^ 16 
16412000 16 
FD IN SEGMENT 
ED IN SEGMENT 

♦04242000^ 04 
IN SEGMENT 66 
♦ 

IN SEGMENT 93 
♦♦08493160^ 06 
D IN SEGMENT 1 



3 AT 
107000 
221000 
016000 
232000 
315500 
186000 
442000 
583000 
734000 
029000 
442000 
653210 
860600 
969000 
349000 
592000 
911000 
036000 
086105 
504000 
815000 
169000 
352000 
507105 
204000 
254000 
435000 

29 AT 
41 AT 

243000 

AT 065 



1319000 

♦ 05139000 
05222000 
06044000 
06256000 
06322000 
07198000 
07463500 
07599000 

♦♦07735000 
08034000 
08460000 
08668000 
06660650 
08970000 
10304000 
10598000 
10926500 
12036200 
13200000 

♦♦13511000 

♦ 13816000 
♦♦14255000 

14353000 

♦14507110 

16209000 

16263000 

♦16449000 

02927130 

04237000 

OlOOO 



05140000 
05224000 
06062000 
06284400 
06330700 

♦07247000^ 
07465000 

♦07646515^ 
♦♦07755000* 
08037000 

♦08482000* 
06688500 

♦ 0B8607.QO* 
♦08974000^ 

10308100 
♦10636000^ 
10926510 
12044000 
13310350 
♦♦13513000^ 

13819400 
'•'♦i4264000^ 
♦14360000^ 
♦♦14507160^ 
16211100 
16321000 
♦♦16450000^ 



05145000 05168000 

♦05225000^ 05273300 
06062135 06062150 
06286200 06287000 
06395000 ^07008000 

♦07250000^^07256000 
07468250 07508000 
07662500 07663500 
07612000 07616000 

♦06ll0000^ 08111000 
08464500 08486000 
06692000 ^08695500 
06909000 069 10000 
08975000 08976000 
10309000 10318000 
106440Q0 106490Q0 
10929000 10930000 
12060600 12061000 

♦13324000* 13348200 
13517000 ♦13521000 
13911100 13911400 

♦14269i40^ 14269446 
14399000 ♦14408000 
14516000 14519000 
16211300 16212200 
16329000 16342000 
16479000 ♦16489000 



05187560 

05273400 

06062350 

06287800 

♦♦07031000 

♦♦07260000 

07509000 

07670500 

07837000 

♦ 0812.0000 

♦06469520 

♦ 08696520 
♦0B911Q0O 
♦08985000 
♦10354000 

1065.6010 
10965000 
12061725 
13361000 

♦ 13547000 
14062000 
14269448 

♦ 14480000 
15077000 
16212500 
16344000 

♦•17004700 



05187570 

05274100 

06062380 

♦06288600 

♦ 07079000 
♦♦07283000 

07511000 

07687500 

07859050 

♦♦08174000 

♦ 08489550 
08728400 

♦ 0J9 14000 
« 08988000 

♦ 10566000 
10658000 
10967000 
12062600 
133720QQ 

♦13567000 
14063000 
14269520 
14507050 
15254500 
16212600 
16370000 

♦ 17004710 



05}89000 
05274200 
06110000 

* 0631365X} 
07095000 

♦♦07374000^ 
Q75540Q0 
07689500 

07923000 

* 081760DO 
♦06493530^ 
♦06732100^ 

0691,5001) 
08989000 

♦10569000^ 
10795000 

♦10987000^ 
12062600 

«1 3476000* 
♦♦13569000^ 

♦14067000* 
1426-9540 

♦14507070^ 
16121000 
1 6 242 70 
16376000 



AT 06493030 

493170 

20 AT 10256200 



PARAMETER — DECLARED IN SEGMENT 167 AT 17002020 

17002040 
PARAMETER -- OECLaREO IN SEGMENT 167 AT 17002055 

17002075 

ED IN Segment 173 at 17054400 



♦ 17054A00* 1705/+800 170550)0 

-- nEFlNE -- OFClAf^rn in segment 175 AT 17073100 

17079000 17080000 
-- REAL -- OrClARFD TN SEGMENT 177 AT 17091120 

♦17094900* I7095i00 17095200 17095300 17095310 

•- Real "- DECLARED IN SEGMENT ?0 AT OpSiOOOO 

*023l2000* 02313000 
D •• STREAM VARIABLE -- NAME PaRaMeTeR -- DECLARED IN SEGMENT 54 AT 05325040 

05325320 
DARRaY -- ALPHA ARRAY -- DECLARED IN SEGMENT 3 AT 01006000 

06948000 09026000 09395000 09395500 *09396000**09397000**09399000**09 399l00**09400000**09402000#*09403000» 
♦09405000**09405p00* 09407000 13101100 
DBLDR — STREAM LABEL -- DECLARED iN SEGMENT 10 AT 02091500 •- OCCURS AT 02110500 

02095000 02103000 
DENT — LABEL — DfCLaRED IN SEGMENT 27 aT 02639000 -- OCCURS AT 02865000 

02643000 
DLOC •• tNTEGER — DECLARED IN SEGMENT 3 AT 01341000 

08948000 08949000 ♦09026000* 09027000 09394000 13101100 13102000 
DLOC -- STREAM VARfAfiLE -- NAMf PARAMpTER — DECLARED IN SEGMENT 103 AT 08932000 

08934000 08938000 
DLOC •• STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 131 AT 13020000 

130?3000 13035000 
DLOCTEMP "- INTEGER -- DECLARED IN SEGMENT 3 AT 0l34l000 

♦ O9O27000* 1)9394000 

OMaX -• DEFINE -- DECLARED IN SEGMENT 3 aT 01479000 

07099000 07215000 07661000 07689500 l30B80lO 13O88O6O 13337000 13911300 l7047i00 l7095i00 17095200 
DNOF — DEFINE — DECLARED IN SEGMENT 3 aT 01007410 

O2OO166O 0?00i795 17025400 17042350 17091900. 17093850 17094050 17094l00 

dtypf — Real array -- declared in segment i7? at i70471oo 

♦17084010* 17094900 
OV •" DEFINE -- DFtLaRED IN SEGMENT 3 AT 0i65l000 
FCLAUSe -- PROCEDURE -- DECLARED IN SEGMpNT 3 AT 06409000 -• FORWARD AT 03018000 

06296000 07563000 
FeXP -- INTEGER PROCEDURE — DECLARED iN SEGMENT 3 AT 06294000 -- FORWARD AT 030i3000 

O6DO5OO15 06143000 *06299000* 06311000 
pS — PROCEDURE — DECLARED IN SEGMENT 157 AT 16191000 

16239000 16486000 

FSB -«• Label •- detLared in segment i62 at 16193000 — 

16194000 

Fsc '- Label — detLaRed in segment 162 at 16193000 — 

16194000 
FSTMT " PROCEDURE -- DECLARED IN SEGMENT 3 AT 07561000 -- FORWARD AT 03022000 

07587000 07751000 
rSW — SWITCH LABEL — DECLARED IN SEqMEnT i6? AT I6i9a000 

16197000 
FTOG -- LABEL -- DECLARED IN SEGMENT 162 AT 16193000 -• OCCURS AT 16217000 

16194000 16215000 
FV — DEFINE — DECLARED IN SEGMENT 3 AT Oi23lOOO 

06004000 06141000 16211100 16212200 16222000 

1 •" INTEGER — DECLARED IN SegMeNT 152 aT 14507030 

♦14507050* 14507160 
MPeUN "•- PROCEDURE -- DECLARED IN SEGMENT 3 AT 06057000 

06074000 06098000 
MPOP --DEFINE -'■ DECLARED IN SEGMENT 3 AT 0l?72000 

06196000 
NC — DEFINE -- DECLARED IN SEGMENT 124 AT l05l6000 

J05840P0 10586000 i05«7000 10658000 10660000 10661000 
NC — DEFINE -- DECLARED IN SEGMENT 156 aT 15192000 



OCCURS AT 16216000 
OCCURS AT 16207000 



FORWARD AT 03039000 



tspaspoo 

PROCEDljRF 



15246000 15250000 

-- DECLARED IN SfGMENT 3 AT 02238100 



INCR - 



INcRF 

iNdec 

INDEX 

INDEX 

INDEX 

INDEX 

INDEX 

INDEX 

INDEX 

INDEX 

INDEXS 

INF - 

INFO 



-- OfCLaRfD in SFOMENT 3 AT 01153000 
02705200 02776100 05126000 05189000 
13240000 13307000 13559000 13560000 

•- OErLARED IN Segment 3 at oi607ooo 

H214000 H314000 

-- dfcLaRed in Segment 143 at uouooo 



05222000 
14096000 



15244000 
iNcLUDErARn — 
02571000 

DEFINE 

02658000 

13206000 
-• REAL 
*13206000* 
-• LABEL 

14019000 
•■ REAL 

02001640 
-• REAL 

02001740 

"•" tntegfR 

05006000 
••- REAL 
05009000 

— ^ tNTEGER " VALUE PARAMETER — DECLARED IN SEGMENT 3 
07045000 07046000 07086000 C7152000 07241000 07369000 
-'■ DECLARED IN SEGMENT 79 AT 07595000 
07610000 

-- DECLARED IN SEGMENT 153 aT 15028000 
15035000 

DECLARED IN SEGMENT 16* AT 16314000 



05382000 
14116000 



07152000 07369000 10585000 10659000 



■- VALUE 
020016A5 

•" VALUE 
02001745 



PARAMETER 
02001660 

Parameter 

02001795 



VALUE Parameter 



— VALUE parameter 



" declared 

02001695 

•- DECLARED IN SEGMENT 

02001805 02001810 



•- Occurs at i4i58ooo 

IN SEGMENT 3 AT 02001650 



i 

i 



3 AT 



02001815 
SEGMENT 3 



02001750 

02001820 02001822 
AT 05005000 



- DECLARED IN 

DECLARED IN SEGMENT 3 AT 05008000 

AT 07048000 



— DEFINE 
07601000 

-- DEFINE 
15034000 

*" INTEGER 



* 16320000** 16326000** 16334000* 16346000 
-- PROCEDURE -- DECLARED IN SEGMENT 
16355000 16490000 

STREAM VARlABLr -- NaMe PARAMETER 
12157000 

Real array — declared in 



16349000 
157 AT 16311000 

-- DECLARED IN SEGMENT 130 at 12154000 



02001805 

02265700 

02879000 

>(,05009000* 

•092J4105* 



02013517 
02265850 
02881000 
05039500 
09292000 



♦10984000**10989000* 
14507090 J4507100 



variable 
variable -- 
Variable 



02013520 
02265950 
02923000 
05045000 
09296000 
10997000 
14507105 
- NAMf 



SEGMENT 3 

02013525 

02368000 

04172000 

05058000 

09298000 

12162000 

14507170 

Parameter 



AT 01007000 
02214250 02214260 



02226000 
02761500 



02234750 
02867000 



02234900 
02869000 
♦04210000**04211000* 04221000 
07727055 ♦08017800**08035000* 
09415000 09416000 *10967000* 
13281000 13310000 •13593000* 



NAME PARAMETER 



INfO -• STREAM 

02006000 

INFO -- STREAM 

lO?38000 

INFOINDEX •- STREAM 

05324000 
INPRO -- BOOLEAN — DECLARED IN 

♦08975000* 08979000 
INPROCHFCK -- BOOLEAN PROCEDURE - 
♦08941100^^08944000* 08975000 
INPUTI " BOOLEAN PROCEDURE -- DECLARED IN 

♦I70l2000^ 17045000 
INPUT2 — BOOLEAN PROcEDURe -- DECLaRED IN 

♦17082000^ 17119000 
IN5ERTCDP -- DEFINE "- DECLARED IN SEGMENT 
02193800 02238?90 02?3a5j4 02238570 
INSeRTDePTh — INTEGER 

02193800 02224030 



02411000 02486000 

04187000 04209000 

♦05233000* 05325470 

09300200 09305000 

12163000 13102000 . . _ ^. 

15P34000 * 16288000** 170047 10** 17025100** 17025300* 
-- DECLARED IN SEGMENT 3 AT 02005000 



02238582 02265600 

02877010 02878000 
*04223000* 05006000 
09034500 ♦09065000* 

10974000 10982000 

14440000 14507040 
17080000 



NAME PARAMETER 
SEGMENT 103 AT 
- DECLARED IN 



DECLARED IN SEGMENT 121 AT 
-• DECLARED IN SEGMENT 3 



10236000 
AT 05317000 



08929000 



SEGMENT 
SEGMENT 170 
SEGMENT 172 



103 AT 06940000 
17006000 
17070000 



AT 



AT 



3 AT 01561520 
09274100 
DECLARED IN SEGMENT 3 AT 0l56l570 
02224032 02224040 ^02224090* 02224110 *02238260* 



02238514 02238550 02238552 02238570 02238574 02238602 02238610 



0?236290 
02238620 



02238300 
02238630 



02238365 02238440 
02238640 02238650 



m 



02P38654 02238656 

inscRtfid — nrriNF -- 

02224110 02238290 
INSERTFtUe •- DEFINE -- 

10563000 10657000 
INSERTINFO -- REAL ARRAY 

02193800 ♦02221030* 
♦02238552* 02238570 

02238690 ♦02236704* 
INSERTINX — DFFINE — 

02224030 02224032 
INSERTMaX — DEFINE — 

01561580 02238280 
INSeRTMtD — DEFINE -- 

02224110 02238290 
INSeRTSeO -- DEFINE -- 

0^224040 02238300 

INT •- Own boolean »- 



02238660 02238690 02238704 02238710 ♦0223878n* 
DFCLaRED IN SEGMENT 3 AT 01561540 
02238552 02238610 02238620 02238630 02238650 
DECLARED IN SEGMENT 124 AT 10535000 

-- DECLARED IN SEGMENT 3 AT 01561580 
02224032 02224040 022?4ll0 ♦02238290*^02238300^ 
02238574 02238602 ♦022386l0^ 02238620 *02238630* 
02238810 ♦09274100^ 



02238810 
02238656 



02238385 
02238650 



09274100 
02238810 



02238440 *0223851 4^^02238550^ 
|>02238654^^0?2386S6* 02238660 



DECLARED IN SEGMENT 

02238290 02238385 

DECLARED IN SEGMENT 



3 AT 01561550 

02238660 02238690 
3 AT 01561510 



DECLARED IN SEGMENT 
02238550 O22386O2 

DECLARED IN SEGMENT 
02238440 
DECLARED IN SEGMENT 89 AT 08012000 



3 AT 01561530 

02238630 02238650 
3 AT 01561560 



IN SEGMENT 
06073450 
08401000 
13330550 
SEGMENT 3 AT 



3 AT 01205000 
07087000 07100000 



DECLARED IN 

- DECLARED IN SEGMENT l43 
• DECLARED IN SEGMENT 3 

- DECLARED IN SEGMENT 3 



08457000 
13346000 
01000960 



08597100 
14094000 



AT 



AT 14013000 
01579000 



AT 01577000 



INTID 



INTOG 



— DECLARED IN SEGMENT 3 aT 
06062290 06062340 06286800 
12035000 120A2000 12062250 

-" DECLARED IN SEGMENT 3 AT 



08061000 
15086000 



01201000 
O8O38OOO 
14141000 
01001250 

DECLARED IN SEGMENT 3 AT 01197000 
07330000 07463000 10654000 12034110 



DEFINE -- 

14294000 

-- DECLARED 



DECLARED IN Segment 3 at ou88000 

DECLARED IN SEGMENT 3 AT 01193000 
IN SEGMENT 3 AT 01285000 



08980000 
IN SEGMpNT 



3 AT 01340070 



02238704 



02238654 02238810 



♦08060000* 08070000 
INTaRRAVID -- DEFINE •- DECLARED 

04522000 05381000 06062290 

07834000 07939000 08057000 

12034100 12036400 12062255 
INtBIT -• DEFINE " 

02577000 

INTEGfRDEC — LABEL 

I40t8000 
INTERpTi .- DEFINE 

08287200 
INTERpTo -- DEFINE 

08698900 
•- DEFINE — 

04509000 

12034100 
'" DEFINE -" 
INTPROCID -- DEFINE -- 

06062295 07282000 

15101000 
iNTRNSIcPROcID -" DEFINE 

10599000 
INTSTRPROCIO -• 

14284000 
INTV -- DEFINE 

06120100 
INV — DEFINE — DECLARED IN SEGMENT 3 AT Oi290000 
INX — DEFINE •• DErLARED IN SEGMENT 3 AT 01652000 

04531000 05179000 08957000 
IOBUFfSiZE " INTEGER " DECLARED 

09361160 *13184000* 
lOoEC •" PROCEDURE '" DECLARED iN SEGMENT 3 AT 13001000 

1415700* 14158000 14159000 
lOT — INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 

13001000 13002000 13153000 13157040 13159000 
lOTEMP — INTEGER -- DECLARED IN SEGMENT l3l AT 13039550 

♦13113000**13148200**13148300^ 13157030 *13137040* 13184000 
IOTeMPO *- INTEGER — DECLARED IN SEGMENT 131 AT 13039550 

♦13157020* 13157030 1315^040 
IPART •- LABEL -- DECLARED IN SEGMENT 27 aT 02639000 — OCCURS 



07151000 
08665000 
15316000 



07292000 
08728100 
15333000 



07464250 07684500 078l«l00 
10311000 1O5790OO 10805000 



OCCURS AT 14141000 



10307000 
15102000 



10574000 10599000 10872000 l09265lO 



12036100 12062250 13278000 14295000 15078000 



13003000 



AT 02758000 



a 



02643000 

IS •• Uabfl -- 

04527000 

isn -• orriNF -- 

06062435 
ISKiP •- STREAM V 
10237000 1 
08627000 
J -- REAt " OE 
• 130420004>*1 
*U2l0000»*l 
♦13907000* 1 
♦14157000* 1 
14446000 1 
J •" tNTtgeR -- 
♦02927490* 
02927700 
J — TNTfGER -• 

*04170000* 
<J "• pefine: -- 

07696500 

J "" REAL -- DE 

♦07904000**0 

J •" tNTFTjER "" 

♦08919000**0 

J •• iNTFfiCR •• 

♦08947000+ 

J -- REAL -- VA 

10259600 *1 

J •"■ REAL -- or 

♦12116000* 
J -- INTEGER -- 

♦12163000* 1 
J ■•- REAL -• DF 

*13232000^ 1 
J -• REAL -• OE 

♦14259010^^1 
J •• REAL " OE 

♦150fl90l0* 1 

15303000 1 

J " REAL •- Va 

15215000 1 

J -• INTEGER •• 

♦16348000**! 
J — INTEGER -• 

♦16387OO0^ 1 
J mm INTEGER •• 

♦17002035^ 1 

J •• iNTrsER -• 

♦17002070* 1 
J •• iNTfgeR "" 

♦17654900^ 1 
JEDEN — INTEGER 

♦02265000* 
JFC •" DEFINE — 

162}9000 
JFW '•• DEFINE •- 



OECLaRFD 
4540000 

DECLARE 
6399000 

aRiarLf 

0238000 
8630000 

cLaRfd in 

3045000^* 
3324000*^ 
3919000 * 
4161000 
4448000 * 

declaRfo 

2927510 



IN SEGMENT 43 AT 04501000 



OCCURS AT 04548000 



AT 10236000 
08416022 08418300 08621010 
15334000 



08625000 



D IN SEGMENT 3 aT 01653000 

07519000 12038000 12063300 15103000 15334000 

" VALUE Parameter -- declared in segment 121 

06072000 06120200 084i3040 08414022 08415030 
13501000 13526000 15103000 15279000 15317000 

SEGMENT 3 aT OI6160OO 
13061000*^13067000* 13072000 ♦! 3077000^^ 1 3080000^ 13193000 ♦I 319649o^^l 31 96550^ 13196600 
13349000* 13351000 ♦I3454000**137l6000** 1 3720000**1 3722000*^13724000* 13778000 *13904000* 
14069000**14129000* l4i30000 14132000 14134000 *l4l35000** 14136000** 141 36l00**l4l 37000* 
14167000 *14278000**14281000**14295100»*14421000* 14425000 14438000 14440000 14445100 
14449000* 

iN SEGMENT 29 aT 02927130 
029?7530 02927540 02927570 0?927580 029?76lO 0?9276l2 02927620 02927660 02927690 



declared in SEGMENT 39 AT 04166000 
4172000 04179000 04187000 
DECLARED IN SEGMENT 83 AT 07656000 
7697000 

CLaRfD in SEGMENT 86 AT 07802000 
7912000* 

DECLARED IN SEGMENT 102 AT 08902000 
8921000^ 08922000 08923000 

DECLARED IN SEGMENT 103 AT 08930000 
8949000 08950000 

LUE PARAMETER -- DECLARED IN SEGMENT 3 AT 10228000 
0259700* 10264600 10264650 
CLaRfO in SEGMENT 129 AT 12102000 



DECLARED IN SEGMENT 130 AT 12153000 
2165000 

CLaRfD in SEGMENT 134 AT 13221000 
3239000 ♦13257000**13258000* 13261000 
CLaRfD in segment H7 at 14254100 
4259015**14259075* 14259080 14259085 
CLARfD IN segment 154 AT 15075000 



13264000 ^13265000* 13270000 *13271000* 
14266000 



15255000 
15350000 
DECLARED 



164 AT 



5101000 ♦15234000* 
5321000 15344000 
LUE PARAMETER -- 
5216000 15218000 

DECLARFO IN SEGMENT 
6349000* 

DECLARED IN SEGMENT 165 AT 
6389000 *16392000* J6393000 

DECLARED IN SEGMENT J68 AT 
7002040 

DECLARED IN SEGMENT 169 
7002075 

DECLARED IN SEGMENT 173 
7055010 17055020 

— DECLARED IN SEGMENT 
2265100 *02265350* 02265450 
DECLARED IN SfGMcNT 157 aT 



15266000 15273100 ♦15280000^ 15281000 15290000 15291100 15296000 



156 AT 15217000 



AT 



AT 
17 



IN SEGMENT 

16314000 

16364000 

17002030 

17002065 

17054400 



AT 02264100 
02265600 02265700 02265850 02265950 
16016000 



DECLARED IN SFGMeNT 157 aT 16007000 



)i 



m 



16043000 16045000 16079000 16232000 
JNS -• DEFINE •• DEcUaRED IN SEGMENT 157 AT 16023000 

16453000 
JOINFO — REAL -- OfCLARED IN SEGMENT 3 AT 01482000 

I6l?7000 ♦16128000* 16134000 16138000 16]39000 *16143000« 16440000 *16442000* 16445000 16447000 16449000 
JOINT -- RFAL — OErLAREO IN SEGMENT 161 aT 16118000 

♦16127000* 16143000 
vIRV — DEFINE -- DErLAREn IN SEGMENT 157 aT 16009000 

16079000 
JUMPCHAIN -- PROCEDURE "" HECLARED IN SEGMENT 157 AT 16085000 

16097000 16139000 16173000 
JUMPCHKNX " PROCEDURE -- DECLARED IN SEGMENT 3 AT 13616000 -- FORWARD AT 03058000 

10615000 10800000 14222000 14276500 14387000 14486000 
JUMPchKx •- PROCEDURE "- DECLARED IN SegM^Nt 3 aT 13596000 -- FORWARD AT 03059000 

10616500 10907000 13041000 13196340 13904000 14156000 14173000 14227000 14506000 
JUMPctR -- INTEGER — DECLARED IN SEGMENT 3 AT 01459000 

06359000 *06360000* 13739000 14497000 *14499000* 14537000 *14603000* 
JUMPUaCF — INTEGER -- DECLaRED IN SEGMENT 123 AT 10346000 

♦10347000* 10366000 
JUMPLfVfU — RfaU -" DECLARED IN SEGMENT 3 aT 01485000 

16260000 16265000 ♦ 16269000**16433000**1 6435000* 16452000 
JUMPS -• PROCEDURE — DECLARED iN SEGMfNT 157 AT 16431000 

16455000 16493000 
jgMPv -- DEFINE -- DECLARED IN SEGMeNT 3 aT 01242000 
JUNK •»• OFFINf -- DECLARED iN SEGMENT 3 AT 01430000 

06072000 06072070 06072090 O6I2O2OO 06285800 06288800 06399000 07ni3i0 07134000 074i8000 074i9000 

075i9000 07946000 084i3040 08414022 0B4i5030 08416022 O84183OO 0862l0l0 08625000 08627000 08630000 

10328000 10837000 IO85IOOO 10854000 10959000 10960000 13525000 15007000 15222000 15230000 15279000 

15320000 15330000 
K -* REAL •- DECLaRfD JN SFGMeNT 3 AT 01693000 
♦14095000* 

K •• STREAM Label — declared in segment lO at 02091500 — occurs at 02099000 

02099000 
K — INTEGER -- DECLARED IN SEGMENT 29 aT 02927130 

♦02927510* 02927530 02927540 *0292760o* 02927610 *02927660* 02927690 02927700 
K — STREAM VARIABLE -- VaLuE PaRaMeTeR -- DECLARED IN SEGMENT 55 AT 05341000 

05342000 

K — nEFlNE -- DECLARED IN SEGMENT 89 AT O80I6OOO 

080i780n 08017900 O6O33OOO 0«034000 O8O35OOO 08094000 O818OOOO 08223000 06232000 
K •• INTEGER — DECLARED IN SEGMENT 102 AT 68902000 

♦08921000* 
K — REAL " DECLaRfD IN SEGMENT 120 AT 10258100 

♦10263200^ 10263800 ♦102«4200^^10264400* 
K •" REAL •- DECLaRfD IN SEGMENT 126 AT 10957000 

♦10972000^ 10974000 *10979000^ 10982000 10984000 ♦10996000^ 10997000 
K -• REAL -- DECLaRfD IN SEgMeNT 129 AT 12102000 

♦12123500* 12125000 12126000 
K •- REAL — DECLARED IN SEGMENT I3l AT I3O39OOO 

♦13077000* 11080000 
K *- REAL — DECLARfD IN SEqMeNT 138 AT 13*49000 

♦13559000* 13563000 
K •• REAL -- DECLARED IN SEGMENT 140 AT 13737000 

* 13750000**1 3764000** 13765000* 

K •• REAL — DECLARED IN SEGMENT H7 AT H254100 

♦ 14259010* H259040 

K *- INTEGER — DECLARFD IN SEGMENT 165 AT 1636A0OO 

♦16389000+ 
K •- tNTFGER — DECLARED iN SEGMENT 173 AT 17054400 



Key • 
klassf 

KLUDGr 
KNOT 
KOUNT 
L •• 



L. 
I 

U 
L 
L 

U 

U 
I 

I 

L 

I 

I 



*17055010**1 
• RlfAt -- 
04239000 

-- Real - 

*13201000*#1 
•• PROCEOU 
0795'l000 

•- boolfan 

♦02974500* 
— rNTFfiFR 
1310U00 1 

tNTeceR "■- 

02195000 
♦04074000* 
«04151000**0 

04279200 
*06297000*<i>0 

07130000 
ik07493000**0 
*07585000>«i 

07646570 

06046000 4c0 

06127000 #0 

06179000 *0 
*08737000»*0 
♦1030l000**l 
*10929000* 1 
*12000000**1 
♦13238000**! 
♦13529000* 1 
*14451100* 1 

14601000 1 

16088000 *i 

16232000 1 
REAU — VA 
STREAM VARIA 

01742110 
STREAM LABEL 

01762000 
STREAM LABEL 

02101000 
LABEL -- D 

02135500 
STREAM VARIA 

02183750 
STREAM VARIA 

02196550 
REAL -- VA 

tnteger -- 

O3O51OOO 

LABEL -- D 
04241000 

REAL -- VA 
05124000 

REAL — VA 
05131000 

REAL " VA 



7055020 
VALUE P 
4241000 

- dfcl 

3226000 

RE mm 

8450?00 

-- ore 

2978500 

"- OF 
3103000 

DCCLAR 
2195750 
4086000 
4172000 
4280000 
6300000 
7l38oOO 
7495000 
7586000 
7646705 
8047000 
B146000 
8190000 
6747000 
0330000 
0958000 
3055000 
3239000 
3606000 
4451200 
5031000 
6089000 
6257000 
LUE PAR 

ble •- 



* 17055025 

arametfR -- 



DECLARFn IN'SFGMENT 3 AT 04231000 



aRED IN segment 3 AT 01603000 

♦ 13246000 13253000 13278000 #13349000* 13372000 *139l3000* 14308000 ♦14507130* 
DECLARED IN SEGMENT 3 AT 07930000 
08658200 13767400 
LaRFD in segment 34 AT 02973500 



cLaRed in sfh 

♦13306000* 

FO iN Segment 

02214200 

04102000 *0 

« 04175000 

04284200 

* 06301000 
07194000 

* 07496000 *0 
07608000 *0 
07646730 ♦O 

**08050000* 

* 08147000 *Q 

* 08191000 
*#08800000**0 

* 10348000 1 
*10960000**1 

♦♦13072000**1 

* 13258000 *1 
13612000 ♦I 
14451300 *1 

*15033000* 1 

* 16090000 1 
16287000 

amfter "- D 
NaMf parame 



MENT 3 AT 01583000 



3 AT 
2227500 
4J05000 
4178000 
4265000 
6307000 
7270000 
7522000 
7609500 
7646780 
8077000 
8148000 
8215000 
8817000 
0350000 
0971000 
3088090 
3263000 
3628000 
4451500 
5037000 
6092000 

eclared 

TER -- 



142800 
0222 

**0410 
0418 
0429 

♦ 0630 
0727 

* 0752 

* 0760 

* 0764 
«0d07 

♦♦Q8l5 

♦ 0822 
*4<0865 

1036 
**1097 

* 1311 
**1326 

* 1375 
**1445 

1603 
*1609 





8750 

9000* 

2000 

3000 

8000* 

2000 

3000 

9700 

6800 

8000^ 

0000^ 

lOOO* 

7000^ 

6000 

8000^ 

3000 

4000 + 

2000 

1700^ 

2000 

4000^ 



02236250 
04U9000 

♦04185000 
04296000 
07025020 
07305000 
07524000 
07610000 
07727065 

♦08089000 
08152000 
08227000 

♦08858000 
10616000 
10981000 
13148200 
13267000 

♦13768000 
144B7000 

♦16034000 

*16096000 



04050000 

♦04120000 

41*04186000 

*04298000 

07108500 

07312000 
♦07540000 

07646460 
♦07727070 

* 08093000 
OB16OOOO 
08228000 

**08914000 

♦lOflOlOOO 

10989000 

13157020 

♦13270000 

* 13769000 
14563000 

♦♦16038000 

* 16121000 



♦04052000 
♦♦04124000 

♦ 04210000 
♦♦05167000 

♦07111230 
♦07411100 

♦ 07545000 
07646510 

♦ 07727080 
08097000 

♦08168000 

♦08231000 

♦♦06918000 

♦♦10802000 

10994000 

♦13196420 

♦ 13273000 
14054000 

♦14570000 

♦♦16040000 

16138000 



♦ 04053000 

♦ 04145000 
♦04216000 

♦♦06154000 
♦♦07111320 
♦♦07459000 
♦07577000 
♦07646533 
♦07859040 
♦08106000 

* 08169000 

* 08401045 
♦♦08923000 

♦ 10906Q00 
♦10997000 

•♦13196600 
♦1327I00O 
♦14055200 

* 14571000 
♦♦16047000 

16167000 



♦04056000 
04147000 

♦ 04218000 
♦♦06207000 

♦ 07111325 

♦ 07485000 

♦ 07579000 
♦♦07646543 
♦♦07936000 

♦ 08122000 
O8170000 
08597450 

♦♦09306100 
♦10922000 

♦ 10999000 
♦♦13232000 

♦ 134.79000 

♦ 14222000 
14577000 

♦ 16049000 
16172000 



♦ 04057000 
04149000 
04223000 

♦♦06289600^ 
071U33O 
♦07487000* 
♦07583000^ 

♦ 07646545 
♦♦07950000^ 

08124000 
08171000 

♦08728300^ 
09308000 
♦♦10926000* 

*1 lOOOOOO^ 

♦ 13235000 
13509000 
14387000 

♦14595000^ 
16070000 
16218000 



IN SEGMENT 3 
DECLARED IN 



AT 01719000 
SEGMENT 3 AT 



01742100 



-- DECLARED IN SE&MENT 3 AT 01758000 -- OCCURS AT 01764000 

-- DECLARED IN SEGMENT lO AT 02091500 — OCCURS AT 02101000 

ECLARED IN SEGMENT 10 AT 02127500 -- OCCURS AT 02126000 

BLe -- VALUE PARAMETER ^- DECLARED IN SEGMENT 3 AT 02183500 

2186500 

BLE "- NAME PARAMETER — DECLARED iN SEGMENT 12 AT 02196530 

LUE PARAMETER •- DECLARED fN SEGMENT 3 AT O3O2OOOO 
VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03051001 

ECLARED IN Segment 4i at 04232000 — occurs at 04243000 

LUE parameter -- DECLARED IN SEGMENT 3 AT 05123000 

LUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05128000 

5132000 

LUE PARAMETER -- DECLaRFD IN SEGMENT 3 AT 05307000 






05312000 

I. — tNTEGER -- VALUE PARAMfTrR -- DECLARED IN SEGMENT 3 AT 05333000 

05331000 '05376100 
U — LABEL -- DECLARED IN SEGMENT 137 AT 13360000 -- OCCURS AT 13364000 

13366000 
L — LABEL -- DECLARED IN SEGMENT 1 '» 1 AT 13776000 -- OCCURS AT 13780000 

13815000 
L " LABEL -- DECLARED !N SEGMENT 164 aT i63l3000 -- OCCURS AT 16347000 

16319000 16340000 
U — tNTesER -- DECLARED IN SEGMENT 165 AT 16364000 

♦16391000* 16393000 
L — LABEL -" DECLARED IN SEGMENT 157 aT 16475000 -- OCCURS AT 16483000 

16476000 
L "- LABEL — DECLARED IN SeGMeNT 171 aT i7o09000 -- OCCURS AT 17014000 

17011000 
L "- LABEL — DECLARED TN SEGMENT 175 AT i7073000 -- OCCURS AT 17085000 

17081000 

LAB — Label -- declared in segment es at 07716000 -- occurs at 07739000 

07723000 

LabeLbat — Real — value parameter — declared in segment 3 at 03025000 

03023000 03024000 

labeLrat •- Real -- value Parameter — declared in segment 3 at 07537000 

07535000 07536000 07539000 
LABELCTR — REAL ARRAY -- DECLARED IN SEGMENT 12b AT 10738000 

*l0680000* 1O8840OO *i09j3000* l09i9000 
LABELCTRINX — DEFINE -« DECLARED IN SeGMfNT 125 AT 10747000 

IO8O2OOB 1O88OOOO 10685000 10894000 l09i3000 10919000 10921000 
LABELDEC •- Label -- declared TN segment 143 at 14014000 -- occurs at 14187000 

14019000 
LABELtD — DEFINE — DECLARED IN SEGMENT 3 AT 01206000 

06062390 06393000 07099000 07146000 07215000 07506000 07553000 07645000 07661000 07689500 10642000 

10876000 10908000 10965000 12063000 13088010 13088060 13246000 13337000 13911300 14194000 17047100 

17095100 17095200 
LaBELR — PROrFDURE -- DFCLaRED IN SEGMfNt 3 AT 07593000 

07646000 07739000 
LABELS — PROCEDURE -- DECLARED IN SEGMENT i57 AT 16156OOO 

16177000 16485000 
LABELV — DEFINE — DECLARED IN SEGMENT 3 AT 01286000 

14399000 
LABLMONFILE -• DEFINE -- DECLARED IN SeGMfNT 3 AT 01535000 

07614000 

lamper -- Label -- declared in segment 58 at O6090000 — occurs at 06128000 

06092020 06107000 O6I1OOOO 06113000 
LAST — LABEL -- DECLARED IN SEGMENT 156 aT 15184000 — OCCURS AT 15303000 
15342500 

LASTADDRESS — INTEGER -- DECLARED iN SEGMENT 2 AT 00504200 

♦ 02236250* 02236750 ♦ 1 4049 iOO + * l 4593000** 1 7002530* 
LASTADDRESS — REAL -- DFCLARFD IN SEGMENT l72 AT 17069600 

♦17079000* 17060000 ♦17064000* I709i800 17095750 *l7096e50* 
LASTcRDPATCH " BOOLEAN -- DECLARED IN SEqMeNT 3 AT 01001500 

♦02206000* 02221250 tO222l750^ 
LASTELCLASS — INTEGER " DECLARED IN SEGMENT 3 AT 01329100 

♦02934000^ O886O5OO 10124200 10134100 
LASTENTRY •* REAL -- DECLARED IN SEGMENT 3 AT 01376000 

04170000 *04189000* 04206000 04210000 04211000 ♦04214000^ 07609100 07646750 07727050 14276500 
LaSTGT •• DEFINE ••- DFCLaRED IN SEGMENT 151 AT 14420000 

14438000 
LASTGT — DEFINE -- DECLARED IN SEGMENT 157 AT 16003000 



s 



16089000 16266000 
UASTlNFO — Real -- declared in segment 3 at 01619000 



*04 179000**090 3 3000**092 145 30**09 2 14980* i 06560 H 
*i3?90000* 13309000 ♦13311000* 13788000 13807000 
14240000 14245000 *1«249000« 14259017 14259094 
14320000 *14330000**14373000* 14421000 *14463000* 



0276)500 02761501 04178000 

13103000 13110000 13222000 
*i42l3000* 14232000 14239000 

14259155 »14265930* 14269260 
•16447000* 

Uastinfot -• Rfal -- nFcURrn tn serMent 143 at 14029000 

♦14330000* 14373000 14463000 
LASTRpSULT -- INTEGER -- DECLARED IN SegMfNT 120 AT 10258000 

*lO?62OO0* 10272000 *l0276Q00* 
LASTSpQROW — DEFINE -- DECLARED IN SEGMENT 3 AT 0i576000 



10978500 10978600 13102000 

14079000 14063000 14175000 

14259098 14259100 14259102 

16053000 »16055000* 16445000 



020i35l7 020i3'^?0 

02486000 05039500 
LASTSfQUENCE -" DEFINE • 

0201351.7 02013520 

02486000 05039500 
UASTUSFft •- INTFRfR -- 

02013480 020i35?6 

02013714 

02232500 

02908000 
LBC •- DEFINE 

L8EG "" Label 

07727000 



02013525 0??14250 02214260 02226000 02234750 

05045000 05058000 09033000 09034500 09214980 

- DECLARED IN SEGMENT 3 AT 01575000 

02013525 02214250 02214260 02226000 02234750 

05045000 05058000 09033000 09034500 09214980 

DFCLaRED IN SEGMeNt 3 AT 01391000 
O2O13533 *020i3537**020i3540**020i354i**020l3565* 02013566 



0?234900 
09415000 

02234900 
09415000 



02194500 *02204000**02209250* 02212000 
*02238720**0 23 32000**024 30000* 02437500 
♦07030000**0 9029000**090 37000* 
— DEtLaRED IN SfrMeNT 3 AT 01645000 

— detLaRed in Segment 65 at O77i80oo 



02212250 ♦02212750**02224100* 
*024 38000**0 2458000**02525009* 



OCCURS AT 07754000 



02238582 
09416000 

02238582 
09416000 

020i36l7 

02224500 

*02721000* 



lbj -- Real -- declaRfp in segment i36 at 13449000 

*13473000**13547000* 13552000 13556000 
LBLREF "•• DEFINE "- DECLARED IN SEGMENT 3 AT 01007486 

07596100 16159100 17092300 
LBLTOfi -• STREAM VARIaBLf -• VALUE PARAMETER -- DECLARED 

17047400 17050900 
LBLTOfi -- OWN BOOLEAN -- DECLARED IN SegMfNT 177 AT 17091110 

♦17092500* 17094800 ♦17095400* 
LBP »- DEFINE -- DECLARED IN SEGMENT 143 AT 14023000 

1410P000 
LBRK — LABEL •• DECLARED IN SEGMENT 85 AT 07718000 
LBUFF -- RFAL ARRAY — DECLARED IN SEGMENT 3 AT 0l56l6l0 



IN SEGMENT 172 AT 17047200 



LCARD 
LCLOSe 
LCR •' 



lcr 

LCR •• 
LCR •" 
LCRLINK 



LDBL 



0222^030 
•• LABEL 
02191250 
•• LABEL 
07725000 
INTEGER 
02013313 



02224040 02224050 O223858O O2238582 02238590 02238652 02238680 
-- DECLARED IN SEGMENT U aT 02191000 -- OCCURS AT 02194750 

-- DECLARED IN SEGMENT 65 AT 07717000 -- OCCURS AT 07743000 



02236690 



— DECLARED IN SEGMENT 3 AT 01330000 

02013445 02013516 02013517 *02Ql3621**020l3625**P20l37l5* 05013716 
♦02204000**02209000* 02213000 *02214000* 02214250 02214500 ♦022l5750^^02224050^ 

02234750 02235750 02238512 02368000 02369000 02410000 02485000 02716000 
♦02903000^ 02904000 02905000 ^070250 10^*07025030* 

STREAM VARiABLp — NaMe PaRaMeTfR "• DFCLaREO jN SEGMeNT 3 AT 01756000 
01759100 01760000 0l763000 Ol76700o 01774000 0i779000 

STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 02005000 
02006000 

Real -- name parameter -- declared in segment U at 02198750 
02198500 ♦02l99750**02200500* 02201000 *G22Q20DO* 

— DEFINE •- declared IN SEGMENT 3 AT 0t56lll0 
02013534 02013535 020i3625 

LABEL •■- declared IN SEGMENT 65 AT 07717000 •- OCCURS AT 07746000 
07725000 



020 137 1 7 
02225250 
02717000 



02368000 02411000 



02368000 02411000 



O2O13621 02013628 
022290DO 02230750 
02900000 *02901000* 



02129500 0219.3250 

02226000 02232000 

*02719000* 02902000 



DECLARED IN SEGMENT B5 AT 07716000 



OCCURS AT 07731000 



UDFC -- LABEL - 

07724000 
LDES — DEFINE -- DECLARED IN SERMENT 3 AT 01299000 

07646660 O886O3OO 13784000 14575000 14601000 
LDICT -- REAL ARRAY -- DECLARED |N SEGMENT ? AT 00504600 

09399150 *13652000* 

LDO — Label -- declared in segment bs at 0771/000 — occurs at 07749000 

07725000 

LOOT — Label — declared in segment se at 06090000 -- occurs at 06127000 

06098000 O6IO1OOO 06104000 06120200 

LE — LABfL -- declared IN SEGMENT 61 AT 06?24000 -- OCCURS AT 06226000 

LEFTPaReN -- define -- DECLARED IN SEGMENT 3 AT 01212000 

02975000 06062120 06072030 06072200 06073200 06118000 06415000 07112000 07409000 

07662500 07829000 07844000 07849000 07859020 07901000 08386000 0B395000 064l8l00 

08613100 08722000 08785000 06842000 08905000 08966000 10264100 10570000 10797000 

12114000 13104000 13791000 13B06000 14174000 14259020 14326000 16125000 16225000 

LrNsTHi •- LabfL — DrrLARrn in segment 21 aT o?36oooo -- occurs at 02374000 

02364000 
LEN6Th2 •- LABEL — DECLARED IN SEGMENT 2l AT 02360000 -- OCCURS AT 02380000 
LENGTHS — ' LABEL -• DECLARED IN SEGMENT 2l AT 02360000 — OCCURS AT 02381000 

02364000 
LENGTh4 — LABEL — DECLARED IN SEGMENT 21 AT 02360000 -- OCCURS AT 02399000 

02364000 
LENGTH5 -- LABEL " DECLARED IN SEGMENT 21 AT 02361000 -- OCCURS AT 02476000 

02364000 
LENGTH6 — LABEL — DECLARED IN SEGMENT 2l aT 02361000 — OCCURS AT 02518000 

02365000 
LEN6TH7 — LABEL -- DECLARED IN SEGMENT 2l aT 02361000 — OCCURS AT 02569000 

02365000 
LENGTHS -• Label -- declared in segment 21 aT 0236l000 — OCCURS AT 02574000 

02365000 

LcNfiTH9 •- Label — declared in segment 21 at 02361000 -- occurs at 02575000 

02365000 
LEQ — DEFINE — DECLARED IN SEGMENT 3 AT 0i655000 

O8O5OOOO 
LEQ -• DEFINE -- DECLARED !N SEGMENT 167 aT 17002000 
LERR -• LABEL -- DECLARED IN SEGMENT 85 AT 07716000 -- OCCURS AT 07730000 

07720000 07723000 07724000 

Letter -• stream variable — value parameter -- declared in segment ii9 at loiooooo 

lOlOlOOO 10105000 

Level •- tntegfR -" declared in segment 3 at 01402000 

04611000 05208000 06397000 07926100 10644000 I06560l0 10965000 13339500 13371000 

13767200 13819400 13905000 13912000 #14053000* 14207000 14307000 ♦14323000* 14477000 

14499000 *14500000* 14537000 14557500 14560000 14567000 14569100 14575000 14597000 

14611000 
LEVEL •" DEFINE -- DECLARED IN SEGMeNT 15/ AT 16005000 

16171000 16265000 
LEVELF — REAlf -- DECLARED IN SEGMENT 3 ^T 01605000 

06397000 06397300 *13204000* 13339500 13371000 *1391l400* 13912000 14207000 14307000 
LEXIT -• nEFINE •"' DECLARED IN SEGMENT 125 AT 10723000 

10906000 10928000 
LF — DEFINE -" DECLARED IN SEGMENT 3 AT 01561600 

02224030 02224032 02224080 02224U0 02238640 02236650 02238662 02238654 02238656 

02238810 
LFC — DEFINE -- DECLARED IN SEGMeNT 3 AT 01648000 
LFILL •• LABEL -- DFCLaRED IN SEGMENT 85 aT 07717000 •• OCCURS AT 07750000 

07726000 

LFOR — Label -- declared in segment 85 at 07717000 -- occurs at 07747000 



07452000 07462000 

08503000 08593000 

12007000 12060500 

16282000 16480000 



13739000 13767100 
14478030 14497000 
14603000 *14604000* 



02238680 02238800 



B 



UrTBRKET 

LFTPARrN 
UGO •" 

ugTfld 

LGTH -*• 
LIB — 
LIB — 
tIBARRAY 

UIBCLaST 
tlBENo 

libiNdex 

Library 

uibRaryf 

libtuast 

tIF "- 
UlN •"• 

LfN — 

UlN — 
LINE — 



LiNf •• 
LINE -» 
LINECOUn 
LINK •• 



07725000 

— DEF 
05273800 
10264100 

— OFF 
16125000 

Label - 

07726000 

" DEFiN 
16172000 

stream 

0200U20 
BOOLEAN 

02199000 
BOOLEAN 

02204000 

mm R£H 

02013480* 
02013565 

— Lab 

02211000 

-• label 

-- INT 

02013480 
02013538 
02013625 

•' S¥\T 
02013245 
02200250 
IL -- F 
02224030 

02238810 

-- Lab 

02211000 

LABEL - 
07726000 

Real aRR 

02194000 
04149000 
05325450 

STREAM V 
05238500 

STREAM V 
053?5090 

File - 

0i8?9000 
02265300 
04150000 
09407020 
17054500 

STREAM 
02184250 

STREAM 
05019000 
T •" DE 
17091520 

DEFINE 



INE -• DECLARED IN 
06314000 06421000 
10295000 10568000 

INe -- nFCLARED iN 
16225000' 16282000 



SEGMENT 3 AT 01263000 
07947000 08240000 08409000 
10809000 12114000 13088085 
SEGMENT 157 AT 16003000 
16480000 



08614000 
13473000 



08653100 
14259020 



08653130 
14269320 



08653200 
15233000 



08698000 



declarfd in Segment 85 at 077i8ooo -- occurs at 07752000 
e -- declared in segment 157 at 16004000 

variable -• DECLARED IN SEGMENT 3 AT 02001070 
02001160 02001360 0200i568 

•• Value parameter -- declared in segment u at 02i98500 
— Value parameter -- declared in segment i3 at 02202500 

02204250 02207750 02209250 
L ARRAY -- DECLARED iN SEGMENT 3 AT 01561065 
*020l3490**020i3495**020l3497* 020i3505 02013520 *020l 3530««020l 3534 

02013567 02013580 02013600 020l36l5 02013620 02013625 ♦09275350 
EL -- OFCLaRfD IN SEGMENT l3 AT 02210500 — OCCURS AT 02220000 



♦*020i3535«*020l3537* 02013538 
* 09275500 



02210500 

AT 01561120 
02013505 02013520 
02013567 02013575 



-- DECLARED IN SEGMENT 13 AT 
EGER -- DECLARED IN SEGMENT 3 

02013490 02013495 0201349/ 
♦02013542**02013560* 02013565 

02013635 02131500 02732000 
CH FILf -- DECLARED iN SEGMENT 3 AT 01561050 

02013250 02013270 02013275 02013528 02013680 

02200500 
ILe •• DECLARED iN 

02224032 02224080 



02013530 02013534 020i3535 02013536 
02013580 02013600 02013610 02013615 



02013685 02013697 02013705 02013710 



SEGMENT 3 
02224110 



AT 01561590 

02238640 02238650 02238652 0?238654 



02238656 02238680 



02013537 
02013620 



02013715 
02238800 



EL -- DECLARED IN SEGMENT l3 AT 02210500 
- DECLARED IN SEGMENT 85 AT 07717000 -- 



-- OCCURS AT 02223000 
OCCURS AT 07751000 



AY -- DECLARED IN 
02195000 02195750 
04150000 05038000 
05325460 05325470 

ARrABLr - 

ARtABLF - 



SEGMENT 3 AT 01559010 

02196580 02196590 02214200 02226750 02227000 

05039500 05039600 05044000 05045900 05046000 

05325480 05325490 07025020 09300150 09301000 

Name parameter — declared in segment 3 at 05237000 
name parameter — declared in segment 54 at 05325040 



02227250 02227500 
05264000 05264500 
09302000 10074000 



02228750 
05265000 
10075000 



■ DECLARED IN SEGMENT 3 AT 01559000 
O18357OO 02195000 02195750 02196590 



02265450 
04279?00 
09416002 
17054800 

VARIABLE 
02186750 

VARIABLE 
05024000 

FINE -• 
17094410 



02265650 
04280000 
09417000 
17055020 
•- NaMf 



02265750 
04284200 
10075000 
17091510 

Parameter 



0226.5900 
04285000 
13633100 
17094300 



02214200 
02266000 
05039600 
13633200 
17094400 



02227250 
02464000 
05046000 
13649000 
17094550 



-• DECLARED IN SEGMENT 3 AT 



O22275OO 
0292744-0 
05265000 
13650000 
17095500 
02183500 



02228750 
02927460 
05325490 
14461500 
17096100 



02264950 
02927710 
07025020 
14493500 



02265150 
02927722 

09302000 
17002520 



-- NAME PARAMETER 

DECLARED IN SEGMENT 
17095510 17096350 



P- DECLARED IN SEGMENT 45 AT 05016000 
l77 AT 17091140 



•- DECLARED IN SEGMENT 3 AT 01154000 






02772500 
10656015 
13364000 

Link *- integfr 

♦04182000* 
UiNK •" DFFlNf 
07601000 

Link •- r^au - 

*076a6420* 

LINK — INTEGER 

♦09351000* 

LINK — Real - 

*16092000<t> 
LiNKA — REAL 

*14259094* 
LINKB — REAL 

*14?!»9094* 

LINKC — DEFINE 
02001660 
05006000 
12162000 
16288000 

LjNKf •• REAL. 

♦13207000* 

LiNKP — Real 

♦13361OO0* 
LINKR -- riFFINF 
02001660 
05006000 
12162000 
13593000 
LiNKT •- RfaL 

♦13361000* 
LINKT06 — BOOL 

04048000 
LISTARIT • — OFF 

02194250 
LISTAODRESS " 

♦05187570* 
LISTAODRESS -- 

♦0d496000^ 
LiSTADDRESS -- 

♦08692000* 
LISTATO0 -- DEF 

02194250 
LISTBIT -- DEFI 

02013179 
LISTDFC — LABE 

14019000 
LISTELEMENT — 

0S1630OO 
LISTER -- BOOLE 
02195000 
♦09026000* 

Listgfn — Real 

08481000 
LlSTln — OEFIN 



02726000 02882200 051240 
10659000 12036200 120628 
14259102 14448000 144700 

"" oecLaReo in segment 3 

04185000 

-- DECLARED IN SEGMENT 79 

07605000 07607000 076080 

- DECLARED IN SEGMENT 8i A 
♦07646533**07646543* 076467 

-• DECLARED IN SEGMENT 1 
09353000 

- DECLARED IN SEGMENT 160 
16094000 

- DECLARED IN Segment i47 

14259100 
■- DECLARED IN SEGMENT 147 
14259098 

-- DECLARED IN SEGMENT 3 
02001695 02001795 O2OO18 
05009000 05325470 092920 
12163000 13103000 1328i0 
17004710 17025100 170253 

- DEtLaRED in SERMeNT 3 A 
13339100 14210000 142110 

• decI'ARed in Segment 137 

13362000 13364000 

— nECLARED IN SEGMENT 3 
02001695 02001795 0?00i8 
05009000 05325470 092920 
12163000 13103000 132810 
15034000 16288000 

- DECLARED IN SegMeNT 137 
13362000 13364000 133650 

EAN -- DECLARED jN SeGMeN 
04100000 *042l3000**042220 

INE •- DECLARED IN SEGMpN 
02511000 02602500 

INTEGER " DECLARED I ^f SE 

05187600 05187620 
INTEGER -- DECLARED IN SE 

08489500 08489510 
INTEGER -' DECLARED iN SE 

06694000 08694500 
INE -- DECLARED IN SeGMEN 

02602500 
NE -- DECLARED IN SEGMENT 

020i3l8l 02402000 O26O25 
L — DECLARED IN SEGMENT 

14185000 
PROCEDURE " DECLARED IN 

08201000 10297000 103570 
AN -- DECLaRfD IN SEGMENT 

02195750 02214200 Q22275 

09028005 09408000 136460 

PROcEnURF — DFCLaRED iN 

O86880OO *10348000* 103690 
E -- DECLARED IN SEGMENT 



00 05132000 
00 12123000 
00 15034000 
9 AT 04166000 



05189000 
13207000 
15080000 



05233000 05234000 06062380 
13232000 13286000 13308000 



10585000 
13361000 



10656014 
13362000 



aT 07595000 
00 07609000 
T 07646390 

10 07646720 07646730 
15 AT 09318000 

AT 16087000 

AT 14254100 

AT 14254100 



*07646740* 



AT 01156000 

05 02001815 

00 09296000 

00 13310000 

00 17080000 
T 01606000 

00 14213000 

AT 13359000 



O2OO1822 
09298000 
13310200 



02212250 
09300200 
13310350 



0?724000 
09305000 
13310750 



02761501 
10251000 
13310950 



02867000 02876000 
10263000 1211/000 
13593000 15034000 



14214000 14310000 14314000 



AT 
05 
00 
00 



01155000 
02001815 
09296000 
13302000 



02001822 
09298000 
13303000 



AT 13359000 
00 ^13366000* 
T 3 AT 01399000 
00**04295000* 06021000 
T 3 AT 01000970 

6MENT 50 AT 05187540 

GMENT 92 AT 08385500 

GMENT 9/ AT 08591500 

T 3 AT 01001260 

3 AT 01000980 
00 09029000 
143 AT 14014000 -- OC 

SEGMENT 3 AT 10289000 
00 

3 AT 01001570 
00 02464000 ♦02602500+ 
00 13780002 14060000 

SEGMENT 3 AT 10344000 
00 14177000 
3 AT 01181000 



02212250 
09300200 
13310000 



♦06022000+ 



02724000 
0930500Q 
13310200 



02761501 
10251000 
13310350 



02867000 02875000 
10254000 12117000 
13310750 13310950 



CURS AT 14163000 

— FORWARD AT 03076000 



02910600 05036000 07025020 
14461500 14493500 

•- FORWARD AT 03077000 



07646640 07693500 



W 07122540 08479000 08687000 13196520 14170000 14174000 

LiSTMODr •• BOOLEAN -- DFCLaRED IN SEGMENT 3 AT 01720000 

06163000 08201000 ♦10352000** 10365000* 
LiSTOfi — OEElNE " DFrLARPD IN SEGMENT 3 AT 01001270 

0201317$ 02013181 02602500 09026000 
UISTPrIT •- DEFINE »• DECLARED iN SEGMENT 3 AT 01000990 

02195000 02228750 02480000 
UiSTPLACE •- INTEGER -■• DECLARED iN SegMENT 123 AT 10346000 

•10348000* 10367000 
LiSTPTOfi -- DEFINE -- DECLARED iN SEGMENT 3 AT 01001280 

02195000 02226750 
LISTV •• DEFINE ■• DECLARED IN SEGMENT 3 AT 01288000 

14167000 
LITERAL -- INTEGER -► VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04003000 

04004000 
LITNO — DEFINE -• DECLARED IN SEGMENT 3 aT 0l2i0000 

02650000 05275000 05277000 06314650 06321000 06330500 07i85000 07662000 07669000 07925000 1O6OQOOO 

10926500 13063000 13480000 13511000 13572000 14269460 14269500 16119000 16204000 16223000 16326100 

16341000 16374000 163$4100 16384700 16410000 16435000 16479000 
LITV — DEFINE -- DECLARED IN SEGMENT 3 AT 01250000 

16372000 16381000 
LLITOg -• BOOLEAN -- DECLARED IN SEGMENT 138 AT 13450000 

♦13482000**13496000* 13508000 13527000 13540000 
LLOCK — LABEL -- OfCLaRED IN SEGMENT 85 aT 07717000 -- OCCURS AT 07744000 

07725000 
UNd — DEFINE — DECLARED IN SEGMENT 3 AT 01656000 

04545000 06204000 06289400 
LNg — DEFINE -- DECLARED IN SfgMeNT 3 AT 01657000 

04112000 05171000 06205000 06418400 06613400 08957000 08980000 

LO — Real •• declared in segment 143 at 14029000 

♦14304000* 14496000 
LOC — DEFINE — DEtLaRED IN SEGMENT 151 aT 14420000 

14436000 
LOC — DEFINE — DEtLaRED IN SEGMEM 157 aT 16003000 

1607000B 16163000 16255000 
LOCAL -• BOOLEAN PROCEDURE •- DECLARED IN SfGMENT 3 AT 05206000 

♦05210000* 07508000 07554000 07599000 10912100 
LOCALS •- REAL ARRAY -- DECLARED IN SEGMENT 143 AT 14024000 

14050000 
LOcaLv — DEFINE •- DECLARED IN SEGMENT 3 AT 0)249000 

14396000 
LOCBEGIN •• DEFINE — DECLARED iN SEGMfNT 143 AT 14022000 

14050000 
LOCFLD " DEFINE — DECLARED IN SEGMENT 157 AT 16004000 

I6138OOO 
LOCKSTMT "- PROCEDURE »•- DECLARED IN SEGMfNT 3 AT 08701000 -- FORWARD AT 03065000 

07744000 08755000 
LOCKTOG •• BOOLEAN -- DECLARED IN SEGMENT 9? AT 08365600 

♦08390000* 08391000 08418600 
LOcKTOG •", BOOLEAN -- DECLARED IN SEGMENT 97 AT 06591600 

♦06592000* 08613?00 
LOCKV — DEFINE -• DECLARED IN SEGMENT 3 aT 01220000 

06390000 06592000 

LOCLID — DEFINE — DECLARED IN SEGMENT 3 AT 0li79000 

OroeiOOO 07230000 14391OOO 14409000 14435000 16l98000 I6212OOO 162?5000 16282000 16317000 16326100 

16330000 16335000 16340000 16368000 16406000 16479000 l6A82a00 17095310 - 

LOCV — DEFINE -• DECLARED IN SEGMENT 3 AT 01247000 



16336000 16339000 
LOD •- DFFINf — DrrLARED IN SEGMENT 3 AT 01656000 

04076000 04077000 04523000 05143000 05177000 05166000 05187600 05201000 05227000 05316000 07116000 

07122530 07217510 07225000 07311000 07358000 07420000 07421000 07463500 07469750 07470500 07515000 

07529200 07618000 07859060 08079000 08401060 08402000 08489520 08489550 08493860 09515000 08597600 

08605000 08695000 08696520 08728500 06660750 089l0000 08915000 08917000 08970QOO 08976000 06980000 

08989000 08992000 1O636OOO 10868000 10889000 10890000 15009000 15O1OOOO 15267000 I529i000 15322000 

15324000 
tODPOfNT -- LABEl "- DFCUAReD IN SEGMENT 70 AT 07066000 — OCCURS AT 07222000 

07257000 07264000 07275000 07279000 07313000 07336000 07348000 
LOGI — DFFINE •- DrCLARED IN SEGMENT 3 AT 01569000 

04076000 
LOLD -" INTEGER -" DECLARED IN SEGMENT 143 AT 14030000 

♦14054000* 14595000 
lOOK — BOOLEAN STREAM PROCEDURE "• DECLARED IN SeqMENT 3 AT 02001020 

02001220 O2OOI46O *02001540* O2OO16OO 020i3295 
LOOP -- STREAM Label -- OECUARfD I^ segment 3 at O2OOIO8O -- occurs AT 02001120 

02001563 O2OO158O 
LOOP -- Label -- declared in segment 81 at 07646410 -• occurs at 07646470 

07646495 07646535 07646555 
LOR •• DEFINE •- DECLARED IN SEGMENT 3 AT 0i659000 

08413060 08416022 O863OOOO 10960000 
LOWBD •• LABEL -' DECLARED iN SEGMENT 70 AT 07065000 -«. OCCURS AT 07165000 

07201000 
LOWER •- REAL -- VALUE PARAMETER "- DECLARED iN SEGMENT 3 AT 05299000 

05297000 05296000 05304000 
LP '•• LABEL -- DECLARED IN SEGMENT 70 aT 07066000 — OCCURS AT 07276000 

07340000 
LPROC -• LABEL "- DfCLaRED iN SEGMENT 85 aT 07716000 -- OCCURS AT 07736000 

0772000© 07721000 

L,pRT — Real -- declared in segment 3 at 01483000 

14450000 ♦16049000**16075000* 
LREAD «•• LABEL •- DECLARED iN SEGMENT 85 aT 077i6000 •« OCCURS AT 07740000 

077?4000 
LRELSe — LABEL — DECLARED IN SEGMENT 85 AT 07718000 -- OCCURS AT 07753000 

07727000 

LRTS — Label — declared in segment 7o at 07065000 -- occurs at 07i38000 

07209000 

LRTS -" Label — declared in segment 122 at 10292000 -- occurs at 10329000 

10322000 
LRWND — LABEL -• DECLARED fN SEGMENT 85 aT 077i7000 -- OCCURS AT 07745000 

07725000 
LS •• REAL -- DECLARED IN SEGMENT 140 AT i3737000 

*13738000**13752000* 13772000 
LSPACE -» LAPEL -• DECLARED IN SEGMENT 85 AT 07717000 -• OCCURS AT 07742000 

07724000 
LSPROC -• LABEL — DECLARED IN SEGMENT 85 AT 07716000 w OCCURS AT 07737000 

07720000 
LSS •- DEFINE •- DECLARED IN SeqMeNT 3 AT O166IOOO 

06072080 
LSS — DEFINE — DECLARED IN SEGMENT 167 aT 17002000 

17117400 
LSTR •- INTEGER -• DECLARED IN SEGMENT 3 AT 01723000 

10330000 *10350000* 
USTRTn — DEFINE -• DECLARED IN SEGMENT 3 AT 0J430000 

10302000 )0350000 10360000 
tSTSEO — STREAM VARIABLE "" NAME PaRAMETeR — DECLARED IN SEGMENT 45 AT 05016000 -... - 

05020000 05023000 05024200 



ustusd 

ITAPE 
LTeMP 
LTEMP 
LTFMP 

ltemp 

UTpMP 
ITLCR 
LVaR ' 
LVL •' 

LWHiLr 
UWRBNn 

UwRflNn 
UWRlTr 

UX — 

Ul — 

Ul -- 

LI — 

Ul "- 

Ul — 

Ul "• 

Ul •" 

Ul •• 

Ul — 

Ul — 

Ul "• 

UIO -' 



OCCURS AT 02195500 



nECLARED IN SEGMENT lOO aT 08837000 



OCCURS AT 07738000 



-* DEFINE •- DFCLAREO IN SEGMENT 3 AT 01561090 

020t3fl60 02013565 
-- LABEL -- DfCLARFD IN SEGMENT U aT 02191000 

02191250 
*- HEFINE -- DECLARED iN SEGMENT H9 AT 05l63000 

05167000 
-• DEFINE -- DECLARED IN SEGMENT 98 AT 08717000 

08737000 
-- DEFINE -- DECLARED IN SEGMENT 99 AT 08776000 

06800000 

"- DEFINE 
08857000 

-'• DEFINE — DECLARED IN SEGMENT 153 aT 15030000 

15033000 15037000 
•- tNTEGER -- DECLARED IN SEGMENT 3 AT 01561120 
♦02013705* 02013713 02208250 02223750 02224750 
'» LABEL •- OErLAREO IN SEGMENT 85 AT 07716000 ^» 
07721000 07722000 07723000 

■ DEFINE •• DECLARED IN SfgMENT 3 AT OilSlOOO 

05U6000 05208000 06359000 0/926l00 10644000 l06560iO 10965000 13204000 i38i9400 13911400 l6l7l000 

16265000 

-- LABEL -- DECLARED IN SEGMENT 85 AT 07717000 -- OCCURS AT 07748000 

07725000 

*• DEFINE -• DECLARED IN SEGMENT 125 AT 10755000 

10814000 10818000 I08l9000 10820000 10821000 10839000 10843000 10844000 10845000 10846000 

" DEFINE •- DECLARED IN SEGMENT 156 AT 15204000 

15246000 15248000 15249000 

— Label -- declared in segment 85 at 07716000 -- occurs at 07741000 

07724000 

LABEL — DECLARED IN SEGMENT 126 AT 10956000 — OCCURS AT 10965000 

10970000 

LABEL " DECUaRED IN SEGMENT 55 AT 05S34000 " OCCURS AT 05355000 

05364000 05366000 

LABfL -- DECLARED IN SEGMENT 57 AT O6O6O11O -- OCCURS AT 06062210 

06062155 

Label -- declared in segment 64 at 06313500 -• occurs at 06318500 

06314700 

uabeu - 

09305100 

UaBfU -- OECLaRfd in segment 119 at 10085000 

10155000 10155500 

LABEL -- DECLARED IN SEGMENT l27 AT IgOOSOOO 

12057000 

UABEU -- DECUaRED IN SEGMENT 128 AT 14060300 

12061300 12065000 

UABEU -• DECUaRED IN SEGMpNT l55 AT I5O88OOO 

15116100 

UABFU -- DECUaRFD IN SEGMENT l64 AT 16313000 — OCCURS AT 16349000 
16353000 

UABFU -- DECUaRED IN SEGMENT l65 AT 16365000 — OCCURS AT 16397000 
16372000 

UABfU -- DECLARED IN SEGMeNT 157 aT 16475000 — OCCURS AT 16484000 
16480000 
' UABEU -- DECLARED iN SEGMENT 61 AT 06216000 — OCCURS AT 06228000 
06220000 

■ UABEU — DECLARED IN SEGMENT 70 aT 07069000 — OCCURS AT 07273000 
07073000 



DECLARED IN SEGMENT 104 AT 09025000 



OCCURS AT 09292000 

Occurs at ioi58ooo 

occurs at 12009000 

occurs at 12060550 

occurs at 15092000 



m 



LIO • 

LU - 

Lll - 

un - 

112 - 

L12 - 

U12 - 

U13 - 

Ll3 - 

L13 - 

LJ4 • 

U14 - 

LIO - 

H5 - 

L15 - 

U15 .' 

U16 -' 

L.16 -' 

L16 - 

117 - 

LIT m' 

L17 -" 

L18 - 

Lia. - 

U18 -< 

U19 •• 

119 .. 

L19 -- 

12 "•• 



LareL 

16076000 

IareL 
06086000 

labfl. 

06220000 

UAREL 
07073000 

UABEt 
06066000 

Label 

06220000 

larel 

07073000 

tABEL 
06086000 

LABEL - 
062?0000 

LABEL - 
07073000 

LABEL - 
06086000 

LABEL - 
06220000 

Label - 

07073000 

Label ■ 

06086000 

Label - 

06220000 
LABEL - 

07073000 
LABEL - 

06086000 

Label - 

06220000 

Label - 

07073000 

LABEL - 
06086000 

LABEL - 
06220000 

LABEL - 
07073000 

LABEL - 
06086000 

LABEL - 
06220000 

Label - 

07074000 

Label - 

06086000 

LABEL - 
06220000 

LABEL - 
07074000 
LABEL -- 
05362000 



- DECIARFO 

• DECLARFD 

- DECLARFD 
06226000 

• DECLARED 

- DECLARED 

- DECLARED 

• DECLARED 

- DECLARED 

• DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 

- DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 



IN SEGMENT 157 AT 16475000 
IN SEGMENT 56 AT 06062000 
IN SEGMENT 61 AT 0^216000 
IN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06062000 
IN SEGMENT 61 AT 06216000 
IN SEGMENT 70 aT 07069000 
iN SEGMENT 58 aT 06062000 
IN SEGMENT 6i AT 06216000 
IN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06062000 
IN SEGMENT 61 AT 06216000 
IN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06082000 
IN SEGMENT 6l AT 06216000 
IN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06082000 
IN SEGMENT 61 AT 06216000 
iN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06082000 
IN SEGMENT 6l AT 06216000 
IN SEGMENT 70 AT 07069000 
IN SEGMENT 58 AT 06082000 
IN SEGMENT 61 AT 06216000 
IN SEGMENT 70 AT 07070000 
IN SEGMENT 58 aT 06082000 
IN SEGMENT 61 AT 06216000 
IN SEGMENT 70 AT 07070000 



DECLARED IN SEGMENT 55 AT 05334000 -- 



•- occurs at 16493000 

'- Occurs at 06096000 

•• Occurs at 06235000 

■• Occurs at o73i4ooo 

- Occurs at O6093000 

- occurs at 06228000 

- occurs at 07219000 

■• Occurs at 06093000 

'- occurs at 06242000 

• occurs at 07219000 

- occurs at 06099000 

- Occurs at 06235000 

- Occurs at 07219000 

- Occurs at 06099000 

- Occurs at 06235000 

• occurs at 07219000 

• occurs at 06099000 

- occurs at 06235000 

• Occurs at 07219000 

- Occurs at 06093000 

- occurs at 06245000 

- occurs at 07325000 

- OCCURS at 06102000 

- Occurs at 06235000 

- Occurs at 07325000 

• Occurs at 06102Q00 

- OCCURS at 06235000 

- OCCURS at 07322000 
OCCURS AT 05373000 



a 



L2 "• 

12 — 

L2 -•- 

1.2 -• 

L2 -- 

12 — 

L20 - 

L20 - 

U20 -' 

U21 - 

U21 — 

U2l •• 

U22 - 

L22 -• 

L22 -« 

L23 - 

L23 -• 

L23 •' 

U24 - 

U24 -' 

L24 - 

L25 •" 

L25 -« 

U25 •" 

L26 •' 

U26 •■ 

126 P- 
L27 -" 

127 - 



tABFL -- 
06062188 
lABFL -- 
06371000 
LABPL -- 
10132000 
LABEL " 
12016000 
LABEL -- 
12064500 

Label -- 

16481000 

Label - 

06087000 

Label - 

06221000 

Label - 

07074000 

Label " 

06087000 

Label - 

06221000 

Label - 

07074000 

Label - 

06087000 
LABEL - 

06291000 
LABEL - 

07074000 
LABEL - 

06087000 

Label - 

06221000 

Label - 

07074000 

Label - 

06087000 

LABEL - 
06221000 

LABEL - 
07074000 

LABEL • 
06087000 

LABEL - 
06221000 

Label - 

07074000 

Label - 

06087000 

LABEL - 
06291000 

LABEL - 
07074000 

LABEL - 
06087000 

LABEL - 



OFCLaREP in segment 57 AT O6O6O11O 

OECLaREH in segment 64 AT 06313500 

DECLARED IN SEGMENT 119 AT 10065000 

1013A600 IOM4000 

DECLARED IN SEGMENT l27 AT 12OO50OO 
12048000 

DECLARED IN SEGMENT 128 AT I2O6O3OO 

DECLARED IN SEGMENT l57 AT 16475000 



• DECLARED 
" DECLARED 

• DECLARfO 

- DECLARED 

- DECLARED 

- DECLARED 

• DECLARED 
06094950 

- DECLARED 

• DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 
DECLARED 
DECLAREO 
DECLARED 



IN SEGMENT 58 AT 06083000 

iN SEGMENT 61 AT 06217000 

IN SEGMENT ^0 AT 07070000 

IN SEGMENT 58 aT 06063000 

IN SEGMENT 61 AT 06217000 

IN SEGMENT 70 AT 07070000 

IN SEGMENT 58 AT 06083000 

iN SEGMENT 61 AT 06217000 

IN SEGMENT 70 AT 07070000 

IN SEGMENT 58 AT 06083000 

iN SEGMENT 61 AT 06217000 

IN SEGMENT 70 AT 07070000 

iN SEGMENT 56 AT 06063000 

iN SEGMENT 61 AT 06217000 

IN SEGMENT 70 AT O7O7OOOO 

IN SEGMENT 58 AT O6O83OOO 

IN SEGMENT 61 AT 06217000 

iN SEGMENT 70 AT 07070000 

IN SEGMENT 58 AT 06083000 

IN SEGMENT 61 AT 0ii2l7000 

IN SEGMENT 70 AT 07070000 

IN SEGMENT 58 AT O6O83OOO 

IN SEGMENT 61 AT 06217000 



• OCCURS AT 06062165 

• OCCURS AT 06328000 

•- OCCURS AT 10172000 

'- occurs at 12055000 

- occurs at 12064900 
'- occurs at 16485000 
•• Occurs at 06102000 
■• Occurs at 06235000 
■• Occurs at 07322000 

- occurs at 06093000 

■- Occurs at 06248ooo 

"■ Occurs at 07344000 

■- Occurs at 06105000 

- occurs at 06235000 
■- occurs at 07344000 

- occurs at 06105000 

- occurs at 06235000 
■- occurs at 07341000 
'- occurs at 06105000 

- occurs at 06235000 
•- occurs at 07341000 

- occurs at 06093000 

- occurs at 06248000 

- OCCURS AT 07356000 

- OCCURS AT 06105000 

•- OCCURS AT 06235000 

•• OCCURS AT 07356000 

- OCCURS AT 06105000 

'- OCCURS AT 06235000 



m 







06221000 


L27 




Label - 

07074000 


L26 




Label - 

06087000 


L28 




LABEL - 
06221000 


L28 




LABEL « 
07074000 


L29 




LABEL - 
06087005 


L29 




Label - 

06221000 


L29 




Label - 

07074000 


L3 


"m 


LABEL " 
06062500 


L3 


Wo 


LABEL " 
06330500 


L3 


«•■• 


LABEL -' 
10167000 


L3 


** w 


Label -- 

12026000 


L3 


• I* 


Label -- 

12063600 


L3 


■>• 


Label -- 

16476000 


L30 




Label -■ 

06088000 


L30 




Label -■ 

06222000 


L30 




Label -■ 

07074000 


L31 




Label -• 

06068000 


L31 




Label -■ 

06222000 


L31 




Label - 

07075000 


L32 




LABEL -' 
06088000 


L32 




LABEL -■ 
06222000 


L32 




LABEL - 
07075000 


L33 




LABEL -• 
06088000 


L33 




Label -• 

06222000 


L33 




Label -• 

07075000 


L34 




Label -- 

06086000 


L34 




LAB^L - 
06222000 


L35 




Label -■ 

06098000 


L35 




Label -■ 



• declared in segment 70 AT 07070000 

■ declared in Segment se at O6O83000 
• declared in Segment 61 at 062i7ooo 

■ DECLARED IN SEGMENT 70 AT 07070000 

• DECLARED iN SEGMENT 58 AT 06083000 
" DECLARED IN SEGMENT 61 AT 06217000 
' DECLARED iN SEGMENT 70 AT 07070000 

DECLARED IN SEGMENT 57 AT O6O6O11O 

DECLARED IN SEGMENT 64 AT 06313500 

DECLARED IN SEGMENT ll9 AT 10085000 

DECLARED IN SEGMENT 127 AT 12005000 
12039000 
DECLARED IN SEGMENT 128 aT 12060300 

DECLARED IN SEGMeNT 157 aT 16475000 

- DECLARED IN SEGMENT 58 AT 06084000 

- DECLARED iN SEGMENT 6l AT 06218000 
DECLARED IN SEGMENT 70 AT 07070000 
DECLARED IN SEGMENT 58 AT 06084000 
DECLARED IN SEGMENT 6l aT 06218000 
DECLARED iN SEGMENT 70 AT 07071000 
DECLARED iN SEGMENT 58 AT O6O84OOO 
DECLARED IN SEGMENT 61 AT 06218000 
DECLARED IN SEGMENT 70 AT 07071000 
DECLARED IN SEGMENT 58 AT 06084000 
DECLARED iN SEGMENT 61 AT 06218000 
DECLARED iN SEGMENT 70 AT 07071000 
DECLARED IN SEGMENT 58 AT 06064000 
DECLARED IN SEGMENT 61 aT 06218000 
DECLARED iN SEGMENT 58 AT 06084000 
DECLARED IN SEGMENT 61 aT 06218000 



■• occurs at 07353000 

— occurs at 06105000 

— occurs at 06235000 

— occurs at 07353000 
-- occurs at 06093000 

— occurs at 06251000 

— occurs at 07372000 
•- occurs at 06062135 
-- occurs at 06331500 

— occurs at 10170000 
-- occurs at 12056000 
-- occurs at 12065000 

— occurs at 16486000 
-- occurs at 06093000 
— . occurs at 06254000 
-- Occurs at 07375000 

— Occurs at 06111000 

— Occurs at 06236000 

— Occurs at 07383000 

— occurs at 06108000 
"- occurs AT 06236500 
•• OCCURS AT 07378000 
•- OCCURS AT 06111000 
-- OCCURS AT 06236000 
-- OCCURS AT 07383000 
-- OCCURS AT 06122000 
-' OCCURS AT 06257000 
•- OCCURS AT 06114000 

— OCCURS AT 06232000 



14 
L4 
L4 

U4 - 

L5 - 

L5 • 

L5 • 

U6 • 

L6 • 

L7 - 

17 - 

U8 • 

L8 • 

U9 - 

U9 . - 

L9 - 

M -• 

MACRO 
MACRO 



DECIaRPD 1N segment 70 AT 0^069000 -- OCCURS AT 07223000 

■- OCCURS AT 12025000 



06222000 
•• LABrL. - 
07073000 

— UABpL " DECLaRFD in SEGMENT l27 AT IgOOSOOO 
12041140 

— LABEL — DECLARED TN SEGMENT 1?8 AT 1^060300 — OCCURS AT 12061300 
12061800 

-• LABEL 

16476000 

— LABfL — DECLaREH in SEGMENT 70 aT 07069000 
07073000 

•• Label - 

12064000 

— LABEL " DECLARED IN SEGMENT l57 AT 16475000 
16476000 

•• LABEL - 

07073000 
•- LABEL - 

16476000 

— LABEL -- DECLARED IN SEGMENT 70 aT 07069000 -• OCCURS AT 07258000 



- DECLARED IN SEGMENT l57 AT 16475000 



DECLARED IN SEGMENT 126 AT 12060300 - 



OCCURS AT 16487000 
OCCURS aT 07245000 

Occurs at i20618oo 



-• occurs at 16488000 
DECLARED IN SEGMENT 70 aT 07069000 -- OCCURS AT 07252000 
DECLARED IN SEGMENT l57 AT 16475000 — OCCURS AT 16489000 



07073000 

Label -• 



DECLARED IN SEGMENT l57 AT 16475000 •- OCCURS AT 16491000 

DECLARED IN SEGMENT 61 AT 06215000 -- OCCURS AT 06251000 

DECLARED IN SEGMENT 70 AT 07069000 -- OCCURS AT 07262000 

- OCCURS AT 16492000 



- DECLARED IN SEGMENT 1 57 AT 16475000 -- OCCURS AT 16490000 
16476000 16482000 

LABEL — DECLARED iN SEGMENT 70 aT 07069000 -- OCCURS AT 07223000 
07073000 
LABEL -- 
16476000 
LABEL -- 
06219QQ0 
LABEL -- 
07073000 

LABEL -- DECLARED IN SEGMENT l57 AT 16475000 
164^6000 
rOOLfaN -• DECLARED iN SEGMENT 55 AT 05343000 
*05353O00* 05355000 05357000 *0535900o**05365000* 
REAL — DECLARED IN SEGMENT 131 AT 13039000 
♦13074000**13076000* 13111000 

— REAL ARRAY — DECLaRED IN SEGMENT 3 AT 01487000 
♦09215000* 16346000 16349000 

••- BOOLEAN — VALUE PaRAMeTeR •- DECLARED IN SEGMENT 3 AT 10228000 
10263600 10276500 
MACROtO "- BOOLEAN <-• DECLARED IN SEGMENT 3 AT 01717800 

02882100 02913000 * 121 07000** 121 27000* 13305200 •14265900**14266100* 
MaKcAST — DEFINE — DFCLaReD IN SEGMENT 3 aT 02181500 

02229000 02230750 02908000 
MaKeALABEU -- PROCEDURE -" DECLARED IN SEcMfNT 3 AT 06500000 

07686000 
MAKePaRaM — STREAM PROCEDURE — DECLARED IN SEGMENT 130 AT 12154000 

12161000 12162000 
MAKEUPACCUM — PROCEDURE -- DECLARED IN SEGMENT 3 AT 13368000 -- FORWARD AT 01627000 

13349000 13917000 14507140 06285600 062fl9400 *06289B00* 
MARK — RfAL — DECLARED iN SEGMENT 3 AT 01615000 

14116300 14117000 ♦143l4000**143l90O0* 1433310P 14334000 14374000 1443Q000 14451000 144630D0 
MaRKMONiTORfD — LABEL -- DECLARED IN SEGMENT 124 AT 10553000 " OCCURS AT 10573000 

10667000 
MASK — BOOLEAN STREAM PROCEDURE "- DECLARED IN SEGMENT 55 AT 0534|000 
05342000 05348000 05353000 



Match • 

MAXLCR 

MAXLTLCR 

MAXROW 

maxsave 

maxstack 

maxstack 

MAXTLcR 
MaXV — 
MAYI — 
MCPBIT 
McPTOf, 

Morse 
mds •• 

MEDIUM 



* 
MERGEBIT 

MERSE! 

meRgeopt 
mergestm 

MERGETOfi 
MERRIMAC 

MIN "- 
MKaBS 

MKS •• 



MODE 
MON 



- OEFINF 
17091B00 

— Real 

02198500 

— INT 
02013527 

— integ 

13537000* 
*- INTE 
13533000 

"" Rea 

09032000* 
— Rf 

H277000* 
-• INTE 
02208500 

dfeine 

06072080 

BOOLEAN 
08401045* 
"• OEFIN 
02397000 
" DEFIN 

- STREAM 
09352000 

DEFINE 
13767300 

•" ALPHA 
02013566* 
02238720* 

— DEF 
01835600 
•- OEFIN 
08906000 
ION " 
02428000 

T — PR 
07827000 

'- DEF 
01835600 

•<- BOO 
10565200* 

INTEGER 
01828000* 
REAL S 
01734000* 
02214000 
02903000 

DEFINE 
04075000 
07408000 
08906000 
13159000 

INTEGER 
05115000 
14303000* 

DEFINE 
02896000 



— DECLARED IN SEGMENT 177 AT 17091115 
06061100 

-- naMf Parameter -- declared in segment n at 02193750 -• occurs at 05072010 

02199750 *0?200500**02202000* 
EGFR -• DECLARED IN SEGMENT 3 AT 01561120 
♦02013710* 02208250 02223750 
ER " DECLARED IN SEGMENT 3 AT 01684000 

GER -- DECLARED IN SEGMENT 3 AT 01598000 

*13534000* 

L — DFCLAREO IN SEGMENT 3 AT 01683000 

13230000 *13231000**137480001' 13750000 14277000 * 14478040**ia502000* 14535000 #14536000* 14567000 
AL — DECLARED IN SEGMENT l43 AT 14029000 

14502000 
GER — DECLARED IN SEGMENT 3 AT 01331000 

02219500 02439000 ♦0?456000* 

-- OFCLaRED in SEGMENT 57 aT 06061200 

"- DECLARED IN SEGMENT 92 AT 08385700 
0B4241OO 084S0100 
E " DECLARED IN SEGMENT 3 AT OlOOlOOO 

E — DEClARED IN SEGMENT 3 AT 01001290 
PROCEdURF -- DECLARED iN SEC.MENT 104 AT 09005000 

•- DECLARED IN SegMeNT 3 AT O16611OO 

i4569?00 
-- DECLARED IN SEGMENT 3 aT 01001580 

02195000 02195750 *02203250**02204250**02205500**022l4 lOO* 0??14200 *02224l00* 02227500 02228750 

05038000 07025020 
INE — DECLARED IN SEGMENT 3 AT OlOOlOlO 

02425000 02425500 02426000 02427000 02428000 02435000 02436000 
E "• DECLARED IN SEGMENT 3 AT 01573100 

08965000 

Label -- declared in segment 21 at o2363ooo -- occurs at 



ocedurf - 

08927000 
INE -- D 

02425500 
LEAN PrOCE 

10680p00 

•- dfcla 

01834000 
TReAM PROC 
02013245 
02215750 
07025010 

•• DErLAR 
05167000 
07418000 
08953000 
13166000 

-- DECL 
05351000 
14478030 

-• oetLaR 

16254000 



• DECLARED IN SEGMENT 3 AT 08901000 -- FORWARD 

FCLARED IN SEGMENT 3 AT 01001300 

02427000 02428000 02436000 
DURE -- DECLARED IN SEGMENT 3 AT 10370000 

14148000 
RED IN SEGMENT 5 AT 01822000 



02437000 
AT 03082000 



EDURe "- DE 

02013528 02 

02216500 02 

07025030 08 

ED IN Segment 

06062110 06 

07441000 07 

08956000 08 

13196400 13 

aRed in SEGHe 

06365000 07 
*14501000* 

ED IN Segment 

16288000 



CLaRED I 
013617 
217750 
948000 

3 AT Oi 
064000 
514000 
985000 
470000 
NT 3 aT 
732000 



N SeGMEN 

02013621 

02221000 

09026000 

662000 

06318500 

07529100 

09272000 

13565000 

014Q2000 

08093000 



T 3 AT 01733000 

02013705 02013710 
02224050 02226000 
13101100 



06328000 
07617000 
10803000 
13904000 



06331700 
06400000 
12041130 
15007000 



02013715 02200500 02202000 
02238582 024i7000 02456000 



06358000 06503000 07111230 
08493570 06513000 06597000 
12064000 



12061700 
15241000 



13053000 



02202050 
02492000 



07111320 
06696400 
13082500 



10618000 13906000 13914000 14176000 14229000 14241000 



3 AT 01147000 



MONiTORrEC -- LABEL •- DECLARED IN SEGMENT l43 AT 140HOOO -- OCCURS AT 14142000 
140i9000 

MONiTORv •- DEFINE — DECLARED IN SEGMENT 3 AT 01291000 

14129000 
MOVE "m STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 01735000 

01736300 02013250 02013275 02013520 020i3525 02013615 02013697 02212250 02366100 02602600 02916000 

02927530 02927540 02927570 02927610 02927620 04147000 05039500 05056000 07029000 07666500 07673000 

07675000 07697000 09314000 09395000 09407000 10071000 13281000 13310000 14050000 14259000 14259080 

14440000 14507040 14507105 14507170 
MOVFANOpLOcK •- iNTperR PROcEDURf *" DFCLaRfD IN SEGMpNT 3 AT 02927100 

*029274l0* 02927770 09396000 09399000 09399i00 09402000 09407010 1364OOOO 13654000 
MOVEChARACTfRS — STRfAM procedure -- DECLARED IN SEGMENT 2 AT 00515000 

00522000 02705000 02776300 02777050 0278l000 07673500 07677000 09415000 09416000 16349000 16384000 

16392000 
MOVCCODF — STREAM PROCFDURE -- DECLARED tN SEGMENT 3 AT O1688OIO 

07646630 07646690 07694000 07698500 08860i50 08860450 13777600 138185OO 14O490OO 14594OOO 14595000 
MOVEIT — LABEL -- DECLARED IN SEGMENT 27 AT 02638000 -- OCCURS AT 02704000 
MOVEXREFlNrO -- STREAM PROCEDURE -- DECLARED IN SEGMENT 7 AT 02001760 

02001785 02001805 
MRcLEaN -- BOOLEAN -- DECLARED iN SEGMENT 3 AT 01379000 

04164000 ♦09040000* 04064000 O4O67OOO 08049000 12061725 
MULFin "•- STRfaM VARIABLE -• VALUE PARAMETER -- DECLARED IN SEGMENT 131 AT 13020000 

13021000 13027000 

MULFiD — Real •- declared in segment ui at 13039000 

*1308l000**l3097000* 13102000 
MULOP -•• DEFINE •- DECLARED IN SEGMENT 3 AT 01277000 

08435000 08437000 08653120 08653125 08653180 08653195 12022000 12061500 
MVF •- STREAM PROCEDURE -- DECLARED IN SEGMENT 15 AT 02238180 

02238385 02238440 
MVFWO ••■ STREAM PROCEDURE — DECLARED IN SEGMENT 15 AT 02238212 

02238580 
MYCLASS — INTEGER — DECLARED IN SEGMENT 3 AT 01001590 

♦02968000* 02971000 ♦02974500* 02975000 02976500 02977500 *02978500* 02982000 02983000 
MO •• STRfAM LABEt -- DECLARED iN SEGMENT 54 AT 05325080 -- OCCURS AT 05325320 

05325240 
Ml •• STREAM LABEL -- DECLARED iN SEGMENT 54 AT 05325080 — OCCURS AT 05325350 

05325250 
M2 •- STREAM LABEL -- DECLARED iN SEGMENT 54 AT 05325080 — OCCURS AT 05325360 

05325260 
M3 •- STREAM LABEL -- DECLARED IN SEGMENT 54 AT 05325080 -- OCCURS AT 05325380 

05325270 
M4 -• STREAM LABEL •- DECLARED IN SEGMENT 54 AT 05325080 -- OCCURS AT 05325390 

05325280 
M4 •• PROCEDURE — DECLARED IN SEGMENT 156 AT 15215000 

15290000 15303000 

M5 — strfam Label -- declared in segment 54 at 05325080 -- occurs at 05325400 

05325290 
M6 •« stream label — DECLARED iN SEGMENT 54 AT 05325080 -- OCCURS AT 05325410 

05325300 
M7 -- STREAM LABEL — DECLARED IN SEGMENT 54 AT 05325080 — OCCURS AT 05325420 

05325310 

N •* STREAM Variable -- value parameter -- declared in segment 2 at 00515000 

00516000 00521000 

N •• REAL — DECLARED TN SEGMENT 3 AT 01693000 

♦ 14099000* 14100000 HlOlOOO 14104000 l4i08000 14109000 ♦MUIOOO* 
N — INTEGER -• VALUE PARAMETER -" DECLaRfD IN SEGMENT 3 AJ 01717950 
N «•• STREAM VARIABLE -- VALUE PaRAMeTeR -• DECLARED IN SEGMENT 3 AT 01737350 



^ 01737450 

HI N •• STREAM VARIABLE -- DECLARfD IN SEGMENT 3 AT 01759000 

017*0000 01779000 *0i78i000* 
N — STREAM VARIABLE " VALUE PARAMETER -- DECLARED IN SEGMENT 7 AT 0?00l760 

02001765 02001780 
N — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 02001831 
02001833 

N — tNTEQER -- VALUE PARAMETER "- DECLARED IN SEGMENT 8 AT 020131^6 

. 02013180 
N — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 12 AT 02196530 

02196560 
N <•• tNTeseR -- DECLARED iN SEGMENT 16 AT 02249000 

*0225l000**02252000* 02255000 02259000 
N — STREAM VARIABLE " VALUE PARAMETER -" DECLARED IN SEGMENT 17 AT 02264*00 

02264550 
N — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 17 AT 02264700 

02264850 
N — STREAM VARIABLE -- VALUE PARAMETER m" DECLARED IN SEGMENT 29 AT 02927240 

02927270 
N •- REAL ■•- VALUE PARAMETER *■- DECLARED iN SEGMENT 3 AT 03061010 
N •• REAL — DECLARED IN SEGMENT 40 AT 04204000 

♦04208000* 04209000 04221000 04223000 
N — tNTegER -- DECLARED IN SEGMENT 4l AT 04237000 

*04238000* 04239000 ♦04240000* 
N — tNTEqER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05325010 
05325466 05325470 05325480 

N — STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 54 AT 05325040 

05325050 05325230 
N — BOOLEAN -- DECLARED IN SEGMENT 59 AT 06151000 

♦06152000* 06154000 
N — REAU — DECLARED IN SEGMENT 81 AT 07646390 

♦07646420^ 07646490 *07646495**07646510* 0764654b *07646548**07646556* 07646670 
N •- REAL "• DECI-ARfD TN SEGMENT 86 AT 07802000 

♦07920000**07821200**07823000^*07825000* 07904000 07912000 
N — REAL — VALUE PARAMETER -- DECLaRED IN SEGMENT 3 AT 08493470 

08493520 08493705 08493770 08493840 
N •■- REAL — DECLARrn IN SEGMENT 120 AT 10258100 

♦10264650* 10264760 10264810 
N — REAL -• OECIAReD IN SEGMENT 126 AT 10957000 

10967000 *10968000**10971000* 10972000 *l0978000* 10979000 *10987000* 10989000 *10990000**10995000* 10996000 
IIOOIOOO 
N •• INTEGER '- VALUE PaRA^eTeR "" DFCLaRfO IN SEGMpNT 3 AT 12151000 

12150000 12151000 12163000 
N •• STREAM VARIABLE — VaLUE PaRaMeTER -• DECLARED IN SEGMENT 130 AT 12154000 

12158000 

N — STREAM VARIABLE — VALUE PaRAMeTER -- DECLARED IN SEGMENT 131 AT 13020000 

13021000 13031000 ♦13034000* 13036000 
N — REAL — DECLARED IN SEGMENT 134 AT 13221000 

♦13258000* 13265000 13271000 
N •- STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 172 AT 17051400 

17051500 17051900 
NAME •- REAL -• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02927110 
02927100 02927110 02927430 02927440 02927460 

m — REAL -- DECLARED IN SEGMENT 148 AT H26906P 

♦14269448^*14269540* 14269560 14269600 
NBITF •• OEFINe — DECLARED IN SEGMENT 3 AT 01154300 

05273400 05274200 06313700 06314200 14269448 14269600 
NCII •- INTEGER -- DECLARED IN SEGMENT 3 AT 01624000 



♦ 04177000**13228000* 13^50000 13764000 14056000 *14057000* 14560000 l((567000 ♦14611000* 
NCIIO -- TNTFGrR -- DECLARED IN SEGMENT l43 AT 14031000 

♦14056000* 14611000 
NCR — STREAM VARIABLf -" VaLUe PaRaMeTER -- DECLARED IN SEGMENT 2 AT 00511000 

00512000 
NCR •• INTEGER -'• DECLARED IN SEGMENT 3 AT 01330000 

02013313 02013317 020i3445 02013527 02013526 ♦020l36l7^*020l 3620**020l 37l5* 02128500 02129000 02129500 
♦02213000^*02214000^*02225250**02229000*^02230750* 02410000 02485000 02665000 02680000 02696000 02697000 
♦02720000^ 02730000 02731000 02745000 02750000 02753000 02761000 02769000 02786000 0279i000 02807000 
02813000 02888000 02902000 ♦02903000* 02936000 02940000 02946000 10167400 10167600 
NCR -- STREAM vARlABLr -- VALue PaRaMeteR -"DECLARED IN SEGMENT 3 AT 01756000 

0l76l000 *0i768000**0i773000* 0i780000 
NCR •• STREAM VARIABLE — NAME PARAMETER -- DECLARED IN SEGMENT lO AT 02089500 

02126000 
NCR — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02183500 
02183750 02164500 

NCRLINK — DEFINE -- DECLARED IN SEGMENT 3 AT 01561110 

02013530 02013620 

NCRV "- STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 02090000 

02090500 02092500 *02102000* 02124500 
NDIV32 — STREAM VARIABLE -- VaLUE PARAMETER -- DECLARED IN SEGMENT 3 AT 01737000 

01737050 0l737i50 
NED »•• STREAM LABEL f DECLARED IN SEGMENT 3 AT 0l74260a -- OCCURS AT 01743100 

01742900 
NEQ — DEFINE -- DECLARED IN SEGMENT 3 AT 0i664000 

06069000 
NEO •- DEFINE -- DECLARED IN SEGMENT 167 aT 17002000 
NESTBfT — DEFINE -- DECLARED IN SEGMENT 3 AT 0l00l020 

02472POO 
NESTLeVfL -* REAL -• DECLARED IN SEGMENT 3 AT 01464000 

*161?6000**16142000* 16166000 16l7i000 16260000 16265000 
NeSTOg — DEFINE " DECLARED IN SEGMENT 3 AT OjOOniO 
NESTS •- PROCEDURE -- DECLARED iN SEGMENT 157 AT 16115000 

16144000 16484000 

NEW — STREAM VARIABLE -- NaME PARAMETER -- DECLARED IN SEGMENT 3 AT 02016000 
020i8000 

NEWBASE — BOOLEAN — DECLARED JN SEGMENT 3 AT 01001490 

02192000 *02l92500**02563000**09028920* 
NEWBIT — DEFINE " DECLARED IN SEGMENT 3 AT 01001030 

02193750 02238570 02388000 09275300 
NEWID — DEFINE -- DECLARED IN SEGMENT 167 AT 17002009 

17080000 
NeWINcL — DEFINE — DECLA^FD IN SEqMENT 3 aT 0l00l330 
NCWINcLbiT -• DEFINE -- DECLARED IN SEGMENT 3 AT OIOO1O4O 
NEWiNX •• INTEGER -- DECLARED IN SEGMENT 3 AT O1OOO86O 

♦0936l005^ 09361080 09361100 
NEWTAPE -- FILE ••' DECLARED IN SEGMENT 3 AT 0156O000 

02194000 02238590 09275500 09407400 
NEWTOg — DEFINE — DECLARED IN SEGMENT 3 AT 01001320 

02193750 02238570 09275300 ' 

NEXT •• INTEGER PROCEDURE — DECLARED IN SEGMENT 3 AT 02956000 

♦02968000^ 02968500 02974500 02978500 
NEXT — . Label -- declared in segment 156 at I5ia4000 — OCCURS AI 15253000. 

15292000 
NCXTENT — PROCEDURE ■»- DECLARED IN SeqMENT 3 AT 02932000 

02954000 10112000 J0113200 10U600D 10123000 10134520 I0l34540 10150120 10150150 10150165 1Q150195 

10158000 10167700 10172000 10178000 



m 



13566000 * 
H329000 t 

Segment 79 



NEXTENTRY — DEFINE -- DECLARED IN SEGMENT 3 

02013497 02013537 02013536 02013567 
NEXTINFO •- REAL '• DECLARED IN SEGMENT 3 AT 
02265350 04178000 04179000 *09033000** 
13303000 13304000 *13305000* 13308000 
•13312000* 13470000 *13471000* 
♦14248000* 14259094 14319000 
NeXTLtNK — DEFINE -- DECLARED iN 

07607000 07609000 
NEXTSaVf — BOOLEAN -- DECLARED IN SEGMENT 
*l4276000**lft29fli00**i4295l00* H3ui00 
NEXTTpXT -- INTEGER -- DECLARED IN SEGMENT 3 
♦02723500* 02724000 ♦09251300* 10250000 
14265956 *14574500* 
NHI — REAL -- DECLARED IN SEGMENT 3 AT 0l68 

♦0268l000**02686o00**02785000* 02800000 
NlNpOO " INTEGER "" DECLaReD IN SEGMENT l43 
♦14055300* 14555000 14569000 14573000 

nlab — Real -• declared in segment 15i at i 

*14422000**14437000* 14450000 
NLO -- Real -- DECLARED IN SEGMENT 3 AT 0l6e 
♦0268 1000**02688000* #02785000* 02800000 
• Real -- DECLARED IN SEGMENT 151 AT 1 
*14422000**14433000* 14450000 
— DEFINE -- DECLARED IN SEGMENT 143 A 

14024000 14050000 

— STREAM VARIABLE — VaLUE PARAMETER 



NIOC 
NUOCS 

NM0D32 
NO — 



NO "I 

nodim 
nodim 
nodih 



01737050 

Real -- 

03042000 
REAL -•' 
13634000 

-"• DEFINE 
10583000 

•• DEFINE 
10808000 

— DEFINE 



01737?00 

VALUE Parameter -- declared 

03043000 

VALUE Parameter — declaRfd 

13635000 13639000 13640000 
-- DECLARED IN SEGMENT 124 / 

10584000 10590000 10656030 
— DECLARED IN SEGMENT 125 / 

10827000 10868000 
-- DECLARED IN SEGMENT 156 



AT 01561100 

01620000 
09214510* 09214520 
13309000 13310000 
13567000* 13593000 
14330000**14373000 

AT 07596000 

43 AT 14034100 
14470000 H482000 

AT 0148H00 
10254000 10263000 

9000 

02801000 02833000 
AT 14030000 

4418000 

9000 

02833000 02835000 

4418000 

T 14022000 

-- DECLARED IN 

IN SEGMENT 3 AT 03 

IN SEGMENT 3 AT 13 
13649000 13650000 

J 10513000 
10657000 10658000 

J 10719000 



09214530 
13310200 
*13594000* 
* 14375000 



♦09214980* 10582000 ♦13291000* 13302000 
13310580 13310750 13310950 1331104)0 
13789000 *13795000* 14055300 ♦14214000* 

♦14463000^ 16053000 16055000 16442000 



14487010 
♦10285000^ 



12117000 ♦12118000* 12121000 14055500 



02835000 02838000 02840000 12015000 



02838000 02840000 12014000 



SEGMENT 3 AT 01737000 

044000 

636000 
13652000 



DECLARED IN SEGMENT ! 
07412000 10584000 
DECLARED IN SEGMENT 
02195750 02196590 
07025020 *09028050* 



15244000 
NODIMPART — DEFINE — 

07241000 07361000 

NOHEADING — BOOLEAN -- 

♦O1836OOO* 02195000 

05265000 05325490 
NONbLaNK *- BOOLEAN StREAM PROCEDURE — DfCL 

♦01743200* 01743300 
NONLITNO •- DEFINE — DECLARED iN SEGMENT 3 

03851000 02924000 04178000 062^6600 

16384100 16384700 

Noo -" Real •• value parameter •- declared 

03042000 03043000 

NOO — real — VALUE Parameter -- declared 

13634O00 13635000 13649000 13650000 
NOOFARRaYS "- INTEGER -" DECLARED IN SFGMrNT 

09361040 09361050 ♦13551500^ 
NOP «■• DEFINE "- DECLARED IN SEGMENT 3 AT Ol 

07108500 07108505 07525000 08094000 
NOP -• DEFINE -- DECLARED IN SEGMENT 157 aT 



AT 15185000 



AT 01532000 
10658000 10808000 
3 AT 01001480 
02214200 02227250 
09302000 09408000 
aRED in SEGMENT 3 

AT 01209000 
07669000 08017700 

IN SEGMENT 3 AT 

IN SEGMENT 3 AT 1 

3 AT 01340050 

665000 

10802000 

16012000 



15245000 

02227500 
13633000 
AT 01742200 



08032000 
3044000 
3636000 



02228750 02264950 05039600 05046000 
13648Q00 



08994040 1O593OOO 10926500 i3226QiiO 



n 

v 



16038000 16122000 16227000 
NOPaR -• OEFINF -- nFCLARED IN SEGMENT 124 aT 10546000 

10656030 10657000 10658000 
NOPaRPART -- DEFINE -- DECLARED IN SEGMENT 124 AT 10541000 

10658000 

nopaRtiaL — Label — declared in segment a at 02013175 -- occurs at 02013475 

02013320 

noreLfase — boolfan -- declared in Segment 3 at oi56i2i5 

*02013627*#02134000* 02215500 02216250 *02229l00**02234650**02735000* 
NORMAL •- Label -- declared in segment 42 AT 04311010 — OCCURS AT 04311120 

04311060 04311080 
NORMAL •• Label -- declared in segment 70 at 07065000 — occurs AT 07124000 

07284000 
NORMALRFF -•• DEFINE •• DECLARED IN SEGMENT 3 AT 01007495 

02882200 13310580 
NOROWS •- DEFINE " DECLARED IN SEGMENT 3 AT 01561220 

01961240 
NOTOP •■- DEFINE -" DECLARED IN SEGMENT 3 aT 01268000 

02964000 02974500 06152000 
NSBS •- Label -- DEtLaRED in segment 70 at 07066000 -- OCCURS at 07226000 

07272000 07374000 
NSFGS -- tNTFGfR "- DECLARED IN SEGMENT 29 AT 02927130 

♦02927380* 02927390 
NTeXTO — INTEGER -- DECLARED IN SEGMENT l43 AT 14032500 

♦14055500* 14574500 
NULL — RfAL — DECLARED IN SEGMENT 8l AT 07646390 

*07646420* 07646490 *07646495* 07646560 ^07646565* 07646570 »07646575* 
NUMBER — INTEGER "" VALUE PARAMETER -- DECLARED IN SEGMfNT 3 AT 03033000 

03032000 
NUMBER •" INTEGER " VALUE PaRaMETER — DfCLaRED IN SfGMfNT 3 AT 10165000 

10184000 10185000 10187000 ♦10188000* 10189000 ♦10190000^ 10191000 10192000 
NUMBERS — STREAM LaBfL -- DECLARED IN SEgMfNT lO AT 02091500 -- OCCURS AT 02117000 

02096000 02102500 
NUMUE -- ROOLFAN «■• VALUE PaRAMfTeR — DECLARED iN SEGMENT 89 AT 08080000 

08095000 06162000 06165000 
NUMSEOUfNCEERRORS -- INTEGER — DECLARED tN SEGMENT 3 AT 01000700 

*02226300^*02227600* 09416002 09416004 09416006 
NXTELbT -- INTEGER — DECLARED IN SEGMENT 3 AT 01319000 

02644000 0?9l0000 *029l2000*^029i 7000**08 1 i0000**08l 74000**09038000* 10263400 ♦10263500* 10277000 10282000 
12112000 *12113000* 12125000 
NXTiNfOteMP -- DEFINE — DECLARED IN SfgMfNt 124 AT 10531000 

10582000 10590000 10625000 10627000 10634000 
Nl — ALPHA •- DECLARED iN SEGMENT 5 AT 018^2000 

*0l928500* 01635500 *0ie35800* 
N2 — ALPHA -- DECLARED IN SEGMENT 5 AT O1822OOO 

*0l828500* 01835500 *0i835800* 
OCR — REAL " DECLARED IN SEGMENT l34 aT 13221000 

♦13249000* 13250000 13252000 *13257000* 13262000 13263000 
OCTALwORDS — STREAM PROCEDURE -• DECLARED iN SEGMENT 17 AT 02264400 

02264650 02265100 02265250 02265700 02265950 
OcTALwORDS -- STREAM PROCEDURE -- DECLARED IN SEGMENT 29 AT 02927240 

02927360 02927690 
OCTlZr — BOOLFAN STRfAM PROCEDURE *• DECLARED IN SEGMENT 3 AT 02001836 

♦ 02001852* 02001854 02772000 076775,00 
OLoeNtLPTR -• INTEGER — OECLAReO IN SegMfNT 1«3 AT 14024300 

♦14049200* 14593000 
OLDLASTaODRfSS -- INTfGER -• DECLARED IN SEGMENT 143 AT 14024200 



*14049l00* 14593000 
OLDNINFOO — ReAU -- nrCLARED IN SEGMENT 3 AT 0l6?0400 

♦ 14055250* H6O61OO 
OLDSEQ — STREAM VARIABLE -- VALUf PARAMETER — DECLARED IN SEGMENT 3 AT 017<H?00 
01741400 

°"^^ '"noJlSl^l! ^^^^^I-'L '" ^*'-^f PARAMETER " DECLARED IN SEGMENT 3 AT 02163500 
UZlB3f500?18o750 

OMiTBtT — DEFINE — DECLARED TN SEGMENT 3 AT OlOOlOSO 

« ,. .. 02194250 02195000 02195750 02214200 022?7500 02228750 02235250 0?4?1000 070?50?0 

OMlTTiNr, — DEFINE — DECLARED IN SEGMENT 3 AT 01001340 

02194250 02195000 02195750 0?2U200 02227500 02228750 02235250 07025020 
ONePARFNSH — LABEL — DECLARED IN SEGMENT 97 AT 08576000 "- OCCURS AT 08611000 

086 36000 

OP — INTEGER — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04600000 

04603000 04604000 04605000 O46O6OOO 04607000 
OPaRStZf •- DEFINE -- DECLARED iN SEGMENT 3 AT 01000902 

01000904 02316000 02331000 02525006 
OPBIT -• DEFINE -- DECLARED IN SEGMeNT 156 aT 15199000 

15247000 

oPcLAss •- Real -• declared in segment 35 at 02961000 

*02982000* 02983000 02983500 02984000 
OPcLASS •- integer -- declared iN segment 56 AT 06042000 

♦O6O48OO0* 06050000 06052000 06055000 M 

OPcLASS — INTEGER — DECLARED IN SEGMENT 60 AT 06162000 

♦06188000* 06192000 06196000 06209000 
OPCODF — DEFINE •• DECLARED IN SEGMENT 165 AT )6366000 M 

16379500 
OPDC — DEFINE -- DECLARED IN SEGMENT 89 aT O8O16OOO 

06108000 00130000 08217000 
OPERATOR -- INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04006000 
04007000 

OPERATOR -,. INTEGER *- VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04011000 
O4O1OOOO O4O14OOO 

OPERATOR — INTEGER -- VALUE PARAMETER -* DECLARED IN SEGMENT 3 AT 04030000 

040?fl000 O4O290OO O4O34OOO 
OPERATOR — INTEGER — DECLARED IN SEGMENT 56 AT 06042000 

♦06044000* 06054000 
OPERATOR •- INTEGER "- DECLARED IN SEGMENT 60 AT 06182000 

♦06184000* 06208000 
OPERATOR — INTEGER -- DECLARED IN SEGMENT 62 AT 06282200 

♦06284400* 06289200 
OPINX -• tNTEGFR — DECLARED IN SEGMENT 3 AT 01000800 

♦023il000**023l2000* 023l4000 02316000 023i7000 02334000 02338000 0?342000 02356000 
OPLIT — DEFINE -* DECLARED IN SEGMeNT 124 aT 10522000 

J0598500 10603000 I06i7000 10626000 
OPTIONLfNGTh — SWITCH LABEL — DECLARED iN SEGMENT 21 aT 02364000 
02373000 

OPTIONS -• Real array -- declared in seqment 3 at 01000904 

02312000 *02314000* 023l7000 *0233l000**023340o6**02338000**02352000**0?356000**02426000*»02525007*#09027002* 

OPTiONWORd — BOOLEAN " DEcL-AReD IN SegMeNT 3 aT 01000910 

01835600 »020i3i79**020i3l8i* 02l9iJ,Oo 02193750 02194250 02195000 02i95750 02196590 02214200 02225750 

02226250 02227?50 02227500 02228750 02231500 02232500 ♦02233750* 02234800 02235250 02238570 #02330000* 

*02335000**0?339000**02353000**02357000**02425500* 02427000 02428000 02436000 ♦02525005* 02533000 026fi25aQ 

02882200 02910600 02927420 02927640 04148000 0*150000 04279100 04284100 04297000 05039600 05046000 

05046000 05263000 05265000 05325490 05376100 07025020 07598l00 07646640 07687600 07693500 07835500 

06178100 *09028000* 09275300 09300000 09302000 09407020 09416001 10072000 10075000 13310050 U.ilQ525 

133J0580 13348100 13633100 13646000 13649000 13780002 14060000 14310500 14461500 14469100 14493500 ' 



i 



I 

OPrnr i^°'Jn?° ..^^*^*°°° . ^^^°**°^ 15342300 I6i59l00 16316500 17001000 17094250 1709450O i 

OPTOg — rOOLfaN " DFCLaRCD in segment 102 AT 08903000 ir^^^^ou jruy^soo « 

♦08908000* 08911000 089i3000 
OROP — DrFlNE — DfCLaRED IN SEGMENT 3 AT 01273000 m 

02965000 02984000 • 

°^"f''S -- lABEL — nECLARED IN SEGMENT 57 AT 06060100 — OCCURS AT 06064000 

OUTOEC — LABEL — DFCLARED IN SEGMENT 143 aT 140^000 — OCCURS AT 14159000 ^ 

I40j9000 

OUTPRo -• BOOLEAN — DECLARED IN SEGMENT 1O3 AT 06929000 m 

•08969000* 08977000 08979000 ' 

OUTPROCHECK -- BOOLEAN PROCEDURE — DECLARED IN SEGMENT 3 AT 05395000 

*05396l00**05400000* 08909000 08969000 « 

OUTPUTSOURCF " PROCFDURF — DECLARED IN SEGMENT 3 AT 02190500 ' 

O21965O0 0?230500 02235000 
OUTPUT! — PROCEDURE — DECLARED IN SEGMENT 170 AT 17016000 

17045000 
0UTPUT2 — PROCEDURE — DECLARfD IN SEGMENT 172 AT 17067000 

17096900 17119000 
OUTV -p. DFFINE -- DECLARED \H SEGMENT 3 AT 01289000 
OVER — LABEL — DECLARED IN SEGMENT 132 AT 13196320 -- OCCURS AT 13196610 

13196370 13l96«s30 ^ 

OWNERR JJ^^JBEL - DECLARED IN SEGMENT 143 AT 14013000 - OCCURS AT 14135000 

OWNTOg --stream VARIABLE - VALUE PARAMETER - DECLARED IN SEGMENT 172 AT 17047300 

Ir04r400 17u4Bl00 
OWNV — DEFINE -' DECLARED IN SEGMENT 3 AT 01280000 

13456000 13720000 
P •• REAL — DECLaRfD IN SEGMENT 3 AT 01489000 

♦14335000* 14387000 14430000 14450000 14463000 

^ "'" ^I!H^'^J««"'« t^^^^ PARAMETER " OECLaRfD IN SEGMeNt 3 AT 02635000 

02644000 ♦02917000* 02920000 02923000 02924000 
P — REAL " VALUE PARAMETER " DECLARED IN SEGMENT 3 AT 03074000 
P •• REAL " VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03075000 
P — REAL — DECLARED IN SEGMENT 1?9 AT 12102000 

D..^ *^^^°?°'^°*J2^1^0°° 12121000 12122000 12123000*12123500*12125000 12126000 
Pack — stream procedure '- declared in segment 3 at 04270000 

04276000 04296000 
PACKALPhA — stream PROCEDURE — DECLARED IN SEGMENT 119 AT lOlOOOOO 

10105000 10146000 

PACKiN •- Label — declared in segment 120 at 1.025B300 — occurs at 10264910 

10264000 10264200 10264400 10264420 10264820 v,^, oa iukohviu 
PACKINFO ••' STREAM PROCEDURE — DECLARED tN SEGMENT 121 AT 10236000 

10240000 10251000 10254000 
Pan — format •- declared in segment 117 at 09409000 

09417000 
PANA — procedure " DECLARED IN SEGMENT 3 AT 06413000 -- FORWARD AT 01021000 
D fi u A ^^^^'^^^^ 06067000 060*8000 06071000 06073000 06120200 06233000 06417000 07ll600n 
PARAMTOfi^^j.^^STREAM^VARlABLE - VALUE PARAMETER - DECLARED IN SegMeSt 172 Jt ??S47S5o' ° 

PARENCHFCK -- LABEL — DECLARED IN SEGMENT 73 AT 07461750 — OCCURS AT 07471500 

07463750 07465500 07467000 wftfi^uu 

PAReNcOuNTeR -- DEFINE — DeCURED IN SEGMENT 83 AT 07655000 

07659500 07683500 07694000 07695500 " " - 

PARSE *- ^PROCEDURE -^ DECLARED |N SEGMENT 3 AT 06312000 - FORWARD AT 03014000 

O6O35OOO 06129000 06174000 06273000 06336700 "Juiauuc 

PASFILE -- PROCEDURE — DECLARED IN SEGMENT 3 AT 05157000 



05t8lOO0 08732000 08795000 08852000 
PASSALPhA -- PROcFDURf -- DECUaRFD in segment 3 AT 15020000 -- FORWARD AT 03075000 

07420000 07514000 07617000 10889000 15009000 15038000 15323000 
PASSFtLf -- PROCEDURE "- OEbLARED IN SegMfNT 3 aT 05137000 

05147000 06073300 06503000 07111000 07261000 07468250 07814400 07832000 07848000 08408000 08493570 

08515000 08605000 089il000 08*20000 08968000 08974000 13066000 
PASSFORMAT — PROCEDURE "- DECLARED IN SEGMpNT 3 AT 05214000 

05227000 07246000 08441000 08646000 
PaSSUiST •- PROCEDURE -• DECLARED IN SeGMfNT 3 aT 05187520 

05187630 13196540 

passlist -- Label -- declaRfd in segment 92 at o8383ooo -- occurs at 08474000 

08433000 08437075 08443000 

passltst •• Label -- declared in segment 97 at 08586000 -- occurs at 08683000 

08652000 08653160 08653230 08657000 
PASSMoNfILe •- PROCEDURE " DECLARED IN SEGMENT 3 AT 05148000 

05156000 07421000 07515000 07619000 10890000 15010010 15010020 15324000 
PASSN -• LABEL -- DFCL/sReD iN SFGMeNT 125 AT 10734000 -- OccURS AT 10827000 

10852000 

passPaRlabl -- Label -- declared in segment 9i at 08236000 

PASSTyPf -* INTEGER PROCEDURE — DECLARED IN SeqMENT 3 AT i50i4000 -- FORWARD AT 03074000 

07419000 10888000 15008000 *150l9000* 15321000 
PAY — REAL ARRAY -- DECLARED IN SEGMENT 17? AT 17069500 

17083000 17091510 17094300 17O944OO 17094650 17094700 17095500 17095550 17096000 17096300 17096450 
PCTR -• INTEGER -- DECLARED IN SEGMENT 70 AT 07050000 

♦07078000* O7O860OO 07152000 *07236000* 07241000 07369000 

PO — REAL -- Name parameter -- declared in segment 3 at 10954100 

10954000 *10978500* 
PDES -• DFFINe -- DECLARED iN SEGMENT 3 AT 01299000 

13772000 
PDINX -- INTEGER -' DECLARED IN SEGMENT 3 AT 01368000 

05261000 *05266000**090j0000* 09297000 ♦09299000* 09348000 13638000 *13642000* 
PDPRT •• REAL ARRAY -- DECLARED IN SEGMENT 3 AT 01342000 

♦05261000**09297000^ 09349000 *13638000* 
PERCENT -- Label — declared in segment 27 aT 0?637000 -- OCCURS AT 02731000 

02641000 02906000 

Period •• define -- declared in segment 3 at 01264000 

06127000 06266000 06277000 0702i000 07026000 07111200 08493580 15111000 15339000 

Permanent •- boolfan •- value Parameter •- declared in segment 3 at 05333000 

05331000 05345000 
PlNFOO •- INTEGER "• DFCLaRfD IN SEGMeNT 143 AT 14026000 
♦14375000* 14471000 14483000 14489000 

pj — Real — declared in segment 3 at 01617000 

♦13343000^ 14073000 14085000 14116300 l4ii7000 ♦14l20000**l4323200^ 14333100 14334000 14335000 14349000 

14364000 14374000 *14387000«*1439l OOO* 14451400 14455000 14507010 14507180 ♦16046000* 16052000 ♦16074000* 
PLACE •• stream VaRIARLe — NaMe PaRAMeTER •• DECLARED IN SEGMENT U9 AT 10100000 

10102000 10104000 
PLUG — PROCEDURE "• DECLARED IN SEGMENT 62 AT 06283000 

06284000 06285800 06288000 
PLUG — PROCEDURE "- DFCLaReD IN SEGMENT 89 AT 08020000 

08116000 08188000 08213000 08218000 
PNcH — FILE "- DECLARED iN SegMeNT 3 aT 01561005 

05057000 05058000 05059000 
POjNTfR — INTEGER -- DECLARED iN SEGMENT 134 AT 13219000 

♦ 13222000* 13223000 13226000 13229000 ♦13240000* 13249000 13255000 13257000 13263000 13279000 132810,00 
13283500 13284000 13286000 *13287000* 13290000 

POP •• REAL ARRAY — DECLARED IN SEGMENT 3 AT 01371000 

♦ 02560000* 04605000 - 

PORS -- INTEGER — VALUE PARAMETER "" DECLARED IN SEGMENT 3 Af 05325010 



532?000 



05325460 05325^70 053?5480 
PORS -- STREAM VARIABLE "- VALUC PARAMfFER -- DECUARED IN SEGMENT 54 aT 05325040 

05325050 05325090 
POSITION -- STREAM VARIABLE -- VALUE PaRAMETER "- DECLARED IN SEGMENT 3 AT 04270000 

04271000 04273000 
POweRaIL •- PEFINE -- DECLARED iN SEGMfNT 3 AT 01579350 

12041130 12064000 
POWeRSOfTeN — DEFINE — DECLARED IN SeGMfNT 3 AT 01574000 

074-30000 084010A0 08402000 08493860 085l5000 08597600 08605000 10889000 15009000 1 
PRIMARY — PROCEDURE -- DECLARED IN SEGMENT 3 AT 06079000 -- FORWARD AT O3OO5OOO 

06016000 O6O18OOO 06020000 06023000 06035000 06049000 06129000 06131000 10927000 
PRINTCARD — DEFINE -- DECUaRED IN SEGMENT 3 AT 02182500 

02195000 02195750 02214200 02227500 02228750 07025020 
PRfNTnOLLARRTT — OEFtNf -- DECLARED IN SfGMENT 3 AT OIOOIO6O 

02228750 02377000 
PRiNTnOLLARTOG — OEFtNf -- DECLARFD IN SfGMeNT 3 AT 01001350 

02228750 

PRINTfR — DFFIN^ -- DECLARED IN SEGMENT l77 AT 17091000 
PRiNTt — DEFINE " DECLARED IN SEGMENT 3 AT 01573000 

07423000 07517000 07620000 I069i200 l50i2000 15271100 15328000 15361000 15362000 15374100 
PRJNTSEGNO -* FORMAT -- DECLARED IN SEGMENT 4 AT OI8OOOOO 

13633100 13633200 
PRINTSIZE -- FORMAT •- DECLARED IN SEGMENT 4 AT 01801000 

13649000 13650000 
PRINTXRfFSTaTISTICS — PROCEDURE -- DECLARED IN SEGMENT 172 AT 17053300 

17055200 17119200 
PRL •• DEFINE -- DECLARED IN SEGMENT 3 AT O1666OOO 

07471250 
PROAD -- INTEGER — DECLARED IN SEGMENT 143 AT 14032000 

*143l3000**i4320000* 14387000 14476000 14489000 
PROADO — REAL •- DECLARED IN SEGMENT 3 AT 01613000 

14036000 «14476000« 
PROCEDUREDEC -- LABEL -- DECLARED IM SEGMpNT 143 AT 140i5000 -- OCCURS AT 14270000 

14020000 14137000 
PROCID — DEFINE — DECLARED IN SEGMENT 3 AT 01187000 

05390000 05396000 06091000 07399000 07404000 07463000 13278000 14284000 14292000 14294100 
PROcStMt •• PROCEDURE -- DECLARED IN SegMfNt 3 AT 07391000 -- FORWARD AT 03029000 

06104000 06247000 07425000 07736000 
PROCV — OEFINf -- nECLARED IN SEGMENT 3 aT 01293000 

progofScblor — Real procedure •- declared in segment 3 at 05245000 -- forward at 03047000 

♦05266000* 07111330 07130000 07203000 07270000 07305000 07646660 O886O3OO 09273000 09296000 09313000 

IO348OOO 10615000 10801000 10978500 13252000 13261000 13772000 13784000 14387000 14575000 14601000 

16049000 16075000 

PROGRAM — procedure -- DECLARED IN SEGMENT 3 AT 09003000 

09420000 17000000 
PROINfO -- REAL — oECLaRED IN SEGMENT 3 aT 01608000 

06062380 12036200 12062800 14304000 # I43i4000** 14320000* 14391000 14392000 14454000 14457000 14469100 

14470000 ♦14496000* 15080000 

prt — strfaM vaRiabLf — vaLuf Parameter -• declaRfd in segment 3 at 05237000 

05237500 05238500 
PRT -- Real -• declared in segment «1 at 07646390 
♦ 07646450* 0764666fO 

prt •• INTEGER -- Declared in segment lOi at 08860ioo 

♦08860250**08660300* 088*0750 
PRT — stream variable -- VALUE PARAMETER — DECLARED IN SEGMENT IO4 AT 09010000 

09011000 09013000 
PRT -- REAL ARRAY — DECLARED IN SEGMENT il5 AT 09317000 






09354100 09402000 09407000 09 

PRT — INTFGFR — OFCLARiiO iN SFGMEN 

♦13783000* 13784000 13788000 13 

PRTAD -- REAL •- VALUF PARAMETER -- 

13731000 13732000 13772000 

PRTaDR — INTEGER -- OEC^aReD IN Seg 

♦09350000* 09354l00 09355000 
PRTBIT — DEFINE -• DECLARED IN SE6M 

02395000 05376100 09300000 
PRTE — DEFINE -• DfCLARFD TN SEGMEN 

040i8000 04023000 04033000 05 
PRTI — INTEGER — DECLARED IN SEGMe 

05352000 05353000 ♦05367000* 05 
PRTIMaX -• INTEGER — DECLARED IN Sz 

05347000 05348000 ♦05350000* 05 
PRTiO -- iNTFGfR " DFCLARFn IN SEfiM 

♦14054000* 14607000 
PRTOG — DEFINE -- nECLARED IN SEGMe 

05376100 09300000 
PTOG •- BOOLEAN — DECLARED IN SEGME 

13310580 13339100 13342000 13 
PUNCH -- STREAM PROCEDURE -- DECLARE 

05056000 05057000 

PUNCHBIT -- DEFINf; -- DECLARED IN SE 

02506000 05048000 
PUNCHTOr, "- DEFINE •- DECLARED IN 5e 

050*8000 
PURGE -• PROCEDURE — DECLARED iN Se 

13767000 13771000 14471000 14 
PURGEBIT -- DEFINE "- DECLARED IN SE 

02508000 
PURGETOr, — DEFINE -- DECLARED IN SE 
PURPT -- DEFINE •- DECLARED IN SEGME 

13285000 13309000 14088000 14 
PROCEDURE "- DECLARED IN SEGM 



407010 

T 141 AT 13776000 

807000 

declared in segment 3 at 13734000 
Went 115 at 09318000 

ENT 3 AT 01001070 

T 3 AT 01667000 

316000 07122520 07529200 08068000 

NT 3 aT 01703000 

368000 *09039000* 14050000 14054000 

GMeNT 3 AT 01703000 

361000 *0536e000**09039000* 09361120 

ENt 143 AT 14030000 



08489510 

♦14607000^ 

09402000 



06694500 



09403000 09418000 



NT 3 aT 01001360 

NT 3 aT 01592000 

370000 ♦14332000**14373000*^14388000^ 

D IN SEGMENT 46 AT 05050000 

GMENT 3 AT 01001080 

GMeNT 3 AT 01001370 

GMfNT 3 AT I3?l5000 -- FORWARD AT 03068000 
483OOO 14569000 14573000 
GMENT 3 AT 01001090 



PUT •- 

02723500 
IO88OOOO' 
13788000 
14259155 
16074000 

PUTNBUMP -- PROCFDURf -" 
04178000 04179000 
J3791000 13795000 
16443000 16445000 

PUTOGfTheR •" PROCEDURE 
10257000 10263900 



05132000 
10885000 
13807000 
142659!\0 
16138000 



07522000 
10911000 
14109000 
14269600 
16166000 

DECLARED 
O9O34OOO 
141*5000 
16446000 
•• DECLARED 
10268000 10 
PUTSFONO •- STREAM PROCEDURE " DECL 
02006000 02013517 020i37i6 O2 

- Name paRaMeter -- 



07 

10 

14 
14 
16 

IN 
09 
14 



GMENT 3 AT 01001380 

NT 3 AT 01628000 

118000 14446000 
ENT 3 AT 05008000 »- FORWA 

545000 07610000 09214520 

913000 10929000 10978500 

116000 14117000 14178000 

310000 14334000 14353000 

167000 16172000 16257000 

SEGMfNt 3 AT 13589000 -• 
214990 10576000 10563000 
222000 14240000 14319000 



RD AT 017 

10625000 

12121000 

14211000 

14391000 

16260000 

FORWARD A 

IO5&6OOO 

14331000 



18200 
10649000 
13304000 
14239000 
14430000 

T 03057000 
10656030 
14403000 



10651000 
13365000 
14245000 
14450000 



IO66OQOO 
16051000 



10656014 
13556000 
14259100 
14457000 



13547000 
I6O53OOO 



10656015 
13561000 
14259150 
144 70000 



13789000 
16054000 



PI — iNtrGER 
03032000 

Pi — Real •• value parameter •- o 

Pl -- BOOLEAN -• declared IN SEGMENT 
♦063i9500+ 06326000 ♦06329000^ 06 

PI — INTEGER — NAME PARAMETER -- 

10184000 *10189000^ 10190000 

Pl "• Real •• name parameter •• de 

15102000 15104000 15114000 15 
15329000 •15331000* 15334000 15 



IN SEGMENT 120 AT 10234000 
269000 10270000 10273000 10274000 
ARfD fN SEGMENT 3 AT 02005000 
2O2O6O 02214250 O2218OOO 02234750 
OFCLaRfD in segment 3 AT 03033000 

ECLAReO in SEGMENT 3 AT 03057000 

64 AT 06313000 
33l700 *06332?00* 06332500 

DECLARED IN SEGMENT 3 AT 10185000 



02238592 02368000 02716000 02904(100 



claReo in Segment 

119000 15236000 
335000 ♦15336000* 



3 AT 15070000 
15262500 15263000 
15342100 15349000 



15263050 15272900 1 5305000 iSJiittfl-O- 
15364000 *15364500* 15367000 ♦15369100* 



15369300 *1 

P2 •• BOOUEaN •• 

♦13060000* 1 

13719000 *1 
P2 *• INTfGER •• 

03032000 
P2 -•• BOOLEAN -- 
*06329000* 
P2 — INTFGER -- 

lOiaflOOO *1 
P3 -- BOOLEAN -- 

♦ uoaoooo* 1 

*14140000>K*1 

P3 •- BOOLEAN — 

*063?97O0**0 

P4 -• BOOLEAN •- 

*130aQ000*»l 

— STREAM VARIA 

00524000 

Q ••• aUPha "" 

*020l3lfl0**0 

02384000 

02422000 *0 

02495000 

02566000 

♦02770000**0 

02964000 

07822000 

10565200 ♦! 

•• fNTEQER •• 

01833000 

Q — REAL. ARRAY 

04239000 

Q " REAL -- DE 

*043U050**0 

Q — tNTEGER — 

♦04604000» 
Q .• BOOLEAN -• 

♦05352000* 
Q — DEFINE " 

06093000 
Q •- STREaH VARIA 

12159000 
QUIT — LABEL *- 

08905000 

QUIT -- Label •• 

08966000 
QUOTE •■• LABEL - 

02641000 
R — STREAM VARIA 

02183750 
RA — DEFINE -- 

lQlib7000 
RANGE -• BOOLEAN 
♦05304000* 

08728100 
RCA •" DEFINE •"• 



5369600* 

DFcLaRED in SfrMeNT 3 AT 01566000 
3108000 13341000 13342000 13345000 
3720000** 1 41 33000**1 4318000** 14321 000* 

NAME Parameter — ■ decLaRfO in segment 



13347000 •13457000* 13500000 
3 AT 03033000 



13506000 13541000 13553000 



DECLARE 
6331500 * 

NAME PA 
0191000* 

OErLARE 
3108000 * 

4141000* 

detLaRe 

6332200* 

DErLARE 
3467000* 
BLe — 
0526000 
ECLARFD I 
2238832* 
2386000 
2424000* 
2497000 • 
2570000 
2822000** 
2964500 
7824000 
3282000* 

DECLARED 
1834000 

-• NAME 
4241000 

cLaRfd in 

4311070* 

DECLARED 
4605000 

DECLARED 
5355000 

DECLARED 
8094000 

BLE -* 



D IN Segment 64 at 06313000 

06332200* 06333500 

RAMeTER •- DECLARED IN SEGMENT 3 AT 10185000 

10192000 

D IN SEGMENT 3 AT 0l589000 

13461000* 13532000 13552500 13553000 13721000 * 1 3722000** 14 133000** 14138000** 14139000* 

D IN SEGMENT 64 AT 06313000 
06334000 

IN Segment 3 at oi589boo 

13552500 13553000 13723000 *13724000* 

VALUE Parameter -• declared in segmen 



*14133000* 

T 2 at 00523000 



N SfGMeN 
02313000 
02389000 
02433000 
02499000 
02574100 
O2846OOO 
02965000 
07825500 
13909000 
IN SEGM 



T 3 AT 0131 
02314000 
02392000 
02462000 

* 02505000 
02576000 

**02865000* 
02965500 
07826000 
U'lOQQQ 

ENT 5 AT 01 



6000 

♦02327000* 
02394000 
02467000 
02507000 
02568000 
02667000 
05043000 
07827000 

*.l4 4ii0Q0* 
622000 



02343000 
02396000 
02469000 
02509000 
♦02590000* 
02879000 
05044000 
07828000 



♦02371000 
02400000 
02471000 
02515000 
*02650000 
♦02942000 
07690000 
07843000 



* 02375000 
02406000 
02473000 
02519000 
♦*02697600 
♦♦02952000 
07603000 
07859010 



02376000 

02419100 

02477000 

02521000 

♦♦02698000^ 

♦♦02958500^ 

078i0l00 

♦08450010^ 



— decLaRep 

AT 04311020 



IN SEGMENT 3 AT 04231000 



PARAMETER 
04243000 

SEGMENT 4? 
04311090 

IN SEGMENT 44 AT O46OIOOO 
04606000 

IN Segment 55 at 05343000 

05357000 ♦05363000**05371000**05374000* 05376100 

IN SEGMENT 89 AT 08015000 

06185000 06200000 06210000 06218000 

VALUE PARAMETER — DECLARED IN SEGMENT 130 AT 12154000 



DECLARED IN SEGMENT 102 aT 09904000 

8909000 08912000 08914000 06915000 

DECLARED IN SeqMeNT 103 aT 06931000 

8969000 06972000 Ofl97500D 06983000 

- DECLARED IN SEGMENT 27 aT 02637000 



•• OCCURS AT 06926000 
08916000 08917000 08922000 
-- OCCURS AT 06997000 
06967.000 0896800Q 089900O0 
•• OCCURS AT 02690000 



06924000 
08991000 



- DECLARED IN SEGMENT 3 AT 02183500 



BLE •- VALUE PARAMETER 
2165750 02186400 
DECLARED IN SEGMENT 119 AT lOllOOOO 

PROCEDURE — DECLARED IN SEGMENT 3 AT 05297000 

7463000 07464250 O84O3OO0 08439000 08457000 08508000 

8790p00 08847000 1O574OO0 10579000 10599000 10654000 

decLaRfd in Segment 157 aT 16008000 



08598000 
10805000 



O6644OOO 
10872000 



02378000 
02419200 
02479000 
02523000 
02700000 
02960500 
07811000 
08493160 



02382000 
02420000 
O.2AaiQO0 
02529000 
♦02754000^ 
02961000 
07821100 
10565100 



06993000 



08665000 08727000 



m 



i 

16046000 16077000 
RD — DEFtNe — DECLARro IN SEGMENT 119 AT lOllOOOO ' 

10131000 

RDS .- DEFINE -- DECLARED IN SEGMENT 103 aT 08931000 - 

08955000 i 

RDV — DEFINE — DECLARED IN SEGMENT 3 AT 0,666000 

RE — DEFTNE -- DECLARED IN SEGMENT 119 AT lOlllOOO m 

10157000 • 

READACARO-- PROCEDURE - DECLARED IN SEGMENT 3 AT 02i96750 - FORWARD AT 02065000 
RFADSTMT ^!,^^p2or?^/,p^^^" 02238000 0^731000 02735000 02946000 09035000 ^^065000 

07^000^ OM^'oor '^^'^''" ^' ^""'"^ ' '' 08290000 " FORWARD AT 03061000 ^ 

READTAPr-- PROCEDURE " DECLARED IN SEGMrNT 13 AT 02i98500 m 

RrA^yrnD2^^°^^^° ^2208250 02208500 02219500 02223750 • 

$845^020 " P^^^'^'^E" "^ SEGMENT 92 AT 08385100 - OCCURS AT 08442000 

REALARRaYIO -- DEFINE -- DECLARED IN SegMeNT 3 AT 01203000 • 

07155000 07355000 12O364OO 13453000 
REALDEC -- LABEL — DECLARED IN SEGMENT 143 AT 14013000 — OCCURS AT 1413flOOO m 

140,8000 14135000 14136000 14136100 wti.UKS at 1^138000 g 

REALID -- DEFINE " DECLARED IN SEGMENT 3 AT 0U99000 

m3?0W itloniS "'""° °""°°'' '"''"""' ""'""^ "''''"" "'">'""'' '°'3«.0 .P035000 ,3469000 • 

REALPROrlD — DEFINE — DECLARED IN SEGMENT 3 AT 01195000 

07318000 07324000 12036100 

REALSTRPROCID — DEFINE -- DECLARED IN SEGMpNT 3 AT 01191000 

14294000 

REALV -- nEFINE — DECLARED IN SEGMENT 3 aT 012B3000 

06117000 06234000 

RECOUNT •• REAL "" DECLARED IN SEGMENT 3 aT 01561200 

.llUllll llllllll *S^;jlJj,5-°2°13563.*020i3568* 02013570 02013670 02013705 02132000 *02l99500* 02207750 

"^^^^ 'l325J5oo J^gsSjJ^*''^^ »^ SEGMENT 134 AT 13220000 -- OCCURS AT 13281000 

SrrrOni], *^'"^*1! VARIABLE " VaLUE PaRaM^teR — DECLARED IN SEGMENT 3 AT 020,1000 
REFCOuNt ^--^ DEFINE — DECLARED IN SEGMENT 172 AT 17069300 ^""^ "^ ' "* *' "^"11000 

REFTDNOf -- DEFINE — DECLARED JN SEGMENT 3 AT 01007425 

DrrTv«r ^^*I°° 17080000 17091800 1709,900 17093850 17O94O5O i7094i00 I7,i7000 ,7,,7:,nn 

'' '^ olL.lln'' nZ. V^^^PJf'AMETER - DECLiREO IN SEGMENT 3 AT^OgoS 650 '''' ' ''''''^' 

02001640 02001645 02001695 

"^^^ '"rtoS**^ ^^^^ " DECLARED IN SEGMENT 89 AT O8O1OOOO 

06094950 *07464750* 15263050 
"'^*' "0523^500' 052i2SoO '' '*^'' PARAMrTrR - DECLaRfD in SEGMENT 3 AT 05237000 

RELAO -- REAL -. VALUE PARAMETER - DECLARED fN SEGMENT 3 AT 05259000 

05245000 05259000 05261000 05264500 
RELAD •- ^REAL - VALUE PARAMETER - DECLARED IN SEGMENT 3 AT 13734000 

13731000 13732000 13738OOO 13769000 
RELAD — REAL -- DECLARED IN SEGMENT 143 AT 14029000 
or. .» ♦14487000* 14489000 ♦ 14534000** J4563000** 1 4574000* 14575000 
RELATION -• PROCEDURE — DECLARED IN SegMfNT 3 AT 06281000 — FORWARD AT 0^019000 

06240000 06290200 07111285 07211000 10325000 FORWARD AT 03012000 

RELEASES -'PROCEDURE " DECLARED IN SeGMfNT 157 AT 16261000 

16289000 16488000 



REL-EASEV 
RELOP - 

RELSESTM 

REMcOUNT 

REMeMrER 

REMOTE 

REMOTOG 

Repeat 
Repeat 
Repeat 



Result 



Result 
Result 

RESULTSw 
RESULTV 

returnst 
reverset 

REWlNnV 
Rf <"• 

R| •. 

RINX -• 
* 
RL, "• 

RLEFT • 
RMT -• 

RO — 



— PEF 

06732200 

• nEFINE 
Odl^l'IOOO 

16208000 
T — PR 

074/2250 

-- OWN 
10245000 
SE^NO -• 
15085100* 
"' FILE 
050*5900 

•• BOOL 
05036000 

— INTEG 
04010000 

— Real 

10086000 

"• intfg 

10112000* 
10136500 

— iNTFG 
02013195* 
02013420* 
02366200 
02648000 
02752000* 

02812000* 
02959000 

— strfa 

0209250Q 

•• strea 

I30j0006 
ITCH -- 
02646000 

-- STRE 
O2O9O5OO 
ORE -- 
06087000 
OG "" D 
08387000 

•" DEFI 
DEFINE - 
10155000 
DEFINE - 
10153000 

Real - 

13302000* 
DEFINE - 
10169000 

* DEFINE 
10117000 

STREAM V 
05024000 
DEFINE " 
10129000 



iNr -- DFCLARED iN SEGMENT 3 AT 01233000 
08738000 06795200 O88O1OOO 

-- nEClAREO IN SEGMENT 3 aT 01275000 

06239000 06287200 06288800 06290000 07111275 

OcEDURf •- DFCLARED IN SEGMENT 3 AT 07461250 
07753000 

INTEGER •• DECLARED IN SEGMeNT 120 AT 10230000 
1024 7000 *1 0248000** 10249000** 10263000* 

REAL " DECLARED IN SEGMfNt 154 AT 15075550 
15116000 15301100 15342300 
-- DECLARED IN SEGMENT 3 AT 01561055 




07211000 08493530 10325000 14260000 14269280 



EAN 

0504 
ER - 

0401 

m m 

1006 
ER " 
*1011 
*1015 
ER " 
*020l 
*020l 
*0237 
*0266 
*0275 
♦ 0281 

0295 
M VAR 



•"• DE 
4000 

• VAL 
3000 

Value 

7000 

• DEC 

3000** 
0l40** 

- DEC 
3200it<* 

3446* 

1000** 

3000** 

4000** 

6000** 
9500 * 

iablf 



GLARED I 
05045900 

UE param 

04014000 

paRaMete 

10091000 
LAReD IN 
10113100 
10150185 

laRed in 

02013290 
02128500 
02499000 
02666000 
02757000 
02820000 
10140000 

"-- Nam 



N SEGMENT 3 
*09028l00* 



AT 01561060 



eter 



Declared in segment 3 at 04011000 



R -'" declared in SEGMENT 119 AT 10088000 



segm 

* 101 

* 101 

segm 

**020 
021 

* 025 
**026 
**027 

* 028 
**101 

E Par 



ENT 1 
17000 
50225 
ENT 3 
13318 
29000 
00000 
67000 
59000 
21000 
67500 
AMeTf 



1^ AT 1 
10125 

*10150 

AT 013 
**020i3 

♦02238 

02579 

*4<02694 

**02763 

• 02846. 
* 10264 
R — 



01060 

000 * 

280** 

86000 

330** 

340* 

000 

000** 

000** 

000** 
600 

decla 



00 

10127000* 

10159100* 

02013335* 

02238370 

02586000 

02698000* 

02766000* 

02969000* 
10265000 

Red in se 



10127100 
*10l67800* 



10127200 
10171000 



*10134545**10134580* 10134590 



02013340 
♦02238390 
♦02590000 
♦02700000 
♦02770000 
♦02890000 

10272000 
GMeNT 10 



♦02013365* 
♦♦02238420^ 

♦ 02591000 
♦*02744000^* 
**02788000** 

♦ ♦0293.ftQQQ** 

10276000 
AT 02089500 



02013370 *02013390* 02013395 
02238430 ♦02238500^*02327000» 
02598000 ♦02602700**02647000* 
27 4 7000++0 2749000**0 275 1000* 
0279 3000 **0 2806000**02809000* 
2 9M.Z0Qa** 02951.QDO* •02 95 a 5 00 *. 



M VARIABLE -- NAME PaRAMfTfR -- DECLARED iN SEGMENT 131 AT 13005000 
switch LABEL — DECLARED fN SEGMENT 27 AT 02643000 

AM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT lO AT 02089501 

02094000 
OWN REAL -- DECLARED IN SEGMENT 89 AT 08010000 

08090000 ♦08l66000**08168000^^08l90000^ 08193000 *08207000^ 08215000 
EFINE — DECLARED IN SEGMENT 92 AT 08374000 

08389000 08391000 08420000 
NE •- DECLARED IN SEQMENT 3 AT 01221000 

• DECLARED IN SEGMENT 119 AT lOlllOOO 
10161000 

• DECLARED IN SEGMENT 119 AT lOllOOOO 

- DECLARED IN SEGMENT 135 AT l330l000 
13304000 13305000 

- DECLARED iN SEGMENT 119 AT lOlllOOO 

-• DECLARED IN SEGMENT 119 AT 10108000 

ARiABLF — NAME PARAMETER — DECLARED IN SEGMENT 45 AT 050l6000 
♦05024500^ 

• DECLARED IN SEGMENT 119 AT lOUlOOO 



rose: ' 

ROUND 
ROW •< 
ROW - 
RP -« 

RR "m 

RRBl • 
RRB2 • 
RRIGHT 
RRl -• 



RRIO 
RRJI 
RR2 



RR3 "< 

RR« •' 

RR5 •■ 

RR6 -" 

RR7 •" 

RR8 ** 

RR9 - 

RSA •■ 

RSa «• 



'• IaBEL. 

02879000 
-• LABEL 

07600000 
' STREAM V 

02001030 
' INTEGER 
4*05352000* 

UABeL •" 

06l?0000 

deftne - 

10155500 

'• BOOLEAN 

*0S1A9000* 

• BOOLEAN 
*051690004> 

— DEFIN 
10127200 
' REAL — 
*00529000* 
#07627000* 
*084ai000* 

*oe8ooooo4> 

♦14329000* 

• RpAL 
*00539000* 

- Real - 

• 005?>9000* 

' Real -- 

*00530000* 
07675000 
10590000 
10883000 

Real -- 

♦00531000* 
10661000 
15250000 

Real — 
♦00532000* 

10659000 
13798000 

ReaU -- 

♦00534000* 
10819000 
10891100 

Real -• 

*00534000* 

Real -- 

«00534000* 
REaL -- 
♦00537000^ 
10885000 

Real — 

*0O537OO0* 
10839000 

DEFINE 

H45H00 

DEFINE 



" DErLARpD IN SEfiMENT 27 AT 02639 

02881000 

-- DfCLARED IN SEGMENT 79 AT 0759 

07604000 
ARlABLF — VALUE PARAMETER — D 

0?00l090 

•- DECLARED IN SEGMENT 55 aT 0534 
♦05360000* 05363000 05367000 

DECLARED IN SEGMENT 58 AT 0609000 



S AT 02875000 

RS AT 07645000 
MENT 3 AT 0200l0?0 



DECLARfD IN SEGMENT 119 AT l0l09 
10161000 

-- DECLARED IN SEGMENT 3 aT 0152 

05178000 *08387000**06389000^ 0839 

— DECLARED IN SEGMENT 3 aT 0152 
05172000 05176000 

E — DECLARED IN SEGMENT ll9 AT 10107000 



000 -- OCCUR 
4000 -• OCCU 

eclared in SEG 

4000 

-- OCCURS AT 06125000 

500 



2000 

1000 08420000 

5000 



♦08606000* 06609000 *08738000^ 08740000 



DECLARE 

♦00530000 

07633000 

*086l9o80 

08817000 

14373000 

• DECLAR 
0i56l005 

• DECLAR 
00531000 

DECLARE 

01557000 

07677500 

♦10656010 

♦10914000 

DECLaRF 
♦00532000 

♦10808000 

DECLARE 

01559000 

*10802000 

*15246000 

DECLaRe 

•00535000 

10620000 

♦10926000 

DECLaRf 
♦00535000 

DECLARE 
♦00535000 

DECLARE 
♦00538000 

10886000 

DECLaRe 

♦00538000 

10848000 

•* DErUA 



D IN SEGME 

♦ 0155700.0 
♦07659500 

♦ 08619090 
♦08857000 
♦15244000 

ED IN SEGM 
♦15034000 

ED IN SEGM 
00533000 

IN SEGME 
♦05167000 
♦07679500 

♦ 10656014 
**l09i5000 

D IN SEGMf 

♦ 01559000 

♦ 10823000 

D IN SEGME 

♦10585000 

♦♦10880000 



NT 2 A 

♦ 0516 
♦♦0768 

0861 

♦ 0885 
♦ 

FNT 2 

♦ 1503 
ENT 2 

0053 
NT 2 A 

♦ 0766 
♦♦0769 

1065 

♦ 1091 

NT 2 A 

♦ 0769 

1084 



T 00507000 
8000^ 0517 
3500^*0769 
9095 0862 
8000 ^1059 



0000 05175000 
4000+ 07695500 
0000 08621000 
8000^^106l5000 



*07614000^ 07619000 ♦07622000^ 07625000 07626000 

♦08412010* 08412070 08413030 08413050 08413100 

08621010 08621020 *08688000^^08737000^ 08747000 

♦ 10621000 10622000 10626000 ♦10796000^ 10891000 



AT 00507000 

5000 

AT OO5O7OOO 

6000 00539000 *15033000* 15037000 

T 00507000 

0000 0766 

4000* 0769 

6015 ^1065 

6000 1092 

T 00507000 

6500* 0769 

8000 ^1090 



3500 *07664500 
»6500 07697500 
i6030**10657000 
17000 +15244000 
I 

17000 *10584000 
16000* 10928000 



♦ 07665500 *07666500+ 076I2Q0O 07.673500 *Q76.7_4.0aa.* 
08737000 08800000 O88570OO ♦I0583000+*l0584000+ 

♦ 10658000 ♦10808000+ 10827000 IO868OOO ♦10881000+ 

♦ 15250000 

♦♦10586000* 10587000 ♦10592000++1 0658000+*l0660000* 
♦13795000+ 13798000 ♦15244000+ 15245000 #15246000* 



15248000 
IN SEQMe 
01560000 
IO821OOO 
10929000 
IN SEGMf 
01560000 
IN SEGME 
01560000 
IN SEGMF 
01561000 
10888000 
IN SEGMf 
* 01561000 
♦15035000 

Red IN sfg 



NT 2 AT 00507000 
♦♦10598500^+1060 
♦ 10885000 1089 

15249000 
NT 2 AT 00507000 
♦10584000+ 1058 
♦10833000++1063 



3000++106l7q00 
4000 *10913000 



7000 ♦10590000 
9000+ 10843000 



♦ 10626000 +10644000+ 10651000 1Q652000 +106580QO+ 

♦ 10919000 +10921000++13789000+ 13795000 *13797000* 



+ 10634000 +10657000* IO66IOOO ♦10814000+ 1O818OOO 
10844000 10845000 10846000 +10869000+*10871000+ 



NT 2 AT 

+105820 
NT 2 AT 

*105690 
NT 2 AT 

*108030 
108890 
NT 2 AT 

♦075990 
+ 150370 
MfNT 151 



lOOO O7611P0O 
9100 

- DECLARED IN SfgMeNT 157 aT I6O18OOO 



00507000 

00* 1059 

00507000 
00* 1057 
00507000 
00+ IO81 
00 +1091 
00507000 
00* 0760 
00 
AT 1441 



0000 *10625000 

6000 10583000 

4000 10826000 
1000* 10912000 



* 10627000 10634000 +10801000+ 10926000 10928000 
10649000 10657000 +IO8OOOOO+ 10929000 



10835000 10839000 1O868OOO 10674Q0Q 10883000 
10912100 10916000 

07617000 +10613000+ I08l4000 10823000 «lQ83aD00* 






RSCAUr -- DEFINE " DECLARED IN SEGMENT \{9 AT 10109500 
lOl 34590 

RSTROkE -- DEFINE -- DECLARED IN SEGMENT Il9 AT I0l09000 
101??000 10126000 

RT -- DEFINE -- DECLARED IN SEGMENT 119 AT lOllOOlO 
10165505 

RTBRKfT •- DEFINE -- DFCLARED IN SEGMENT 3 AT 01265000 

05274300 05276000 063l4250 06325000 063?9«00 06330700 06332300 0642?000 

08633000 08698500 1026*300 10298000 10306000 10318000 10321000 10592000 

13088105 13514000 13549000 13569000 I4259i20 14269680 15260000 15294000 

RTN -• DEFINE •- OErLARFD IN SfgMeNT 3 AT Oi669000 
13744000 

RTPaRfN •• DEFINE •- DFCLa^FD IN SEGMENT 3 aT 01266000 

02976500 06062220 06062430 06072110 06072260 060736S0 06073860 06125000 

07111255 07186000 07205000 07238000 07471750 07683500 07838000 07852000 

07943000 08416700 08422000 08445000 08465000 08489580 08520000 08606000 

08673000 08696550 06729000 08732100 08749000 08795100 08818000 08853000 

08995500 08996000 10264300 10305000 10320000 10368000 10668000 10863000 

12126000 13182000 14259120 14336000 15369400 16132000 16282000 16478000 

RTPaRfN -- LaBfL — DFCLaREH in segment 27 AT 02639000 — OCCURS AT 02744000 
02642000 

RTS -- DEFINE — DECLARED IN SfrMeNT 3 AT 0i670000 

07111315 07138000 07272000 10329000 l036l000 10616000 10906000 10985000 
13268000 

RU — DEFINE -•• DECLARED iN SEGMENT 119 AT i0l09500 
10150225 

RV -- DEFINE -• DECLARED IN SEGMENT 119 AT l0l09500 
10167200 

RWNDSTMT— PROCEDURE — DECLARED IN SegHfNt 3 Al QM250Q0 — Fi 

07745000 08860000 

RX -• DEFINE -- DECLARED iN SEGMENT 119 AT lOllOOOO 
10164000 

— naMf Parameter -- declared in segment t at 02ooi760 



08277000 
10630000 



08417010 08493650 
10828000 12126000 



06261000 
07854000 
06613600 
06660650 
10902000 



06416000 
07859080 
08637000 
08924000 
12039000 



07096000 
07909000 
08647000 
06994080 
12063600 



10992000 10995000 13264000 



AR.D..AT 0.3.Q.66000 



S 

s 
s 
s 

5 

s 
s 
s 

s 

s 
s 

s 

s 

s 



stream variable - 

02001780 
STREAM VARIABLE -- NaMe PARAMETER 

02001842 
STREAM VARIABLE " 

02001868 
STREAM VARIABLE -- 

02183750 O2I863OO 
STREAM VARIABLE — 

02264500 
STREAM VARIABLE -- 

02264800 
STREAM VARIABLE -- 

02927300 
BQOLFAN -- VALUE PaRAMeTER 



NAME PARAMETER 
VALUE PARAMETER 
NAME PARAMETER 
NAME PARAMETER 



DECLARED IN SEGMENT 3 AT O2OP1838 
DECLARED JN SEGMENT 3 AT 02001658 

DECLARED IN SEGMENT 3 AT 02183500 
DECLAREU IN SEGMENT 17 AT 02264400 
DECLARED IN SEGMENT 17 AT 02264700 



NAMp PARAMETER -- DECLARED IN SEGMENT 29 AT 02927240 
-- DECLARED IN SEGMENT 3 AT 030.5l00l 






O3O5IOOO 

BOOLEAN — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03067000 
INTEGER *- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03100000 
REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04276000 

04277000 04278000 04279200 O428OOOO 04281000 04284200 0428*300 04294400 
REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 042910Q0 

04296000 04297000 
INTEGER •• DECLARED IN SEGMENT 43 AT 04502000 
♦04546000* 04551000 
STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 53 AT 05309000 



04285000 04266000 04287000 



k 





m. 



05311000 
S -• SWITCH LABEL — DPCLAReO IN SEfiMENT 5^ AT 06061000 

06062000 
S -• SWITCH LABEL -- DECLARED IN SEr.MENT 58 AT 06085000 

06091000 

S ■»• SWITCH LABEL •- DECLARED IN SEGMENT 61 AT 06219000 
06225000 

S •- BOOLEAN -- VALUE PARAMETER — DECLaReD IN SEGMENT 62 AT 06283000 

06283800 
S — BOOLEAN -• DECLARED IN SEGMENT 67 AT 063^1000 
♦06393000* 06397200 06398000 

s — SWITCH Label -- declared in segment 70 at 07072000 

07216000 
S •- SWITCH LABEL •' DECLARED IN SEGMENT 85 AT 07719000 
07728000 

S — BOOLEAN -- NAMF PARAMETER — DECLARED IN SEGMENT 89 AT 08027000 
♦080?9000* 

S — BOOLEAN -• VALUE PARAMETER " DECLARED IN SEGMENT 89 AT 08063000 

♦08065000* 08069000 
S — BOOLEAN -• VALUE PARaMeTER — DECLaRfO IN SEGMENT 89 AT 08072000 

08075000 06079000 
S •• BOOLEAN -- VALUE PaRaMeTER -- DFCLaReD IN SEGMeNt n.9 AT 10089000 

10086000 10087000 10098000 
S •"• BOOLEAN -• DECLARED IN SEGMENT 119 AT 1O1O6OOO 

*10127200* 10171000 
S — REAL -- DECLARED IN SEGMENT 127 AT 1?004000 

*12006000**12025000**12030000* 12039100 ♦12055000* 
S — REAL -- DECLARED IN SEGMENT 128 AT 1?060200 

♦12061300+*12062200* 120636]0 *12064906* 
S — REAU — OECIARfD IN segment 129 AT 12102000 
S -• REAL — VALUE PARAMETER -• DECLARED iN SEGMENT 157 AT 16029000 

16033000 16034000 *16038000^ 
S — STREAM VARIABLE — NaMe PARAMETER '" DECLARED IN SEGMENT 172 AT 17047200 

17047700 *17049700* 17050000 1/050100 
SAVADnRSF — RfAL " DECLaRfD TN SEGMENT l3l AT 13039450 

♦13081500+ 13160000 13166000 
SAVECARd •- INTEGER •- DECLARED IN SEGMENT 3 AT Oi56l570 

O222410O ♦02238720* 
SAVEDfM -• REAL -- DECLARED IN SEGMENT 138 AT 13449000 

♦13473000^^13532000^ 13533000 13534000 
SAVEINFO -- REAL -- DECLARED IN SEGMENT I38 AT 13449000 

*13470000^ 13558000 13560000 13561000 * 1 3563000**! 3566OOO* 
SAVEINFO •- RcaU — DECLARED IN SEGMENT 145 AT 14165000 

♦14175000* 14178000 14179000 14180000 
SAVEINFO — Real *- declared in segment 148 at 14269060 

♦14269260^ 14269600 14269620 
SAVEINF02 -• Real " DECLARED IN SEGMENT 1 38 AT 13449000 

♦1347l000^ 13556000 13560000 13563000 ♦13567000^ 
SAVEINX -* INTEGER -- DECLARED IN SEGMENT 2? AT 02324000 

♦02331000^^02342000^ 02352000 
SAVEINX — INTEGER "- DECLARED IN SeGMeNT 2i AT 02365200 

•02525006* 02525007 

SAVEIT — LABEL •- DECLARED IN SEGMENT 148 AT 14269100 — OCCURS AT 14269590 

14269450 
SAVEL »• REAL — DECLARED IN SfgMeNT 3 AT 01623000 

13606000 ♦13628000* 14055000 *14609000* 
SaVELO •- INTEGER "- DECLaReO IN SEqMeNT 143 AT 14030000 
♦14055000^ 14609000 



B 



DFCLARrD IN 

*14059i00**14 

• DECLARED IN 

IN SEGME 

IN S 



SAVePRTOG — BOOLEAN -- 

13641000 13645000 
SAVEPRTOGO -• BOOUEAN - 
•14059100* 14610100 
SAVERR — UABEU -- DECLARED 

14018000 
SAVcTfMf -- INTEGER — DECLaRED 

01556200 09407050 
SAVETtMeS — PROCEDURE -- DECLARED I 

17002525 I709lt80 I7ll79i0 
SAVEV -- DEFINE -» DECLARED IN SEGME 

087^9000 08809000 13459000 13 
SAVL — RpAL -- DECLARED IN SEGMENT 

*16032000* 16040000 16047000 
SAVL -- REAL -- DECLARED IN SEGMENT 

♦16088000* 16096000 
SB — REAL. — DECLARED IN SEGMENT 14 
♦ 14j>d9446**14269520* 14269560 14 
SBIT •* BOOLEAN -• VALUE PARAMETER 

07045000 07046000 07117000 07 
SBITE •• riEFlNE -• DECLARED IN SEGMe 

05273300 05274100 06313650 06 

SBV — DEFINE — DEcLaRED IN SEGMENT 

16197000 16415000 
SCAN •• STREAM PROCEDURE •' DECLARED 

02127000 02126500 

scanagatn -- Label -- declared in 

02650000 02697600 02728000 

SCANNeR •• PROCEDURE "- 
02013195 02013200 
02238340 02238390 
02694000 02698000 
02770000 02788000 
02942000 02951000 

ScaTTeRfLbat — PROcEnURr 

06396000 07079000 
SCLASS •- INTEGER — DFCLaReD IN SET, 

•07081000* 07084000 ♦07087000* 07 

*07282000^ 07330000 

scNN — Real stream procedure — dec 

02236150 02238340 02238390 02 
ScOUNt — INTEGER "" DFCLaRfD IN SEG 

♦02366200* 02602700 
SCOUNT ••■ INTEGER — OECLaReD IN SEG 

♦14507050* 14507160 
SCRAM -- tNTegeR " DECLARED IN SEGM 

♦02865000* 02874000 ♦12164000* 13 
SCV — DEFINE — DECLARED IN SEGMENT 

16206000 16337000 
SEARCH — ALPHA PROCEDURE -" DECLARE 

♦04243000* 04244000 04603000 

SEARChLtB — PROCEDURE " DECLaRED I 
02013720 02133000 02229000 02 

SEC -• DEFINE "•- DEcLaRED IN SEGMeNT 
16342000 

SECOND — INTEGER •• NAME PaRAMfTER 
05270000 *05273fl00*^05?74200**05 



SEGMENT 
610100* 
SEGMENT 



3 AT 01411020 
143 AT 14034100 



NT 143 AT 14013000 -- OCCURS AT 14136000 

EGMeNT 2 AT 00503000 

N SEGMENT 167 AT 17002015 

NT 3 aT 01281000 
722000 14295100 
158 AT 16031000 



160 AT 16087000 

8 AT 14269060 
269600 

-• Declared in segment 3 

127000 07171000 07226000 
NT 3 aT 01154200 
314150 14269446 14269600 
3 AT 01244000 

IN SEGMENT 10 AT 02089500 



AT 07047000 

Q7249000 07347000 



07359000 07382000 



se 

02 

DECLARED IN 

02013290 02 

02238420 02 

02744000 02 

02793000 02 

02958500 10 

•- decLaRe 

07395000 13 



GMeNT 2 
737000 

segmemt 

013318 

238500 

747000 

806000 

140000 

D in SE 

208000 

MeNT 70 

068000 



7 AT 
0276 

3 AT 
0201 
0232 
0274 
0260 
1016 
fiMENT 
1332 
AT 
0706 



0263900 
8000 

02Q660 
3330 
7000 
9000 
9000 
7500 

3 AT I 
7000 1 
7050000 
9000 ♦O 



2890000 

00 -•? 

2013335 

2371000 

2751000 

2812000 

3197000 
3908000 



occurs at 02646000 
02908000 

FORWARD AT 0.1-730000 

02013365 02013390 
02499000 02590000 
02752000 02754000 
02816000 02820000 



02013420 
02647000 
Q2759000 
02889000 



02013446 02137000 

02663000 02666000 

02763000 Q27&600Q 

02890000 02936000 



-• FORWARD AT 03035000 
14206000 14305000 14507110 



7090000* 07117000 07150000 07151000 07229000 07230000 
38130 



LARED in SEGMENT 15 AT 022 
238420 02236500 
MeNT 21 AT 02365100 

MENT 152 AT 14507030 

ENT 3 AT O13O1OOO 
308000 13361000 13362000 
3 AT 01246000 

D IN SEGMENT 3 AT 04231000 

N SEGMENT 3 AT 02013165 
230750 02735000 02908000 
157 AT 16022000 



-- DECLARED IN SEGMENT 3 AT 05271000 
281000* 05282000 



14259102 14507050 ♦14507060* 14507070 *l4507i60* 



n 



m 



SECOND -- INTFGER '"- DFCLaReD IN SrcMENT 64 AT 06312500 ] 

*063l3700**063l4?00**0632l500* 06323500 ♦06326500* 06331800 06333500 06336200 06336300 
SECOND — JNTFGER -"' DECLARED IN SEGMENT 65 AT 06339000 

063*ltl000 06343000 
SECRET "• OEFINE "- DECLARED IN SEGMENT 3 AT 01628000 

13331000 14333000 H345000 
SED *" DEFINE — DECLARED IN SEGMENT 151 aT 14<H9000 

14455000 
SED •" DEFINE "- DEcLaRED IN SegMe^T 157 aT 16017000 

16286000 
SEEKTOG -• BOOLEAN — DECLARED |N SeGMeNT 92 AT 08365600 

*08397000**0a3905OO* 08391000 0R41502O 084l8650 
SEG — STREAM VARIABLE "- VALUE PaRaHETER -- DECLARED IN SEGMENT 172 AT 17047200 

17047400 17049600 
SEGDIcT — REAL ARRAY — DECLARED IN SeGMfNT 115 AT 09317000 

09351000 ♦09355O0O**O9358000* 09359000 09399000 
SEGMENT --» PROCEDURE -- DECLARED IN SegMENT 3 AT 13634000 -- FORWARD AT 03042000 

07646670 07697500 08860400 09308000 09315000 13656000 13814000 14577000 
SErMeNTsTART — PROCEDURE "- DECLARED iN SErMENT 3 AT 13632000 — FORWARD AT 03041000 

07646640 07693500 13633300 13760002 14060000 
SegMNT -- INTEGER -• DECLARED IN SEGMENT 115 AT 09318000 

♦09350000* 09351000 09352000 09353000 09355000 ♦09357000* 09358000 09359000 
SegNOf — DEFINE *- DECLARED IN SEGMENT 3 AT 01007405 

13310450 17094800 
SEGSBiT — DEFINE -- DECLARED IN SEGMENT 3 AT OlOOllOO 

02470000 07646640 07693500 13646000 13780002 14060000 
SEGSIZEMAX " INTEGER -- DECLARED IN SeGMfNt 3 AT 01687000 

*13643000* 
SEGSTOG -- DEFINE -- DECLARED IN SEGMENT 3 AT.0i001390 

07646640 07693500 13646000 13780002 14060000 
SEMICOLON •• DEFINE — DECLARED IN SEGMENT 3 AT 01230000 

05109000 07012000 07032000 07646480 07646525 10264410 10672000 10926520 10935000 U8i6000 14062000 

14063000 14269840 14325000 14338000 14357000 14519000 16131000 
SeO — STREAM VARIABLf "" NaMe PaRaMETeR -- DECLARED IN SEGMENT 3 AT 01756000 

01759100 

SEO — STREAM VARIABLE " VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04130000 

04132000 
SEOBIT •" DEFINE — DECLARED IN SEGMENT 3 AT OlOOlllO 

02191500 02234800 02393000 
SEOCOMPaRE -- PROCEDURE -- DECLARED IN SEfiMpNT 13 AT 02202500 

02209750 02224500 02224750 
SEOeRRBiT — DEFINE -- DECLARED IN SEGMENT 3 AT 01001120 

02226250 02520000 
SEOeRRTOG — DEFINE -- DECLARED IN SEGMENT 3 AT 01001420 

02226250 

SEQLOC •- STREAM VARIABLE -• NAME PaRAMETfR -- DECLARED IN SEGMENT 3 AT 0?01 3060 

020i3080 02013090 
SEONO •- REAL — VALUE PARAMETER -- DECLARED iN SEGMENT 3 AT O2OOI65O 

02001640 02001645 02001695 
SEONO — STREAM VARIABLE — VALUE PaRAMETfR •- DECLARED |N SEGMENT 172 AT 17047200 

17047400 17050400 

SEONO -• STREAM VARIABLE -- VALUE PaRAMETfR -- DECLARED IN SEGMENT 172 AT 17051400 

17051500 17052100 
SeONOf — DEFINE "- DECLARED IN SEGMENT 3 AT 01007430 

17092600 17O934OO 17094800 17095750 17095900 17117702 I7ll7708 
SeOSUM *- INTEGER — DECLARED IN SEqMeNT 3 AT 01561120 

02013525 02013615*02013645*02013713 02201000 
SEOTOe ••- DEFINE '"• DECLARED IN SEGMENT 3 AT 01001400 



scouencf 
seqxeoto 
serr -• 

Setting 
setuphea 

SFILENO 
SFN »- 
S6AVI • 

SGNO — 

* 

sgno — 
Sgno -- 
sqnqo • 

SIGN -• 
SiGNA - 
SIGNA - 
SIGNB • 
SIGNC • 

simparit 

SiMPBOO 
SlMPGO 

SI MP! - 

* 

siMPUr 

SIMPUf 
SlMPUrB 

SiMPUrV 

SlNGUBlT 



02191500 02234800 

WARNING •- STREAM PROCEDURE -" 

02227000 

G -• BOOLEAN -- DECLARED IN SEGMENT 

02331060*»02525008**02525012* 02525013 

FORMAT •- DECLARED iN SEGMENT 118 A 
09416002 

DEFINE -- DEtLaRED IN SegMeNT 151 aT 
14454000 

-- BOOLEAN -- DECLARED iN SEGMENT 3 
02327000* 02338000 02352000 02356000 
DING — STREAM PROCEDURE -- DECLARE 
17051200 17094700 

•• INTEGER -- DECLARED IN SEGMENT 3 
08945000 *0e946000* 08956000 08985000 

STREAM VARIABLE — VaLUE PaRaMETER 
08933000 ♦08937000* 

• tNTEGFR "• DECLARED IN SEGMENT 3 A 

07646650 ♦07646680* 07693000 07697500 

09399000 09399150 09400000 09419000 

INTEGER -• DECLARED IN SEGMeNT 3 aT 

02195750 02214200 02227500 

07697500 *08860200* 08860400 

♦13781000^ 13814000 

"• VALUE PaRAMfTER 



02195000 

07646680* 

13310450 

STREAM 
05237500 

STREAM 
09011000 

m 



13779000 
VARIABLE 

05243000 
VARIABLE 

09021000 



DECLARED IN SEGMENT 3 AT 01742100 

3 AT 01001560 
*09028l00^ 
T 09414101 

14419000 

AT 01000802 
02427000 07084000 
D IN SEGMENT 172 AT 17047200 

AT 01755000 

-- DECLARED IN SEGMENT 103 AT 06932000 

T 01369000 

♦07699000* 06860200 *08860400**09030000**09295000**093l2000* 09361180 

13633100 13633200 13780000 13781000 *1 38 14000**14061000* 

01370000 

022?8750 05262000 05264500 07025020 07646640 ♦07646650^ 07646670 

«0886O45O^*090 30000**09295000* 09298100 09300200 *0 93 12000* 09315000 

*l38l8000* 14054000 *14061000* 14577000 14596000 

— DECLARED IN SEGMeNT 3 AT 05?37000 



" VALUE PARAMETER -" DECLARED IN SEGMENT 104 AT 09010000 

„AT,„i4Q30pOO,. „ 

T 06262600 •- OCCURS AT 06068000 
AT 06282600 



INTEGER — DECLARED. IN SEfiMENT-ifll 
14054000* 14577000 14596000 O6O61OOO 

BOOLEAN -• DECLARED IN SEGMENT 62 A 
06286400* 06288600 

- BOOLEAN — DECLARED IN SEGMENT 62 
06285808 •06286000**06286200* 06288000 
• OHN BOOLEAN — DECLARED IN SEGMENT 

06098000 08108000 
DECLARED IN SEGMENT 
*08121000* 08126000 
DECLARED IN SEGMENT 
06185000 08197000 



O8O56OOO* 08065000 
• OHN BOOLEAN •'■ 
06050000 08112QOO 
" OWN BOOLEAN -- 
08044000 *08112000* 



H — PROCEDURE "- DECLARED IN SEGME 
06006000 06277000 07111270 07210000 

— PROCEDURE — DECLARED iN SeqMENT 
06145000 07lll?60 07111290 07212000 
-• BOOLEAN PROCEDURE -- DECLARED IN 
07555000* 07557000 07564000 07570000 

• BOOLEAN PROCEDURE -- DECLARED IN S 

06061000* 06176000 08211000 08224000 

— BOOLEAN •- DFCLaRfO IN SEGMENT 62 
06285000 *06267200» 06287400 

— BOOLEAN PROCEDURE -- DECLARED IN 
08033000**08038000* 08039000 08112000 

•• DEFINE -- DECLARED IN SEGMENT 89 
08044000 08112000 08220000 

— DEFINE •• DECLARED IN 
08074000 08099000 082MO00 

«— DEFINE — DECLARED IN 



89 AT 08012000 

08130000 08179000 O8I8IOOO 08189000 08212000 08217000 »08227000* 

89 AT 08012000 

08183000 08196000 *08203000* 08214000 

89 AT 08012000 
*08202000* 08219000 *08220000* 
NT 3 AT 06032000 — FORWARD AT 03003000 

10324000 15369500 

3 AT 06168000 -• FORWARD AT O3OO9OOO 

10326000 
SEGMENT 3 AT 07548000 -- FORWARD AT 03026000 

07581000 07646515 
EGMENT 89 AT 08052000 

AT 06282600 



SEGMENT 89 
08224000 
SEGMENT 3 



SEGMENT 69 AT 08027000 
08181000 08183000 08185000 
AT 08014P00 

AT 08015000 
08227000 
AT 01001130 



I Ml. 



M 




IP 




■^fT 




siv 
siz 
Size 

SIZE - 



02013179 020l3l8l 021^5000 02195750 02196590 02214200 02227250 02227500 02228750 0252^0 04l500t0 
04279100 04284100 05039600 05046000 05265000 05325490 07025020 09302000 10075000 13633100 1364900<> 
17094250 17094500 
SlNGtrOr, ••' DEFINE -- DEClARED iN SEGMfNT 3 AT 01001430 

02013179 02013181 02195000 02195750 02196590 02214200 02227250 02227500 02228750 04150000 04279100 
0*294100 05039600 O5O46OOO 05265000 05325490 07025020 09302000 10075000 13633100 13649000 17094250 
17094500 

• DEFINE •- DECLARED IN SegMeNT 3 AT 0i236000 
16319000 16320000 16328000 16334000 

• INTEGER -- DECLARED IN SEGMENT 28 aT 02762000 
*02767000* 

- REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02927110 

02927100 02927110 02927380 ©2927470 02927490 02927580 02927610 02927612 02927620 02927660 02927690 

02927700 

• REAL -• VALUE PARAMETER -- DECLaReD IN SEGMENT 3 AT 03044000 

03042000 03043000 
SIZE — STREAM VARIABLE '• VALUF PARAMfTER •- DECLARED IN SEGMENT 3 AT 05317000 

05318000 05324000 
Size — real -- value parameter -• declared in segment 3 at 13636000 

13634000 13635000 13639000 13*40000 ♦13642000* 13643000 13644000 13645000 1-3649000 13650000 13654000 
SIZEALPhA — DEFINE -- DECLARED IN SEGMENT l53 AT 15025000 

15035000 15037000 
SK -- STREAM VARIABLE •- VAL.UE PARAMETER -- DECLARED IN SEGMENT 2 AT 00515000 

00516000 00517000 00521000 
SKAN -- DEFINE »- DECLARED IN SEGMENT 15 AT 02238220 

02238340 02236390 02238420 02238500 
SKaN — DEFINE •" DFCLARED IN SEGMENT 3 AT 02277000 

02327000 02371000 02499000 02590000 02958500 

skanagain — ' Label -- peclared in segment 21 at 02360000 "■ occurs at 02370000 

02378000 02383000 02385000 02389000 02465000 02468000 02478000 02503000 02527000 02584000 0259500a 
02599000 

'w rfal -• VALUE Parameter -• decLaRfd in segment ii9 at 10088000 

10086000 10087000 10092000 
••■ INTEGER — DECLARED IN SEGMENT 119 AT 10106000 

*l0lt6000* 10127000 10127200 *10139000* 10J43000 10146000 *101 47000**10150 I25*#l0l50l90* 10150225 ♦10153000* 
*10161500^^10162000+* 101 65000** 10 170000* 10171000 

■ Label — DEtLaREO in segment 177 aT 17091100 -- occurs at 17096850 

17094150 
SKiPcOUNT '•• INTEGER "- DECLaReO IN SeqMENT 121 AT 10241000 

♦10247000* 10253000 10254000 10256000 
SKtPIT — DEFINE '- DFrLARED IN SEGMENT 34 AT 02974000 

02974500 02978500 
SKIPS •- PROCEDURE "» DECLARED iN SEGMENT 157 AT 16403000 

16419000 16492000 
SKIPV — DEFINE — DECLARED IN SEGMENT 3 aT 01241000 
SKIPI -- LABEL -- DECLARED IN SEGMENT 64 AT 06313500 -- OCCURS AT 06332500 

06313750 06314500 06329800 
SKIP2 •«• LABEL -- OfCLARED IN SEGMENT 64 aT 06313500 -- OCCURS AT 06331100 

06327000 
SKP -• STREAM VARIABLE — VaLUf PARAMETER -• DECLARED IN SEGMENT 3 AT 02001831 

02001833 
SKP -- STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 02001838 

02001842 
SKP •- STREAM VARIABLE -- VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 02001858 

02001890 
SKSC — LABEL — DECLARED IN SegMENT 120 aT 10259000 •• OCCURS AT 10263500 

10283000 
SUB — LABEL -- DECLARED IN SEGMENT 138 AT 13452000 •- OCCURS AT 13547000 



SKIP 
SKIP 

SKIP - 



13580000 13584000 
SNO — DEIFINE " DEtLAPED IN SegMFM 3 AT 0i67l000 

06062190 06072070 06288800 07418000 07923000 08993500 10360000 10837000 l09i9000 13761000 15007000 

15104000 15318000 15320000 15335000 
SOP — BOOLEAN -- V4LUF PaRaMETER '" DECLaRED IN SEGMfNT 3 AT 14003000 

14001000 14002000 14036000 14059100 14554000 14597000 
SORCE •• STREAM VaRIArLF "- NaMf PARAMETER -" DECtARED IN SEGMENT 2 AT 00515000 

*0051B000* 00521000 
SORTA •- nEFlNE •• DECL-ARED IN SEGMENT 3 aT 01580000 

08911100 08955000 
SORTI — DEFINE -- OECLARED IN SEGMENT 3 aT 01579100 

08926000 08997000 
SORTMfRgETOg " BOOLEAN — DECLARED IN SEGMfNT 3 AT 01786000 
SORTSTMT — PROCEDURE •- DECLARED IN SEGMfNT 3 AT 08928000 •- FORWARD AT 03081000 

07826000 08998000 
SPAC -" RfAL -- VALUE PaRaMfTER •- DFCLaRfD IN SEGMENT 3 AT 05259000 

05245000 05259000 ♦05260000* 05262000 05264500 05266000 
SPaCEiTdOWN — DFFINE — DECLARED IN SegMfNT 143 AT 14023100 

14461500 14493«500 
SPACESTmT — PROCEDURE -- DECLARED IN SEGMENT 3 AT 08494000 -- FORWARD AT 03063000 

07742000 08527000 
SPACEV •• DEFINE •- DECLARED IN SEGMENT 3 AT 01218000 
SPCLMON -- BOOLEAN -- DECLARED IN SEGMENT 156 AT 15211000 

♦15242000* 15326000 *15349000* 15351000 15354000 15360000 
SPECIAL — REAL ARRAY -- DECLARED IN SEGMfNt 3 AT 01003000 

02655000 02666000 02755000 0296i500 02963000 07031000 ♦09198000* 

sPFCULrHAR -- Label -- declared in segment 27 at 02637000 -- occurs at 02651000 

02643000 
SPeCIaLMATh •• DEFINE -- DECLARED IN SegMfNT 3 AT 01579355 

1206175© 
SPeCIALSWiTCH -• SWITCH LABEL — DECLARED IN SEGMENT 27 AT 02641000 

02659000 
SPECTOG " BOOLEAN -- DECLARED IN SEGMENT 3 AT 01593000 

♦05034000^ 13048000 13050000 13077000 13082000 13193000 13196350 13196370 13305100 13310300 l33l0500 
13326000 *13330650* 13348100 13*57000 13462000 13467000 13470000 13478000 13550000 13565000 13601000 
13621000 13717000 13819400 14070000 *14122000* 14142000 14149000 14160000 14161000 14169000 14187000 
14205000 14217000 14275000 14287000 14296000 14298000 * 14364000**14368000* 14377000 14507000 ♦14507180* 
SPMON — DEFINE — DECLARED iN SEQMeNT 156 aT 15195000 

15242000 
SPMONaDR — DEFINE -- DECLARED IN SEGMENT 156 AT 15207000 

15246009 15249000 
SPRT •• BOOLEAN ARRAY -• DECLARED IN SEGMENT 3 AT 01696000 

♦ 0534600i>^ 05349000 05352000 05363000 
SRESUlT " INTEGER — DECLARED IN SEGMENT 2l AT 02365l00 

♦02366200* 02602700 
SSCRAM — INTEGER — DECLARED IN SEGMENT i52 AT 14507030 

♦14507050* 14507160 
SSN •- DEFINE — DEcLaRED IN SEGMENT 3 AT 0l67ll00 

06416600 08613200 08653125 08653195 08924000 06993000 

SSP — DEFINE — OErLARED IN SEGMENT 3 AT 01672000 

05226000 06067000 084|50i0 08418600 08613200 08627000 08653110 08653140 08653210 
ST — STREAM VARIABLE " VALUE PARAMETER -- DECLARED IN SEGMENT 46 AT 05050000 

05051000 05054000 
STaCKcT — REAL — DECLARED iN SEQMeNT 3 aT 01568500 

»O4O785O0^ 04527000 ♦06053500*^06098000**06 124500*^06 126000**06 195500 *^06260500*^06267000**06289200**06296500* 
«06299500«*06305500*^06336600**06410000**07079500**07365000^*07465250**07727 100*« 14125500** 1 509 iQ0O*«l5Q9aDQ0* 
♦15101500^*15217500^*15234500**15299500**15376000* 

j^, ilk * 





%M. ■%j^mm'^^ 



STACKC 
STACKc 

stacKh 

STARS 
START 
START 
START 
START 
START 
START 

START 

START 

START 

START 
START 
START 

STARTc 

STARTi 

STARTi 

START? 

STATS 

STATUS 

STp - 



STrPi • 



TR •- Rfa 

05370000 
TRO -- Hi 
*1405e000« 

fAD — Re 

02674009 
1^14448000* 

— STREAM 
17051500 

— REAL 
08082000 

•- LABEL 
10678000 

— LABEL 
10933000 

-- LABEL 
13050000 

•- LABEL 
13564000 

-• LABEL 
14138000 
14199000 

•• LABEL 
14170000 

"" LABEL 
14216000 

-• LABEL 
14259040 

-- LABEL 

— LABEL 
*•• LABEL 

16465000 
ALL — LA 

10900000 
NTRSC 

09291000 
— LABEL 
14325000 
" LABEL 
14301000 

• SWITCH 
17054500 
•• LABEL 
06061000 

PEFINE 
04614000 

08728600 
13069000 

• tNtegf 

05108000 
06073200 
06507000 
07646460 
07846000 
06240000 
08437000 
08647000 
10666000 




L ••• DECLARED IN SEGMENT 3 AT 01683000 

♦ 05371000* 13748000 14058000 14477000 * 14478040** 14493000* 14535000 

AL — DECLARfD in segment i43 AT 14029000 

•14477000* 14493000 14610000 



14536000 *l46i0000* 



,. ,.,^ ,..,,, 



id 



AL ARRaY 
05233000 

14507070 

VARIABLE 

17052000 

•- VALUE 

08063000 



— DECLARED IN SERMpNT 3 AT 0l3l0000 

*052|4000**09i8e000* 092i4520 *09214530**1 3286000**13308000 



-• VALUE 
170S240G 
PARAMETER 
08086000 



PaRAMeTfR — DECLARED |N SEGMENT 172 AT 170514 
— DECLARED IN SEGMENT 90 AT 08084000 



* 13361000 ♦13362000*.*14259.102* 
00 



-- DFCLaRED IN SEGMENT 124 AT 10550000 -- OCCURS AT 10565000 
-" DECLARED IN SEGMENT 125 AT 10706000 — » OCCURS AT 10792000 



-- DECLARED iN SFGMeNT 131 AT 13040000 
13072000 13082000 13145000 13164000 
-- DECLARED IN SEGMENT 136 AT 13452000 



OCCURS AT 13195000 
OCCURS AT 13586000 



-• DECLARED IN SEGMENT 143 AT 14017000 -• OCCURS AT 14063000 

14139000 14140000 14141000 14148000 14155000 14158000 14159000 

14253000 14269000 14269980 14379000 14504000 14507190 14521000 

-- DECLARED IN SEGMENT 145 AT 14166000 -- OCCURS AT 14164000 



DECLARED IN SEGMENT 146 AT 14202000 



OCCURS AT 14251000 
OCCURS AT 14269000 



•- DECLARED IN SEGMENT 147 AT 14254050 — 

14259075 

-- DfCLaRED iN segment 149 AT 14272000 •- OCCURS AT 14373000 

-- OfCLARED IN SEGMENT i50 AT 14384000 — OCCURS AT 14503000 

-- Declared in segment 157 at 16475000 »- occurs at 16477000 

BEL -- declared IN SEGMENT 125 AT 10714000 -- OCCURS AT 10003000 



•- DEFINE 



DECLARED IN SeGMfNT 104 AT 09024000 



-- DECLARED IN SEGMENT 149 AT 14272000 •• OCCURS AT 14375000 
14364000 
-• DECLARED IN SEGMENT i49 AT 14273000 -• OCCURS AT 14376000 

FORMAT -• DECLARED iN SEGMENT 174 AT 17053500 
17054800 17055020 
•• DECLARED IN SEGMENT 57 AT 06060000 -- OCCURS AT 06073200 



— DECLARE 
06062435 
08954000 
13196570 

R PROCEDURE 
05273100 
06073250 
07018000 
07646595 
07854000 
06243000 
06479000 
0B653125 
10672000 



P IN SeGME 
07111310 

06955000 
13230000 

"• OECL 
05273900 
06118000 
07079000 
07661000 
07859020 
06366000 
08493530 
06653195 
10809000 



NT 3 AT 

07134000 

10302000 

13915000 

AREO 1N 

05274300 

06286200 

07462000 

07660500 

07901000 

08401000 

08592000 

08687000 

10892000 



01673000 
07306000 
10328000 
14181000 

Segment 3 a 

05276000 
06287200 
07462500 
07684500 
07924000 
06412040 
08597100 
08698200 
10965000 



07470750 
10622000 
14233000 
T 05003000 
05277000 
06314050 
07505000 
07754000 
07925000 
06412050 
06620010 
06738000 
10970000 



07626000 
10922000 
14545000 

05278000 
063H2J50 
07552000 
07814000 
07939000 
06413130 
06620020 
06601PPO 
12007000 



07659070 
12038000 
14565000 

05365000 
06321000 
07567000 
07829000 
08,017600 
06414000 
06622010 
06906Q00 
12010000 



14160000 14162000 14186000 



07923000 
12061100 
15104000 

06062120 
06330500 
07597000 
07631000 
08029 000 
06416010 
08623000 
06967DDQ 
12013000 



07946000 
12061200 
15335Q0Q 

06072030 
0641 S 000 
07645000 
07834000 
06113000 
06418250 
08629000 
Qft252QDQ 
12060500 



08090000 
12063300 



06072200 
06 42 IB 00 
07646440 
07844000 
.0.8.1.7.6.00.0 
08431000 
08637000 
1.051.3000 
13064000 



13068060 
14268000 
15090000 
16206000 
16326100 



13092000 
14269320 
15113000 
16208000 
16340000 



STfPlT •- PROCEDURE -"• 
05146000 05174000 



STrPV " 
STL.ABID 
STLB -- 
STMT •• 

STMTSTAR 
STOP -« 

STOPDfFt 



06062195 

06072270 

06199000 

06331000 

07010000 

07493000 

07668500 

07913000 

08192000 

08416018 

08493650 

06621004 

06678000 

08789000 

08995000 

10796000 

12017000 

12062200 

13088100 

14193000 

14314000 

16230090 

• OEFINf 

08103000 



06062230 
06073830 
06256000 
06336500 
07215500 
07495000 
07691000 
07925000 
08231000 
08417010 
08493730 
08624000 
08696540 
08816000 
08996000 
10803000 
12025000 
12062400 
13088120 
14214000 
14359000 
1.6234000 

— oecUaReo 



13188000 
14269480 
15233000 
16209000 
16367000 

dfcl-aRed 

05187620 
06062350 
06073860 
06259000 
06345000 
07244000 
07505000 
07808000 
07952000 
08245000 
06418200 
06502000 
08624004 
06697000 
08822000 
10297000 
10812000 
12030000 
12062600 
13096000 
14242000 
14403000 



13196520 
14269500 
15253000 
16217000 
16368000 
IN SEGMENT 
05386000 
06062385 
06110000 
06262000 
06403000 
07263000 
07509000 
07813000 
08031000 
08261000 
06416350 
0B507000 
08629000 
08696400 
08841000 
10298000 
10836000 
12034000 
12062900 
13111000 
H259000 
14472000 



16376000 16408000 
IN SEGMENT 3 aT 



13351000 13474000 13564000 I379i000 

14338000 14341000 14345000 14356000 

15254700 15260000 15300000 15342000 

16252000 16253000 16282000 16316000 

16372000 16384000 16406000 164341100 

3 AT 05002000 -- FORWARD AT 01741000 

06015000 06020000 06035000 06049000 

06062430 06072040 06072060 06072110 

06113000 06120000 06124000 06126000 

06270000 06286400 06288600 06303000 

06410000 06411000 06416000 06417000 

07407000 07441000 07463750 07470500 

07552000 07569000 07573000 07580000 

07841000 07851000 07857000 07859040 

08120000 08131000 08135000 08142000 

08391000 08412000 08412090 08413018 

08418800 06444000 064560OO 08474000 

08519000 08592000 08611000 08613200 

06629004 08643000 08650000 08653125 

08698600 08721000 06726000 08729000 

08846000 06857000 08905000 08920000 

10309000 10356000 10368000 10573000 

10907000 10922000 10926000 10933000 

12036000 12036300 12040000 12045000 

12063610 12064400 12064800 13080000 

13148000 13327000 13805000 13907000 

14259070 14259140 14269220 14269380 

14601700 15098000 15254600 15274000 

164i2.QaO 16494QQ0 

01255000 



16443000 16481000 



15255000 



STOPeNTR 

. . .* 

* 
STOPfiSP 



STOPOs 

STOPPfR 
STOPPpR 



06162000 
"• DEFINE •• DECLARED IN SFqMeNT 3 AT OU78000 
14403000 14447000 16051000 16224000 16253000 16437000 

REAU -- DECLARED iN SEGMENT 3 aT 01471000 
07165000 07201000 ♦07364000* 07365000 07366000 *15254400**15254700* 

PROCEDURE — DFCLaRfD IN SEQMeNT 3 AT 07714000 — FORWARD AT 03027000 
05108000 07011000 07485000 07495000 07574000 07577000 07586000 07646520 
J4488000 14515000 

T •- OWN Real -- declared in SfgMfnt 89 at 06010000 

08157000 ♦08169000**08191000* 08193000 *08206000* 08221000 

LABEL -■' declared IN SEGMENT 150 aT 14384000 -- OCCURS AT 14491000 
14484000 

NE — BOOLEAN -- DECLARED IN SEGMpNT 3 AT 01597000 

02893000 ♦0291 1000**0292600Q**070l7000**0764659S**0849305Q*# 10263300**1 026 1000* 
1 3 327000* ♦I 3805000** 14 129000 + ^ 14 192000 ♦*14258000^*14259060^*1 4 259104^^1 4259 130* 
V — BOOtFAN — DECLARED iN SEGMENT 3 AT 01594000 
13048000** 1306 1000** 13077000**1 3 ie9000**l3l96350**13l 96490* 13351000 *137800QQ* 

14188000**1 4 198000** 1 4205000** 14 21 7000**1 4255000**H269000**l4269l 20** 14269940* 
14404000* 

-• BOOLEAN -- DECLARED iN SeGMeNT 3 AT 01694000 

13342000 13344000 * 1378 3000* * 1 3B1 7000**14 1 7 lO00**i 4183000**141 88000**14 198000* 

14269000** 14269 120** 14269940** 14402000** 14404 000* 

•• -STREAM VARIABLE — NaME PaRaMeTfR — DECLaReD 1N SEGMENT 3 AT.02D01020 

02001375 
— REAL — VALUE PARAMETER •" DfCLARED IN SEGMENT 3 AT 03068000 
•• Real •• VALUE PARAMETER "• DfCLAReD 1N SEGMENT 3 AT 13217Q00 

13215000 13216000 13223000 1329i000 



13911300 
14393000 
16125000 
16319000 
16435000 

06062120 
06072220 
06129000 
06316500 
06422000 
07471750 
07584000 
07859080 
08155000 
08414010 
08489570 
08613300 
08653195 
08748000 
08924000 
10591000 
10964000 
12054000 
13087000 
13911200 
14269640 
15306000 



15262600 
07757000 



14126000 
14396000 
I6I6OOOO 
16324000 



06062150 

06072240 

06152000 

06323000 

064230QQ. 

07485000 

07646430 

O79Q3MO 

O8I61OOO 

08414018 

0849 JOAO 

08618000 

08656000 

08753000 

08965000 

10606000 

10989000 

12060550 

13088085 

13917000 

14269705 

16130000 



14259110 
14467000 
16197000 
16326000 



06062165 
06072260 
06172000 
06326000 
.065.0.8000 
07487000 
07664000 
07907000- 
06175000 
06416010 
084^36-25 
08621000 
08664000 
08T64000 
08994020 
10678000 
12013000 
12061300 
13088090 
141740Q0 
14269840 
16176000 



15273000 

08163000 06201000 



*121M000** 
*14269200** 

*i 3,84 70 00** 
*14318000** 



13079500**13086050* 
14402000**14403000* 

141 71.000**4 4 l.a3Q0U* 
14321000**14402000* 



* 14205000** 142 17000**1 4255000* 






«Mi 



^^^ 







"nv 



iff,., ^"IWJJi 



m 





OCCURS AT 10326000 

-- OCCURS AT 10592000 

•- OCCURS AT 14137000 

FORWARD AT 030A0000 



STOPPfR — REAL -" VALUE" PARAMETER "• DECLARED IN SEGMENT 3 AT UHflOOO 

13731000 13732000 13767000 13771000 
STOPPQINT — DEFINE -- DECLaRED IN SEGMENT 3 AT 01561090 

02013495 02013600 
STORE •- LABEL •• DECLARED iN SEGMENT 70 aT 07065000 -- OCCURS AT 07134000 

07208000 07212000 
STORE — PROCEDURE -- DECLARED iN SEGMENT 89 AT 08063000 

06070000 08130000 06135000 08138000 082i6000 
STORE -- REAL -- VALUE PARAMETER "- DECLARED JN SEGMENT 90 AT 06084000 

08082000 08083000 08089000 
STORE -- LABEL -• DECLARED IN SEGMENT 122 AT 10292000 — 

10322000 
STORefIX — INTEGER -- DECLaRED IN SEGMENT 90 AT 08091000 

♦08093000* 08157000 08171000 
STORESUPS — LABEL — DECLARED iN SEGMENT 124 AT 10557000 

106?9000 

STR — Real -- declared in segment 67 at 07922000 

*07923000* 07926000 
STREAMERR — LABEL — DECLARED IN SEGMENT 143 AT 14017000 

14021000 
STReAMSTMT -• PROCEDURE -- DECLARED IN SEGMENT 3 AT 16001000 -' 

07011000 14415000 16130000 16229000 16235000 16495000 
STREAMTOG •• BOOLEAN •- DECLARED IN SEGMENT 3 AT 01416500 

02691000 02697500 02776500 O4O86OO0 04279000 ♦06502000* 07011000 ♦076B9000**0769lODO**07698500* 10260050 
♦10260100^*10264000* I33l0580 13339100 13342000 14077000 14082000 ♦14280000^ 14324000 14361000 14377000 

14385000 ♦14461000^ 
STReAMV -- DEFINE — DFCLaRfD IN SEGMeNT 3 aT 01297000 

14278000 
STReAMWORDS -- procedure -- DECLARED IN SpGMENT 3 AT 05230000 

05236000 14324000 14460000 
STRING •* DEFINE — DECLARED IN SEGMENT 3 AT 01278050 

02705100 02776600 02783000 07669500 07671000 16384000 
STRMPROcSTMT •• PROCEDURE — DECLARED IN SEGMENT 3 AT 07427000 •- FORWARD AT 03030000 

06101000 06244000 07455000 07737000 
STRNgcON — DEFINE — DECLARED iN SEGMENT 3 AT 01211000 

02702000 02776200 06286600 07669500 080l7700 08032000 13089000 13092000 16210000 16384000 
STRNgxT -■• LABFL — DECLARED IN SEGMENT 27 AT 02638000 •- OCCURS AT 02701000 
STRPROCtD -- DEFINE — OECLaRED IN SEGMENT 3 AT 01189000 

07441000 14261000 
STRTPOS -- STREAM VARtABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 02001020 

02001180 
STUFF — STREAM PROCEDURE — DECLARED. IN SEGMENT 12 AT 02196530 

02196580 
STUFFBIT — DEFINE — DECLARED iN SEGMENT 3 AT 01001140 

02516000 

STUFFF •• PROCEDURE -- DECLARED IN SEGMENT 3 AT 05199000 

05203000 07111330 07138000 07272000 07633000 10367000 10621000 14228000 
STUFFtLf — STREAM PROCEDURE " DECLARED iN SEGMENT 103 AT 06932000. 

08939000 08949000 
STUFFTOr, — DEFINE -' DECLARED IN SEGMENT 3 AT 01001440 
STl — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT lO AT 02090000 

02090500 ♦O212OOOO* 02124500 *0?126000* 

ST? — STREAM VARIABLE -- VALUE PARAMETER •- DECLARED IN SEGMENT lO AT 02090000 

02090501 ♦02121000* 02121500 

SUB •• DEFINE •• DECLARED IN SEGMENT 3 AT 0i674000 

06071000 O62862OO 06329550 08030000 08044000 08214000 12015000 13544000 14544000 16329000 

SUBC -• DEFINE -- DFCLaRED IN SEGMENT 3 AT 13213000 

13492000 13502000 13579000 13584000 




SUBUEVEU -- INTPGPR •- DFCLaRED IN SEGMENT 3 

04611000 05117000 06374000 ♦14477000**1 
SUBOP •• DEFINF -- OECLARrn IN SEGMf.NT 3 ^T 1 

13487000 13576000 
SUBSCRIPT — nEFlNE -- DECLARED IN SEGMENT l2 

10598000 10615000 10621000 10622000 1 
SUBSCTR — DEFINE -- DECLARED IN SEGMENT l25 

10813000 10814000 10823000 

suBSLoop — Label -• declared in 

10857000 

SUM •• strfam vaRiabLf — NaMe parameter -* 

02013074 02013076 02013120 

supeRfileio "- define: -- declared 

05169000 06073250 
07846000 08403000 



05141000 
07831000 
13049000 

supeRfRmtio •• 

05221000 
SUPERLISTIO — 
05187580 

suPfRmovfR "• 



10838000 1 
SEGMENT 129 



02013130 
IN SEGMrNT 
06092005 
08508000 



AT 01402000 

4492000* 

3211000 

4 AT 10507000 
0626000 

AT 10769000 

0839000 10848000 

AT 10736000 — OCCURS AT 108 

DECLARED IN SEGMENT 3 AT 0201 
2013136 
3 AT 01185000 

6225000 06227500 07107000 
8598000 08727000 08790000 



36000 
3060 



7467750 07685500 
8847000 08908000 



07729190 
08967000 



07814300 
08973000 



DEFINE -• 
05224000 

DEFINE -' 
07099000 

define: -- 



DECLARED 
07105000 

DECLARED 
07122500 
DECLARED 



IN SEGMrNT 
08439000 
IN SEGMpNT 
07215000 
IN SEGMfNT 3 



■- DECLARED IN SpGME 
DECLARED IN SfcMfNT 



07953000 
SUPcRSTaCK — REAL ARRAY 

02865000 ♦09l96i00* 
SVARMONfiLE "• DEFINE -- 

I50i0020 
SVTOG •- BOOLEAN •- DECLARED IN SEGMENT I36 A 

*13330600* 13330650 
SM -• SWITCH LABEL — DECLARED IN SEGMENT li 

02194500 
SW — SWITCH LABEL 

02328000 
SWiTChDfC -- LABEL 

14020000 14252000 
SWtTChGfN — BOOLEAN PROCEDURE — 
♦10976000**10998000* 12001000 
SWiTChID •- DEFINE -• DECLARED iN 



— DECLARED IN SEGMENT 22 



DECLARED IN SEGMENT 143 



3 AT 0U83000 

8644000 13787000 14091000 
3 AT 01278500 

7217500 08479000 08485000 
AT 01577500 



NT 3 AT 01310000 
3 AT 01529000 
T 13323010 
AT 02191250 
AT 02326000 
AT 14015000 -- 



08687000 08689000 13196360 13196520 



OCCURS AT 14200000 



DECLARED 
14223000 
SEGMENT 3 A 
10642000 1 
IN SegMfNT 



IN SEGMENT 3 AT 10954000 



O6393OOO 07507000 O7728OOO 

SWITCHIT — PROCEDURE — DECLARED 

02359000 02377000 02388000 02393000 
02421000 02425000 02435000 02470000 
02508000 02511000 02516000 02520000 

SWITCHV •• DEFINE •- DFCLaRfD IN SEGMENT 3 AT 
13045000 13193000 13778000 14161000 I 

SWITMONfiLf •- DEFINE -" DFcLaRfD IN SfgMfNt 
07516000 

syllabLf — Real -• value parameter — decU 
Syllable — real ••• value parameter — decl 

SYLLABLE — STREAM VARIABLE «- VALUE PARAMETE 

04271000 04274000 
SYMBOL •• -STREAM VARIABLE «-- VAL^E PARAMETER 

02183750 02185250 

T — REAL — declared IN SEGMENT 3 AT 0156400 

♦02655000* 02658000 *02666000**0269l000» 

♦02r55000#«02776l00**02776200**02776600**0 

02842POO ♦02848000**02850000**02851000**0 

♦02877000* 02877010 ♦02877020**02878000**0 



T 01186000 

3253000 14217000 

21 AT 02321000 

2395000 02397000 02402000 

2472000 02474000 02480000 

2522000 02531000 02567000 

01292000 
4167000 
3 AT 01539000 



2412000 02415000 
2487000 02490000 
2574200 02577000 



024l9i00 
02496000 
02600000 



02419200 
02506000 



AReD IN SEGMENT 3 AT 03019000 
ARED in SEGMENT 3 AT 03028000 

R -- Declared in segment 3 a 

— declared in SEGMENT 3 AT 



2695000 ♦02701000**02702000^«0 
2798000**02813000* 02814000 *0 
2865000* 02967000 *0286.9MO**0 
2882000* 02882200 02886a£0' 




T 04270000 
02183500 . ;f 



2705l00**02705200* 
2623000* 02824000 
2073OOO**D28TJOOO.t 
2896000 *02897(»0* 





♦02721 

*0a82600 
QJ»9I300 
290100 






ABIE 



TAKE 



029iO200 
*06069000* 
REAl, — 
STREAM VAR 

01736100 
REAU •" 
•022^1000* 
BOOLEAN - 
STREAM VAR 

02443000 

STREAM VAR 
02446000 

tNTegeR - 

*02960500* 

BOOLEAN 

♦0298?500* 

tnteger - 
tntegeR - 

04311030 

LABEL -- 
06250000 

DEFINE — 
07660000 
07681000 

tnteseR - 

07936000 
BOOLEAN - 

08493010 
REAL "" 
«1203OO00* 
REAL — 
♦12060500* 
*12065000* 
REAL -- 

12108000 
STREAM VAR 

13008000 

REAL — 

♦13200000* 

REAL " 

*13513000* 

*13560000* 

REAL - 

♦16070000* 

TNTEGER - 
16393000 

"• tNTEGF 
♦02920000* 
06330700 
07689500 
08460000 
10926510 
14063000 
"- RpALt PR 
02001610 
05397000 
07361000 
08943000 



029l0«00 
08070000 
VALUE PARA 
lABLE -- 
01736900 
DECLARED I 
♦02257000* 

• DECLARE 
IA8LE " 

02444000 

IABLE 
02449000 

- DECLARE 
♦02961000* 

- DECLARE 
02983000 

- VALUE P 

- VALUE P 
04312000 
DECLARED 
06256000 

DFCLaREO 
07663500 
07694000 

• VALUE P 
07945000 

- VALUE P 
08493015 

DECLARED I 
♦12038000* 
DECLARED I 
♦12061000* 

12065200 
VALUE PARA 




r 



1^.1^ 



♦02927390^ 02^27400 *05233000* 05234000 

METER -- DECLARED iN SEGMENT 3 AT 0171 
DECLARED IN SEGMENT 3 AT 01736000 

N SEGMENT 16 AT 02249000 
♦02259000^ 02260000 
D IN SEGMENT 22 AT 02323000 
VALUE PARAMETER -• DECLARED IN SEGMENT 23 AT 02441000 

- VALUE PARAMETER -• DECLARED IN SEGMENT 28 AT 02446000 



♦ 0«057000^ O8O5|P^i08&|OOQ4,j^|p||6l0OO 



0. 



.1, 



D IN SegME 
02961500 

D IN SEGME 
02963500 

arameter 
araMeter 

04318000 

IN Segment 
IN segmen 

07664500 
07696500 

ARaMeTER 
07947000 

arameter 

08493050 
N SEGMENT 
♦12044000^ 
N SEGMENT 

12061100 

Meter -- 



NT 32 AT 0?957500 
♦02964000^ 02966500 
NT 35 AT 02981500 
02984000 02984500 

-- Declared in segment 3 at o 
-- declared in segment 3 at 



3050000 
4311000 



61 AT 06224000 -- OCCURS AT 06267000 



T 83 AT 07655500 

07665500 07666500 07672000 

07697500 
-- DECLARED IN SEGMeNt 3 AT 



07673500 07674000 07675000 07677500 07679500 
7930000 
— DECLARED IN SEGMENT 3 AT 08493015 



127 AT 12004000 
12047000 

128 AT 12060200 

12061200 *12062200^^12062400**12063200^^12063500^*12064400* 12064500 ♦12064600^ 

DECLARED tN SEGMeNT 3 AT 12101000 



IA0LE -- 
13009000 

DECLARED 
13201000 

DECLARED 
13514000 
13561000 

DECLARED 
16075000 

- DECLAR 
16394000 

R PROCFDU 

♦02924000 
07095000 
07732000 
08597300 
12020000 
14480000 

oceduRe 

02001820 
05398000 
07364000 
09214520 



DECLARED IN SEGMENT Ul AT 13007000 
130i5000 
IN SEGMENT 133 AT 13199000 

13202000 13203000 13204000 13205000 
IN SEGMENT 138 AT 13449000 
♦13530000* 13531000 13531100 13532000 
♦13569000* 
IN SEGMENT 159 AT 16067000 



13206000 13207000 

13537000 *13547000* 13549000 ♦13558000^ 13559000 



ED IN SEGMENT 165 AT 16364000 



RE •• DE 
* 02927000 
07157000 
07735000 
08668000 
12060600 
14516000 

-- DECLAR 

02722500 
05399000 
07369000 
10586000 



GLARED IN 
05002000 
07185000 
07812000 
08728400 
12112000 
15254500 

ED IN SEGM 
02f23500 
05404000 
07412000 
10625000 



Segment 3 

05003000 
07186000 
07816000 
10263400 
13480000 
16225000 

ENT 3 at 
04179000 
05405000 
07422000 
10651000 



AT 02635000 
05221000 
07198000 
07837000 
10282000 
13511000 
16479000 

5005000 -- 

♦05006000* 

05406000 

0744 2000 

10656014 



05224000 
07374000 
07859050 
1030400Q 
13513000 



05294000 
07401000 
07941000 
10318000 
13547000 



06062135 
07465000 
07947000 
10588000 
13569000 



FORWARD AT 01718100 
05124000 05131000 05189000 
07086000 07152000 07241000 
07515000 0752Q000 QI5a9i)QD 
10656015 10660000 I08i4000 



O63155Q0 
07662500 
08401030 
10 5920 00 
13572000 



05391000 
07276000 
Q7 6 04- 0.0.0. 
10839000 



063 2 20.00 
07687500 
08442000 
I0?2650i) 
13911100 



05392000 
07290000 

10885000 



in 



takffrst 

* 
TALL •• 



TaLL -- 
TALLYV 
TAN •• 
TAPf — 
TAPE •• 

tapelaSt 

TBUFF • 
TBI — 



TBI -' 
T82 - 
TCLASS 
TCOUNT 
TO •• 

tedoc 

TEOOC 

TEOOC 

TEDOC 

TEDOC 

TEDOC 

TEMP • 

TEMP ' 



10911000 
13279000 
14088000 
14259102 
H430000 
15244000 
16163000 

•• Re 

05189000 
14213000 

Real 

15077000 
15105000 
15273100 
15324000 

Real 

15215000 
"• OEFI 
16319000 

DEFINE 
16214000 

FtLE 
01835600 

STREAM 
02188500 

««i I^A 
02210750 
" REAL 
02201750 
BOOLEAN 
07275000 
10243000 
BOOLEAN 
14206000 

BOQLEAi 
13778000 
•• INTe 
16315000 
•• INTE 
02291000 

Label - 

06233000 

• STREA 
01686030 

• REAL 
07646490 

• REAL 
07694000 

• REAL 
08660150 
- REAL 
13777600 

• REAL 
14049000 

STREAM 
02001100 

Rfal 



10929000 
13284000 
14099000 
14259150 
14438000 
15246000 
16166000 

aL PROCEDURE 
* 05222000 



10978500 1?117000 12121000 13110000 

13286000 13362000 13364000 13365000 

14104000 14116300 14118000 14178000 

14259155 14265950 14269600 14310000 

14446000 14449000 1445^000 14470000 

15273100 15281000 15324000 16070000 

16172000 16254000 16260000 16449000 

— dfcLaReo in Segment 3 at 05i88000 

07256000 10583000 10649000 10656030 



13226000 
13558000 
14210000 
14320000 
15010010 
16072000 



13229000 
13786000 
14211000 
14333100 
15010020 
16074000 



13249000 
13797000 
14239000 
14352000 
15035000 
16089000 



13255000 
13607000 
14245000 
14391000 
15233100 
16138000 



13257000 
14064000 
14259100 
14425000 
1.5242.000 
16139000 



10808000 10880000 10881000 I09i3000 l09l4000 



' declaRfo in Segment i54 at 

15080000 *15083000* 15085000 



15107000 15116000 
15279000 15281000 
15333000 15342300 

VALUE Parameter 

15216000 15220000 
NE '^" DECLARED IN 
16341000 
- DECLARED IN SfqMeNT 



15072000 
15086000 
15124000 15233100 
15290000 15301100 
15344000 15352000 
-- DFCLaRfD IN SEGMENT 156 AT 
15224000 15226000 
SEGMENT 3 AT 01239000 



15092020 

♦15236000* 

15303000 

15353000 



15094000 
15237000 
15307000 
15357000 
15217000 



15097000 
15242000 
15311000 
15372000 



15099000 
15244000 
15316000 



15101000 
15267000 
15321000 



15102000 
15269000 
15323000 



157 aT 16014000 



- DECLARED IN SEGMENT 3 AT 01561000 

02201750 02452000 02454000 
VARIABLE -- VALUE 



PARAMETER 
BEL — DECLARED TN SEGMENT i3 



02457000 09407300 

-• DECLARED IN SEGMENT 3 AT 02188000 

AT 02210000 -• OCCURS AT 02219250 



ARRAY — 
02202000 

•• dfcla 

* 07279000 
♦*10260000* 

•- dfcLa 

•*14212000* 

•• dfcla 

* 13785000 

6ER — DE 

* 16317000 

GER — DE 
02252000 

- DECLARED 
06244000 

M VARIABLE 

01688070 
ARRAY •- 
♦*076465lO* 
ARRAY ».- 

07698500 
ARRAY — 

OB66O45O 
ARRAY — 

13616500 
ARRAY — 

14595000 

VARIABLE 
02001300 

— DECLARE 



DECLARED IN SEGMENT 3 AT 01561056 

02456000 02457000 0702^030 _._ _ 

RED IN SEGMENT 3 AT 01457000 

•07287000* 07295000 •07304000* 07308000 *07340000**07506000»*07507000* 07509000 ♦06660350* 

10275000 *13792000**13608000**13810000* 13815000 
Red iN segment 146 at 14204000 

14223000 14231000 14246000 
RED IN SEGMENT 141 AT 13777000 



CLAReD IN SEGMENT 164 AT 16314000 

16324000 16326000 1633*000 16341000 *l6346000* 16349000 
CLARED IN SEGMENT 3 AT 01566000 
•02756000**02790000* 02796000 02798000 02803000 *02810000* 

IN SEGMENT 61 aT 06224000 " OCCURS AT 06266000 

06247000 

•" namf Parameter "- declared in segment 3 at 0I666010 
01666O6O 

declared in segment 81 at 07646400 

*07646545* 07646565 *07646570* 07646630 07646690 

declared in segment §3 AT 07656500 



16350000 16352000 
*028i7000**02942000* 



DECLARED IN SEGMENT lOl AT O666O1OO 

DECLARED IN SEGMENT HI AT 13777500 

DECLARED IN SEGMENT l43 AT 14024000 

— DECLARED IN SEfiMpNT 3 AT 02001070 

02001320 02001500 02001510 
D IN SEGMENT 81 AT 07646390 



%! 





■■"■■ 1 



templ 

TEMPI 

TEMP2 
TEN . 

TENIL 



»0f646565* 07606575 *076<*6640* 076/46670 07646680 ♦07646720* 0764*6 
"• tNTfgeR — DErlARED IN SEGMENT 39 aT 04166000 
*04172000* 04175000 04186000 

•• STREAM VARIABLE "" DECLARED IN SfGMENT 3 AT 02001860 
02001666 02001868 02001890 

•• stream variable -- declared in segment 3 at 02001860 
- Real array — dfcLaRed in segment 3 at 01340000 




i'iil' 1 I I' J I llliUll ij 

MjililJMllijiltf 



^mi.'" 






• i~ 



,:i- 



02796000 02799000 02803000 02826000 02833000 02835000 0ZB38000 02840000'/ 028 



! 




«1^04iQi^* 






real array •■- DECLARED |N SEGMENT 143 AT 14024100 
14049000 14594000 

Test — procedure -- declared in segment e? at 08041000 

08051000 08131000 08220000 
TeSTCOOE — DEFINE -- DECLARED IN SEGMENT 162 AT 16192000 

16211300 16212500 16212700 
TESTLOC •- DEFINE •- DECLARED IN SEGMENT i25 AT 10766000 

10801000 10926000 10928000 
TESTVaRb — DEFINE — DECLARED IN SEGMENT 124 AT 10526000 

10584000 10587000 10590000 10634000 10657000 10661000 
TESTVaRB ••• DEFINE — DECLARED IN SEGMENT 156 AT 15188000 

15244000 15250000 

Text -• alpha array -- declared in segment 3 at 01481200 

02212250 02723500 *092Bl0l0* 1025i000 10254000 «121l7000« 
THENBRANCH -- INTEGER -- DECLARED IN SEGMfNt 63 AT 06295000 

♦06297000* 06301000 
THENUMBeROFDECLAREDOIMENSiONS *- INTEGEK -- DECLAKED IN SEGMENT 156 AT 15184100 

♦15233100* 15255000 15291100 15296000 
THENV •- DEFINE •- DECLARED IN SEGMENT 3 aT 01256000 
06411000 16217000 

There •• stream variable -- name paramfter -- declared in segment 3 at 01737350 

01737450 
THI — Real -- declared in segment 3 at 0i689000 

♦02250000* 02255000 02256000 02257000 02785000 02797000 02799000 02600000 
Third •• tNTEGFR -- declared in segment 64 aT 06312500 

♦06313700**06314200**06326500**063H0600* 0633U00 06334200 06334600 06336200 06336300 
ThISL -- DEFINE •• DECLARED IN SEGMENT 98 AT 08715000 

08737000 08747000 
THiSL •• DEFINE -- DECLARED IN SEGMENT 99 AT 08774000 

08800000 08817000 
THISL •• DEFINE •• DECLARED IN SEGMENT lOO AT 08835000 

08897000 08858000 06061000 
TIMEI — REAL — DECLARED JN SEGMENT 3 AT 0i300000 — OCCURS AT 06073000 

01828000 09417000 *l 7000000** 1 7091 165^ 
TlMjNfiS •• Real aRRaY -- declared in SeGMfNt 167 AT 17002012 

*17002040»*17002075**17022300* 17054800 17055010 *17080l00*^l709l520^*l70944lO+*l70955lO#*l7Q9635Q* 
TL •• BOOLEAN •• OEcLaRFD IN SFGMeNT 9 AT 02013178 
*020i3l79* 02013181 

TL — INTEGER — DECLARED IN SegMeNT 38 AT 04118000 

♦04119000* 04124000 
TU — iNTpGER — DECLARED IN SegHeNT 74 AT 07483000 

♦07485000* 07487000 
TL •• REAL •" DECLARED IN SEGMENT 126 AT 10957000 

♦10958000* 10978500 10994000 llOOOOOO 
TL •- REAL •"• DECLARED IN SEGMENT 134 aT 132210Q0 

*13258000^ 13277000 
TLCR — INTEGER — DECLARED IN SEGMENT 3 aT 01330000 

♦02202050* 02202060 02202070 02219500 02224500 ♦02456000* 

TLcR "- Real -- namf parameter •- declared in segment 13 at 02202750 



09314000 



m 



02207500 03203500 0220<>000 02208500 
TLEVEL -- INTEGER •- DTCLAReD IN SEGMENT 66 AT 06357000 

*06359000* 06360000 06365000 06369000 *06374000* 06376000 
TLO -• Real -• DECLaRFH in segment 3 at 0l689000 

*02250000« 02255000 02256000 02785000 02796000 02797000 02799000 0?600000 
TOgGIfV — DEFINE " DFCLaRfD IN SEGMENT 3 aT 01245000 
TOUOC •- STREAM VARIARLE -* NAME PARAMETER — DECLARED IN SEGMENT 10« AT 09005000 

09006000 
TOTaLNO •• INTEGER "• HECLARED iN SeGMeNT 3 AT 01000860 

02192000 •02l92500**02l93000* 02234800 ♦02582000**17004500* 17045000 
TOV •- DEFINE •' DErLAREO IN SEGMENT 3 AT 01257000 

07505000 07552000 16252000 16437000 
TOWARDS — INTEGER -• VALUE PARAMETER " DECLARED IN SEGMENT 3 AT 03037000 

03036000 
TOWARDS •• INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04116000 

04114000 04115000 04120100 04120200 04120500 
TP — INTEGER •- DECLARED IN SegMeNT 142 aT 13903100 

♦13909000* 13914000 
TRaNS •• STREAM LABEL •• DECLARED IN SeGMfNt 3 AT 01758000 -- OCCURS AT 01778000 

01763000 
TRb •• DFFINE •• DECLARED IN SegMeNT 3 AT 0i682000 

04318000 06334600 
TRNSFfR — define — DECLARED IN SEGMENT 3 AT 0i25l000 

1637*9000 
TRP -- DEFINE •' DECLARED IN SEGMENT 157 aT i60i9000 

16383000 
TRUTHV -- DEFINE •• DECLARED IN SEGMENT 3 AT O12O8OOO 
TRW •- DEFINE — DECLARED IN SEGMENT 151 AT 14419000 

14456000 
TS — BOOLEAN •• DECLARED IN SEGMENT 9 AT 02013178 

♦02013179* 02013181 
TSSTRfAMTOg -• BOOLEAN •- DECLARED iN SEGMENT 120 AT 10259400 
♦10260050^ 10284000 

TsuBLrVrL — Real — declared tn segment 143 at 14029000 

♦14477000* 14492000 
TURNONStOPLIGHT •- stream procedure -- declared in segment 3 AT 02011000 

02013717 02202070 02214500 02218250 0223^750 02369000 02717000 0?905000 
— LABEL •- DECLARED IN SEGMENT 138 AT 13452000 -- OCCURS AT 13474000 

13547000 
-- STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05237000 
05237500 05241000 

— Real — value parameter — declared in segment 3 at 03055000 ^ 

— Real — VALUE parameter -• DECLaReO in segment 3 at 05259000 t 
05245000 05259000 0526?000 05264500 

•• INTEGER •- DECLARED IN SEGMENT 61 AT 06214000 

♦062?7520**06259000* 06263000 06265000 , ^ 

— INTEGER — DECLARED IN SEGMENT 63 AT 06295000 ' • ...,• 
♦06299000* 06304000 06305000 

— STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEQMEl|| 131 AT i302OOC^0 
13021000 13025000 if* fV 

— RfAL -- DECLARED iN SEGMENT 131 AT 13039000 '§ , , 
* 1 3081 000** I 3086000**1 30880 30** 13O68O 35 **l30B8040**i3088060**13O88075**13088080** 1 108^ 

— Real -- value parameter •- declared in segment 3 at 13316OQO J - 

13314000 13315000 13330550 13346000 13349000 * . ^ 

— INTEGER — VALUE PARAMfTER -» OfCLARED IN SEGMENT 3 AT 13^14000^ a 

1372«000 V * «|lX W 

— SWITCH LABEL — DECLARfD IN SEgMENT 157 AT 16476000 ^^ f 



TWO 

TYP 

TYPE 
TYPE 



TYPE 
TYPE 

TYPE 
TYPE 
TYPE 
TYPE 
TYPE 






\ 



L.Wfi&fiiiiik 




TYPE 



I 



NAME Parameter 



• DECLARED IN SEGMENT 

DECLARED fN JftCMENT 3 

I 



TYPCV 



TYPPV 
Tl ■' 



Tl -< 



Tl 



Tl 
Tl 



Tl -' 



Tl 



Tl 



1431050 



l3#500o\ 

A T# 0*071000 
• 



STREAM VARIABLE - 
17049300 
TYPEDPROC — BOOLEAN -- VALUE PARAMETER 

15001000 15002000 iSOlOOiO 
TYPEReF — DEFINE -- DECLARED IN SEGMENT 3 AT 0i007420 

0200169s 07598i00 07687600 07635500 O81761OO 13310525 
17092300 17092900 1'A 

— REAL -•» DEcUaRED in SEOMeNT 3 AT O16IIOOO 
*13453000«*13469000* 13471000 13567000 * 14091000** 14094000* 
*14294000**14294l00* 14295000 14301000 14308000 14319000 
•• tNTEGFR — VALUE PaRaMeTER — dEcLARfD IN SEGMeNt 3 
03069000 03070000 

STRpAM VARIABLE " DECLARED IN SeGMfNt 3 aT 01668020 
♦01688030* 01688090 01688100 

Real -- declared in segment 

♦04284200* 04284300 *04285000* 
STRfAM variable -- DECLARED 
♦02001674* 02001876 _ 

INTfGER — OEcL-ARED in SfrMENT 43 AT 04502000 
#04550000* 04551000 

Real — declared in segment 5/ at O6O59000 

♦06062000 »*06062i20**06062l65**0606?i9o**060622i0**06062?20* 06062285 * 
06066000 ♦06073350#*06073400**06073500* 06073550 *06073600*#06073700** 
REAL -" declared in SEGMENT 70 AT O7O76OOO 

♦07125000**0713300^* 07145000 #07204000* 07210000 * 
07369000 

7R AT 0/562000 

07575000 ♦07577000* 07579000 07583000 

84 _AT O7658OOO 




I509l|00 .lipl 



l8||p 1 7092^00 



3 AT 01693000 

04266000 *14098000* 14099000 

IN SeGMfNt 3 AT 02001860 



i426iAooThii4aiybo* iilesooo #14292000 

« 




14104000 lllilloOO 



Tl — 

Tl •• 

Tl -- 

Tl •- 



Tl 



Tl •' 
T2 - 



T2 



T2 - 
T2 -. 



♦07095000* 
*07361000* 

Real -- 

♦07566000^ 

Real — 

#07663500* 

Real 



07096000 

07362000 

DECLARED 
07572000 

DECLARED 
07664500 

DECLARED 



IN Segment 

07573000 
JN SeQMeNT 
07665500 
AL» ■"■ DECLARED IN SeGMeNT 
*08l79000**08i93000* 08202000 

Real -- declared in segment 

#10301000* 10330000 

REAi — declared in Segment 

#10981000* 10984000 *10999000* 

stream variable -• declared 

#13009000# 13015000 13017000 

Real — declared in segment 

♦13454000* 13456000 13459000 

DECLARED 
15097000 



0606?420**06062430# 06062540 06062565 
06073830* 06073850 

07211000**07276000* 07288000 *073l9000* 



07586000 



69 AT 08173000 
06203000 08204000 
122 AT 10291000 

126 AT 10957000 
12000000 

IN Segment i3i at 



08205000 08206000 08207000 08225000 






13007000 



REAL 
16095000 
STRfaM VARIABLE - 
*0l688030* 01688050 
REAL^ •- DECLARED 



IN Segment 

15098000 

' DEctARFD 

01688060 

IN Segment 



136 AT 13449000 

13466000 13469000 *1 3476000** i 3478000* 

154 AT 15073000 

15100000 15112000 15124000 15304000 

IN SFQMrNf 3 AT 01688020 



13487000 13499000 13576000 
15308000 15341000 15369000 



3 AT 01693000 
14109000 

IN Segment 3 at 



*14104000**141 07000**141 08000* 

STREAM VARIABLE — DECLARED 
*02001674# 02001876 

INTEGER •• DECLARED IN SEGMENT 43 AT 04502000 
#04550000# 

IN Segment 

06062125 

IN Segment 

*07152000# 



02001860 



T2 •- Real •• 

#06062000* 

T2 — REAL — 
♦07129000* 
*07362000^ 

T2 — Real — 



DECLARED 
06062110 

DECLARED 
07138000 

07364000 

DECLARED 



57 AT 06059000 

06062170 06062185 

70 AT O7O76OOQ 

07165000 *07l 94000 •*0720 1000**07270000* 



06062210 06062280 06062470 06062540 06072080 

07272000 #07288000* 07290000 *073l9000# 



-- _. IN SEGMENT 78 AT 07562000 

#07583000##07585000* 07586000 



T? 



T2 



T2 — 
T2 — 



T2 



REAL -- 
*07663500* 

Real. •- 

«06196000* 

REAL — 
4il03l7000* 

Real •*• 



DECLARED 
07664500 

DECLARED 
08206000 

DECLARED 
10322000 

DECLARED 



IN SEGMENT 
07665500 

IN Segment 



84 AT 07658000 

07666500 *07672000* 07673000 

89 AT 08173000 
122 AT 10291000 



07674000 



T3 



T3 



• •« 



T3 *•> 



T3 •" 

T3 - 

T3 •. 

T3 •' 

T4 -< 

T4 •' 

T4 •< 



IN SEGMENT 
*10330000* 

IN SEGMENT 138 AT 13449000 
*13494000**13500000* 13501000 *13502000* 13547000 ♦! 3580000** i 3584000* 

Real — declared in segment i54 at i5o74ooo 

15100000 15112000 15124000 

stream variable -- declared 

01688030 O1688O6O 01668070 
REAL •"' DECLARED IN SEGMENT 
♦06062150* 

IN SEGMENT 
*07194000* 



15308000 15341000 15369000 

IN SeGMfNT 3 AT 01668020 

O16881OO 

57 AT 06059000 



T5 



T6 



REAL •- 
♦07130000* 
*0736400e* 

Real — 

♦07665500* 

Real — 

♦08199000* 
REAL -- 

♦IOjaZOOO* 
REAf '- 

•13413000* 
REA|» — 

*0710|500* 

REAL — 
*0820QOOO* 

REAL •• 
•13517000* 

REAL 



06062155 

DECLARED 
07138000 
07365000 
DECLARED 
07666500 

DECLARED 
08209000 
DECLARED 
10323000 
DECLARED 
13486000 
DECLARED 
07111230 
DECLARED 
08210000 
DECLARED 
13530000 

DECLARED 



70 AT 07076000 

O72O1OOO *07203000**07270000* 07272000 #07290000* 07292000 



07306000 •07319000* 



IN SEGMENT 
*07673000* 

IN Segment 



84 AT O7658OOO 
89 AT O8I&73OOO 



IN Segment i?2 at 1O291000 



IN Segment 

13494000 

IN Segment 

07111320 

IN Segment 



138 AT 13449000 

13508000 13530000 13531000 13540000 ♦13575000* 13580000 

70. AT 07076000 

0nil325 *07292000*«07306000* 

89 AT 08173000 



laf* 



AT 13449000 



ULlTOfi 
UNhOOK 



70 AT #7076000 

07207000 *07305000* 07312000 
SEG*^ENT 138 AT 13450000 



IN SEGMENT 
13531000 * 

IN Segment 7o at" 07P7600o_ 

♦07lll230^^07304000^ 07312000 

Real •• declared in segment 

*07173000* 07174000 •07197000* 
*•• BOOLEAN •* DECLARED IN 
•13518000**13523000* 13527000 
"." PROCEDURE •• DECLARED IN SEGMENT 3 AT 13353000 -- FORWARD AT 01626000 
13305300 
UNKNOwNiD — DEFINE — DECI-aRED IN SEGMENT 3 AT 01177000 

Q6O92OO0 06227000 07462500 
UNKNOwNsTMT •• PROCEDURE •* DECLARED IN SEGMENT 3 AT 07800000 

0743200© 07729000 
UNTlLV •• DEFINE — DECLARED IN SEGMENT 3 AT 01226000 

O7O18OO© 07485000 07646595 08113000 O8128OOO 08184000 

-- DECLARED IN Segment i67 at 17002050 

17119100 
PARAMETER " DECLARED IN SEGMENT 3 AT 

05304000 
DECLARED IN SEGMENT 3 AT 01001173 

02353000 02357000 02600000 

- DECLARED IN SEfiMENT 13 AT 022W> 



UPDATETiMES — 
17022200 

UPPER "• REAL 

05297000 
USeROPINX — DEFINE 

02335000 02339000 
USFSWtTcH — SWITCH LaBEL 



PROCEDURE 
17091175 

— VALUE 
05298000 



02212000 
USeTHeSWITCH — LABEL -- DECLARED IN SegMeNT 13 AT 02fi0250 

02224102 02229500 02232750 02234650 02235250* 
V — REAL — DECLARED IN SEGMENT 15 AT 02238112 a' 
*02?38340* 02238350 02238360 *02238390* 02238400 



^^imMs,.S.~ 




nfr, 



♦02238658* 
OWN REAL 
06078000 

STREAM V 
01741400 

STRfa 
17047450 

— deftn 

14341000 

PRO 

06062400 

07815000 

12037000 

BOOLEAN 

4,070Sl0004> 

LabeL -• 

07168000 
OEnNE - 
07086000 

•• DEFT 

0^231500 

•• REAL 

02232000 

P.- DEFI 

02231500 

VOIDPLACE — RE 
♦02233^00* 

VOIDTaPp -- DEF 
02231500 

VOidTbIT "• i»DEF 
02231W0 

VONF — BOiLEAN 
0731^000 

VP — STRfAH VA 

0l7r 

ST 

017 



VAL -• 

VAL-TOg -• 
VALUEV 

vartablf 



VBIT — 

VE ' 
VO -• 

VOlDBtT 

VOlOCR 

VOIDING 



*02238680**02238700* 022387^4 
"- DECLARED IN SEGMENT 89 AT 
08099000 08181000 08188000 
ARlARLr — NaMe PARAMETER " 



08010000 
*0822SQ^ 



M VARIABLE -■ 
17049430 

E ••• DECLARED IN SEGMENT 3 A 



Value parameter -- dec 

T 01258000 



CEDURE — DECLARED IN SegMeN 

O6O735OO 06107000 06250Q00 

07836000 07899040 079*1000 

12063100 15377000 
-- DECLARED IN SEGMENT 70 A 

♦07086000* 07108505 07111220 

DECLaRed in segment 70 AT 07 



VR 



VReT — 



w 



000 
M VA 
000 

Own Re A 

• 06054000>«' 
REAL " 

strfam var 

01736100 

stream var 

02927310 
STREAM VAR 

05311000 
REAL — 

10071000 
REAL — 

10086000 
W •- INTEGER - 
♦10129000* 
♦IO15O28O* 

waitingforfwdref 

♦17092100* 
WO "• STRfAM VA 
09006000 

whatisit — Lab 



•" declared 

07290000 

Ne " DFC 

02233750 

-- DFCLAR 
♦02233500* 
NE — DEC 

02233750 
AL — DEC 

02410000 * 
INE -- HE 

02232500 
INE "• DE 

02232500 
•• DECLA 
♦13203000* 

RiABLE •" 

01780000 * 
RIABLE -' 



IN SEGMENT 3 aT 01 
13203000 14116500 

laRfd in segment 3 

02*12000 02*15000 

ED IN Segment 3 at 

02*10000 *02*17000* 

laRed in segment 3 




laRed I 

02*1600 

CLARED 

0223375 

CLARtD 

0223175 

Red r*i 

1333060 
NAME P 

0176200 
NAME P 



N S^MENT*3 
0* i3S*1700o 
IN SEGMENT 3 


IN seiiMcNT 3 

, 02*767000 
SEGMENT 3 AT 
*lf|*l000f 

aRaMeter -- 

0* 01783000 

aRamet^r 



T 3 AT iSOfOOOO 
07157000 07176000 
08228000 0640102Q »' 

T 07062000* 

07U1303 07117000 0M2*; 
065000 -- OCCURS AT 07;«i5 

150000 -^*'' 

AT 01^01150 

ai785000 

02*85000 *02*92000* 
AT 01001*50 

AT 01785000 
02*8!ifi00 ♦02*91000* 02492000 
AT 01001460 

.AT Ql 00 1160 . 
02*90000 
01590000 

13371000 ♦139lh00* 
declared IN SEGMENT 3 AT 01756000 



-- DECLARED IN SEGMENT 3 AT 01756000 



W 



w 



w 



w 



L -- DECLARED IN SEGMENT 89 
08077000 *08176000* 08198000 

VALUE PARAMETER -- OECLaREd" 

IABLe -- VALUE PARAMETER -" 
01736200 

IABLE — VALUE PARAMETER — ' 

IABLE -- NAME PARAMETER -^ 



AT 08010000 

♦08206000* 08211000 0822*000 *08226000* 

TN SEGMENT 3 AT 01718200 

DECLARED IN SEGMENT 3 AT 01735000 

, DECLARED IN SEGMENT 29 AT 029272*0 



VALUE PARAMETER -• 

10074000 
VALUE PARAMETER -- DECLARED 

10087000 10090000 ♦I009l000^ 
- DECLARED IN SEGMENT 119 AT 
*10131000*^1013*530^ 10134590 
♦10150290* 10153000 I0l6i500 

-- Own boolean — declared 

17093000 ^17093200^ 

Ruble — value parameter - 



declared IN SEGMENT 53 AT 05309000 
declared IN SEGMENT 3 AT 10068000 



IN SEGMENT Ii9 AT 10068000 

10099000 
10106000 

10143000 10146000 I0l48000 ♦10l50l45^^1 

l0i62000 10164000 ♦lO 165000^^10 165500^*1 

IN SEGMENT 177 AT 17091110 



0150220* 
0165505^ 



10150225 
10170000 



10150230 

10171000 



•• DECLARED IN SEGMENT 104 AT 09005000 
EL — DECLARED IN SEGMENT 21 AT 02362000 — OCCURS AT 02578000 



*) 






0236«000 02365000 02379000 02398000 02475000 02517000 02568000 0?57fl300 
WHILESTMT -• PR0r.FDl>RF "- nFCLARED IN SEGMENT 3 AT 07490000 

07496000 077/18000 
WHIUEV — DEFINE -- nErLARFD IN SEGMENT 3 AT 01224000 

08113000 08133000 08139000 
WHfPOUT ^- PROCEDURE -- DECLARfD IN SEGMENT 3 AT 10068000 

10082000 10099000 10127100 IOH3OOO IO148OOO 13797000 

WHOLE •- Real -- declared in segment 7o at 07059000 

♦07079000* O7O995OO 07122510 07122520 072i5500 07270000 07?7l000 #07276000* 07290000 07316000 ♦07361000* 

07364000 
WIThV •• DEFINE -- DECLARED IN SEGMENT 3 aT 01259000 

06504000 07688000 07812000 
WOP — RPAL ARRAY -- DFCLaRfD IN SEGMENT 3 aT 01371000 

02534000 «02S36000* 04284300 04266000 *044l02000* 04603000 *04606000* 
WORD -- RfaL ^- VALUE PaRaMfTER — DFCLaRfD IN SEGMfNi 3 AT 04142000 

04147000 04149000 ' « 

WORD •• STRt'AM VARIABLE -" NaMf PaRaMETER - -- DECLARED IN SEGMENT 3 AT 04270000 

042Aa000 J 

WORD — REAL -'- VALUE PARAMETER -- DECLaReD IN SEGWENT 3 AT 05006000 

05009000 i :..^ 

WOROCoUnT m^ REAL -- DECLARED JN SEG^IENT i 35 AT 13301000 

*133a|000* 13307000 133l0000 13312000 
WRITELINE M. DEFINE -- DECLARED IN SEGMENT 3 AT 02161000. 

02«Q00 02195750 02196590 02214100 02227250 02227500 02228750 04150000 05039600 05046000 05265000 

05»|90 07025020 09302000 10O7!|06o f 

WRITEPRT -J. P»R0tEDURE •- DECLARED lAUSiaMFNT 3 Al 05f25:0ia _ 

053a|500 05376100 W\ ' 

WRITERROR -TI STREAM PROCEDURE •-•^C^IillfO IN SEGMeNI 45 AT 05016000 

0503lMeO. 05044000 ^ * J ,^^ ,_ ^ __ _ , 

WRlTESTMT -m PROCEDURE — DeCLaR|J} #i|||EGM||ill3 AT 06|ieOW itr FORWARD AT 03062000 

0774 WOb 06700000 '^Wf^lil— ^1 '¥^1^ ^ 

WRiTEV " DtFlNE "• DECLARED IN SypNT*^, il|*IMjtfiOi) 5 •, _ 

WRiTNfW — i500LEAN STREAM PROCEDURE If- DEcLIRCD'IN SEOMeNT 3 AT 02016000 
♦02018000* 02019000 02194000 * § 

writxfosIHl t- Label — declared in segment 97 at 08591200 -- occurs at 06647000 
ip6|eo20 

WRTlNTRSt |r ITREAM procedure — DECLARED IN SEGMENT 104 AT 090l##00 

«?^«iooi OMOO2OO 2 

EAL -• VALUE PaRAMeTeR -• DECLARfD IN SEGMENT 119 AT IOO88OOO 
IOO86OOO 10087000 10093000 

IMfGER. -•• DECLARED IN SegMeNT ll9 aT IO1O6OOO 

|0l 53000 1OI615OO *1 01 64000** 10165505 **l0l67000**i 0169000**11 
RE'AL •" VALUE PARAMETSR — DECLARfD IN SgftWENT IfP IT l006( 
10086000 10087000 10094000 1 m * 

INTEGER -- DECLARED IN SEGMENT ll9 aT IO1O6OOO 
10153000 10161500 10171000 '- ' 

tNTeSER — VALUE PARAMETER — DEilARFD J^. SEG!!£NT ,. 3 



Wl 
Wl 
W2 
W2 



X - 

X • 
X • 



REAL -" VALUE PARAMETER — DECLA^tp IN Se*iMElt*^3 'Al 
REAL •• VALUE PARAMETER — DECLARED IN 5EGMffl|lL3 AP*l 



IN JitHi^W" ■*- 

_3 A 
13589000 13590000 13593000 • 

REAL -- DECLARfD fN SEGMENT l54 AT 15075500 
♦15273000* 15273100 
XBiT — INTEGER •• VALUE PARAMETER -- DECLARED IN. 

0232^000 02335000 02339000 02353000 02357 
XCH •- DEFINE •• DECLARED IN SEGMENT 3 AT 0167500, 
' 04071000 04507000 06062170 06069000 0607. 
07470750 07634000 07651000 07859070 







X|T - 

XiT • 

XIT - 

XIT - 

XITR 

XLUN 



•08728600 08974000 08976000 I0'85t0 

15230000 15309000 

"- REAl. ARRAY — DFCLARfn TN St&MENj 3 AT -, 

02001660 02001695 02001795 O2OO1815 ♦0200f 

- dffine -- oecLaRi-d in Segment a at oi676oo6**C 

13747000 14557500 ^ 

- UABEL -- DECLARED iN SegMeNT 13 AT O221O5OO -m 
02213250 02214750 02222250 02224000 _ .„ 

- STREAM LABEL -- DECLARED IN SEGMENT 54 AT 05335080 
05325340 05325350 05325370 05|32538|) 053aB390 053814 

• LABEL -- DECLARED IN SERMENT .81 .a1 •076464-! •- OCCim. 

07646440 » * 

-- DEFINE -- DECLARED IN SEGMENT 3 At 01430000 
INTEGER -" DECLARED IN SEGMeNT 3 AT 010Qt380 




14110500 



•13310450* 17001000 17004500 *17004600* 17028100 ♦ 17025100**17 

XMaRK, — nEFINE "- DECLARED IN SEGMENT 3 aT 0100f455 

* 0759810Q. 07687600 07835500 08178100 13310525 
XMOOE •• 



r. iNTBilER " DECLARED IN SEGMENT 3 AT Olf0l53O V * P : j , ,^,, 

Itt*32fl00t) ♦02332000**02367000**02383000**023t>000* 02408000 *02412000* 024l9l0f «ki4255l 
^*4?49700JJ# 02525003 #02525010* 02525012 
XMOOEOf ?» IabcL 
1)2326000 

xmodei ^*jt .Label 

26000 ^ 1^ 

nECLAREn IN SE6BNT ^ AT .02325000 

f 82*AT^02325000 



• 24 7 80 f 02483000 



DECLARED IN SEGMENT 22 AT 02325000 
HECLaRED in SEGI^NT 22 AT 02^25000 



XM00E2 "■• Label 

02326^00 
XM0DE3 -• LABEL 
0232^000 

)EL 
0232^0* 

028, 

15 
XREFAYl - 

02 

170^ 
XREFAY2 •" 

020 



XM0DE4 
XREF ' 



'E 

Ipo 

roo 



-- DECLARED IN 

-" DECLARED tN 

-" DFCLARED TN S 
07598i00 07687600 
15116000 15301100 




•r* 



2 Al,.023.2500 0_„-- 



OccUf^S AT 023;?9000 
OCCURS AT 02333000 
OCCURS AT 02337000 
OCCURS AT 02341000 
OCCUf^S AT. 02355000 



01001461 



t 



08i78i00_ .13310050 13310525 13310580 I3348i00 
300 16159100 16318500 17001000 



,.EAL ARRAY -- DECLARED IN SfeftMrNT 3 AT 01007145 

805 *0200iei5**02001820* 02^*621 ♦17084000* 17091900 17093850 17093950 17094050 

0"00 17095300 17095320 . ^* 



14310500 14469100 



17094100 17094700 



Real array — declared I^^SEGM^NT 3 at oioo7o3o 

**07S9*100**07 667J!kOO.i|ir07l 



13310050 
16318500 



13310525 
17001000 



13310580 13348100 i43l0500 



13310350 13310750 133l0950 



680 ♦02001695**07S9*lOO**07"667J!kOO.i|*07e35500**06 178 100** 133 10525** 1431 0500** 15091 100** 161 591 00**1631 8500* 

♦ 17003000* 17004000 17076000 ljf0^7'9000 
XRfFBiT — , DEFINE •- DFCLaRfD iN SEgMfNT 3 aT 01001170 

024i9i00 02682204 07598i00 0768760,0^ QJ635500 . 08l78] 00 

144d9fO0 I509li0f 15116000 1530i l0|; 15M2300 16159100 
XReFDUMP — DEFINE ••• DECLARED IN SeGMeNT '3*aT^1 007470 

13283500 l4445lOQ , <J -^ 

XREFINFO -•• DEFINE -- DECLARED IN SEGMENT 3 AT^01007481 

02001660 02001695 Q2001795 O2OO1815 02001822 13310200 
XREFINFO — DEFINE "- DECLARED IN SEGMENT 167 AT 17002005 

17004710 17025100 17025300 17080000 
XREFIT -- DEFINE -- DECLARED IN SEGMENT 3 AT 01007440 
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XRfFPT -- INTEGER "" DECLARED IN SEGMENT 3 AT 01007355 

02001670 *02001685* 02001695 *0?00i705* 07598100 07687600 ^„„ „„,.„,„. ^^^,^.^^ -^ij-^^^^^^ *^-* 

15091100 16159100 16318500 * 1 7003000**1 7004600** 1 7074000** 1 7077000* 17079000 *17084000* 17091400 17094200 

♦ 17094600* 17095900 * 1 7096100** 17096400** 17 1 18OOO* 
XTOTHFl "- DFFTNf — ''dfcLaRfD TN SEQMeNT 3 aT Oi571000 

04078000 

XXX -- labfl -- dpclaRfd in Segment B6 at 078O1000 -- occurs at o79i40oo 



07835500 08l78i00 133l0525 *13348200* I43l0500 



,^ t: 



' ini|ii I IV I M i^ 



•^ 



\ 



t 



S^22^S^2 '^^^Ifi^^ 07818000 07(J25500 076?6000 
07853000 078ft000 07858000 07S59030 07659090 
Z •- REAL -- DECLWf^D IN SEGMENT 3 AT 01490000 
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